Programar em Natural é uma experiência muito prazerosa, especialmente quando trabalhamos com soluções que realmente fazem diferença no ambiente corporativo. Neste contexto, vamos apresentar uma solução que tem como objetivo desenvolver um sistema capaz de realizar a leitura e o tratamento automático dos dados gerados pelo RMM — o software responsável por monitorar os cartuchos e gerenciar as informações relacionadas ao uso e ao controle das fitas.
Antes, a única forma de consultar essas informações era acessando o ambiente TSO e executando comandos diretamente no RMM, o que demandava tempo, conhecimento técnico específico e tornava o processo menos acessível para outros usuários. Com a solução proposta, passaremos a acessar esses dados diretamente por meio de programas desenvolvidos em Natural, permitindo consultar as informações dos cartuchos do RMM de maneira muito mais prática, estruturada e integrada.
A partir das informações coletadas, será implementado um processo de carga automática para o banco de dados Adabas. Dessa forma, os dados ficarão centralizados, possibilitando consultas mais rápidas, melhor organização das informações, geração de relatórios gerenciais e maior integração com outros sistemas do ambiente corporativo. Além disso, a criação dessa base histórica contribuirá para auditorias, análises operacionais e apoio à tomada de decisões estratégicas.
MEMBER=@RMM25 000053 REC SAVE:26.12.2025 16:47 BY USERID ADA4022 R=00000001
DSN=NTR.PRODUCAO.RMM LIB=PB VOL=ADAP25 UNIT=2314
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AADPA045 JOB (AABS,DIST),CLAUDEMAR,CLASS=S,MSGCLASS=A
//*UQ ALLOW
//* ----------------------------------------------------------------
//* LISTAR OS CARTUCHOS DO RMM E SALVANDO NO BANCO
//* ----------------------------------------------------------------
//STEP0001 EXEC PGM=IKJEFT01,REGION=4096K
//SYSTSPRT DD SYSOUT=G
//SYSPRINT DD SYSOUT=A
//SYSTSIN DD *
RMM SEARCHDATASET OWNER(*) SINCE(91073) LIMIT(*)
Saiu esse relatório
1IKJ56644I NO VALID TSO USERID, DEFAULT USER ATTRIBUTES USED
READY
RMM SEARCHDATASET OWNER(*) SINCE(91073) LIMIT(*)
Data set name Volume Owner Create date Seq
-------------------------------------------- ------ -------- ----------- -----
AAA.C.ACCOUNT.ANO2000 TP0804 RMM 26/11/2007 1
AAA.C.ACCOUNT.ANO2000 TP0805 RMM 26/11/2007 1
AAA.C.ACCOUNT.ANO2001 TP0538 RMM 27/11/2007 1
AAA.C.ACCOUNT.ANO2002 TP0291 RMM 29/11/2007 1
AAA.C.ACCOUNT.ANO2010.PART2 TP0513 RMM 13/10/2010 1
AAA.C.ACCOUNT.ANUAL.G0001V00 CT2025 30/03/2000 1
AAA.C.ACCOUNT.ANUAL.G0002V00 CT1333 04/04/2000 1
AAA.C.ACCOUNT.ANUAL.G0003V00 CT1624 31/01/2002 1
AAA.C.ACCOUNT.ANUAL.G0004V00 CT2000 31/01/2002 1
AAA.C.ACCOUNT.ANUAL.G0004V00 CT2088 31/01/2002 1
AAA.C.ACCOUNT.ANUAL.G0006V00 CT1344 RMM 05/02/2002 1
AAA.C.ACCOUNT.ANUAL.G0006V00 CT1774 RMM 05/02/2002 1
AAA.C.ACCOUNT.ANUAL.G0007V00 CT1839 RMM 20/02/2003 1
AAA.C.ACCOUNT.ANUAL.G0007V00 CT1845 RMM 20/02/2003 1
AAA.C.ACCOUNT.CT0370.DI310301.DF300401 TP0291 RMM 30/11/2007 3
AAA.C.ACCOUNT.CT1023.DI301100.DF010101 TP0291 RMM 30/11/2007 2
AAA.C.ACCOUNT.CT1035.DI300102.DF030302 TP0291 RMM 30/11/2007 4
AAA.C.ACCOUNT.DIARIO.G0306V00 TP1123 09/04/2013 1
AAA.C.ACCOUNT.DIARIO.G0307V00 TP0314 12/04/2013 1
Foi criado essa view para gravar essas informações do RMM
17:34:23 ***** NATURAL LIST COMMAND ***** 27/12/2025
User ADA4022 - List DDM AAFU-FITOTECA-RMM - Library NATURAL
DDM DBID 0 DDM FNR 433 VSAM Name Default Sequence Page 1
T L DB Name F Leng S D Remark
- - -- -------------------------------- - ---- - - ------------------------
* Generation started
* at 2025-07-19 20:10:26
* by user ADA4022
*
1 AA AAF-DATASET A 45 N D
1 AB AAF-CARTUCHO A 6 N D
1 AC AAF-OWNER A 8 N
1 AD AAF-DATA A 10 N
1 AE AAF-SEQUENCIA A 3 N
Command ===>
End of List.
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Print Exit Short -- - + ++ Canc
Foi criado no Adabas esse file para onde vamos armazenar as informações do RMM
17:57:42 ***** A D A B A S BASIC SERVICES ***** 2025-12-27
DBID 230 - Display File Layout - PDRF012
****************
* File 433 * AAFD-FISICO-433
****************
Records loaded ..... 0 Date loaded .......... 2025-07-19 20:09:59
TOP ISN ............ 0 Date of last update .. 2025-12-27 17:57:32
Max ISN expected ... 51699 Max Compr Rec Lngth .. 10792
Minimum ISN ........ 1 Asso/Data Padding .... 10%/10%
Size of ISN ........ 3 Bytes Highest Index Level .. 3
Number of Updates .. 0 Index Compression .... YES
ISN Reusage ........ YES USERISN .............. NO
Space Reusage ...... YES MIXDSDEV ............. YES
ADAM File .......... NO PGMREFRESH ........... NO
Ciphered File ...... NO NOACEXTENSION ........ NO
Coupled Files ...... NONE
Blk per DS Extent .. 0 Logged DSF Changes ... DS AC Index
Blk per UI Extent .. 0 Total Changed Blks ... 52
Blk per NI Extent .. 0 Length of Owner ID ... 0
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Refresh Menu
Criamos com essa extenções de AC, UI, NI e DS
17:58:08 ***** A D A B A S BASIC SERVICES ***** 2025-12-27
DBID 230 - Display File Layout - PDRF022
File 433
I Dev LiI Space allocated I From To I Unused
I Type TyI Blocks / Cyls. I RABN RABN I BLOCKS / Cyls.
----I--------I-------------------I ------------------------I------------------
I I I I
ASSOI 8391 ACI 50 0 I 535813 - 535862 I 0 0
I 8391 UII 1 0 I 535864 - 535864 I 0 0
I 8391 NII 1 0 I 535863 - 535863 I 1 0
I I I I
DATAI 8391 DSI 1 0 I 1100108 - 1100108 I 1 0
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Refresh Menu
Esse foi o programa que vamos ler do dataset e gravar no file Adabas
> > + Program RMM0003 Lib NATURAL
Top ....+....1....+....2....+....3....+....4....+....5....+....6....+....7..
0010 * -------------------------------------------------------------------- *
0020 * FUNCAO: GRAVANDO OS DADOS DO RMM PARA UM FILE ADABAS
0030 * AUTOR : USER DBA 4022
0040 * -------------------------------------------------------------------- *
0050 DEFINE DATA LOCAL
0060 01 RMM VIEW OF AAFU-FITOTECA-RMM
0070 02 AAF-DATASET
0080 02 AAF-CARTUCHO
0090 02 AAF-OWNER
0100 02 AAF-DATA
0110 02 AAF-SEQUENCIA
0120 * -------------------------------------------------------------------- *
0130 01 #DADOS-GENERICOS (A79)
0140 01 REDEFINE #DADOS-GENERICOS
0150 02 FILLER 1X
0160 02 #DSN (A44)
0170 02 FILLER 1X
0180 02 #VOLUME (A06)
0190 02 FILLER 1X
0200 02 #OWNER (A08)
0210 02 FILLER 1X
0220 02 #CREATE_DATE (A11)
0230 02 REDEFINE #CREATE_DATE
0240 03 #DIA (A02)
0250 03 #SEPARATOR1 (A01)
0260 03 #MES (A02)
0270 03 #SEPARATOR2 (A01)
0280 03 ANO (A04)
0290 02 FILLER 1X
0300 02 #SEQ (N05)
0310 END-DEFINE
0320 * -------------------------------------------------------------------- *
0330 * GRAVANDO OS DADOS
0340 * -------------------------------------------------------------------- *
0350 READ WORK FILE 1 #DADOS-GENERICOS
0360 * -------------------------------------------------------------------- *
0370 IF #SEPARATOR1 EQ '/'
0380 AAF-DATASET := #DSN
0390 AAF-CARTUCHO := #VOLUME
0400 AAF-OWNER := #OWNER
0410 AAF-DATA := #CREATE_DATE
0420 AAF-SEQUENCIA := #SEQ
0430 END-IF
0440 * -------------------------------------------------------------------- *
0450 * AGORA VAMOS MOSTRA/GRAVAR NO BANCO
0460 * -------------------------------------------------------------------- *
0470 * 1 - MOSTRAR NO RELATORIO OS DADOS
0480 * -------------------------------------------------------------------- *
0490 ** WRITE
0500 ** AAF-DATASET
0510 ** AAF-CARTUCHO
0520 ** AAF-OWNER
0530 ** AAF-DATA
0540 ** AAF-SEQUENCIA
0550 * -------------------------------------------------------------------- *
0560 * 2 - GRAVAR NO BANCO DE DADOS
0570 * -------------------------------------------------------------------- *
0580 STORE RMM
0590 END TRANSACTION
0600 END-WORK
0610 END
Esse é o JCL que vamos usar para gerar as informações do RMM e que vamos gravar no Adabas
MEMBER=@RMM25 000053 REC SAVE:26.12.2025 16:47 BY USERID ADA4022 R=00000001
DSN=NTR.PRODUCAO.RMM LIB=PB VOL=ADAP25 UNIT=2314
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AADPA045 JOB (AABS,DIST),CLAUDEMAR,CLASS=S,MSGCLASS=A
//*UQ ALLOW
//* ----------------------------------------------------------------
//* LISTAR OS CARTUCHOS DO RMM E SALVANDO NO BANCO
//* ----------------------------------------------------------------
// SET DSN1=AAF.S.TSSUSER.CLAU
// SET DSN2=AAF.S.BKP072
//* ----------------------------------------------------------------
//* LIMPAR O FILE ANTES DE CARREGAR
//* ----------------------------------------------------------------
//STEP0105 EXEC NATURAL,PARM1='SYS=D,MT=0,STACK=(LOGON NATURAL)'
//SYSPRINT DD SYSOUT=A
//CMWKF01 DD SYSOUT=A
//CMPRT01 DD DUMMY
//SYSIN DD *
AADPA005
//* ----------------------------------------------------------------
//STEP0001 EXEC PGM=IKJEFT01,REGION=4096K
//SYSTSPRT DD DISP=SHR,DSN=&DSN1
//SYSPRINT DD SYSOUT=A
//SYSTSIN DD *
RMM SEARCHDATASET OWNER(*) SINCE(91073) LIMIT(*)
//* ----------------------------------------------------------------
//* FILTRO DOS CARTUCHOS RETIDOS
//* ----------------------------------------------------------------
//STEP0002 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=Z
//SYSOUT DD SYSOUT=Z
//SORTIN DD DISP=SHR,DSN=&DSN1
//SORTOUT DD DISP=SHR,DSN=&DSN2
//SORTWK1 DD DSN=&&TEMP01,DISP=(NEW,PASS),
// SPACE=(CYL,2),UNIT=SYSDA,
// DCB=(LRECL=133,BLKSIZE=1330,RECFM=FBA)
//* --------------------------------------------------------------
//SYMNAMES DD *
LABEL;1,46,CH
CT;47,2,CH
CARTUCHO;49,4,CH
DATA;63,10,CH
SEQ;75,4,CH
//SYSIN DD *
SORT FIELDS=(CT,A,CARTUCHO,A,75,4,UFF,A)
INCLUDE COND=(CT,EQ,C'CT',OR,CT,EQ,C'TP',OR,CT,EQ,C'VC')
/*
//* ---------------------------------------------------------------
//* ICEGENER PARA A SYSOUT
//* ---------------------------------------------------------------
//STEP0003 EXEC PGM=ICEGENER
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD DISP=SHR,DSN=&DSN2
//SYSUT2 DD SYSOUT=A
//SYSIN DD DUMMY
//* ----------------------------------------------------------------
//* GRAVANDO NO FILE 433
//* ----------------------------------------------------------------
//NATD EXEC NATURAL,PARM1='SYS=D,MT=0,STACK=(LOG NATURAL)'
//CMWKF01 DD DISP=SHR,DSN=&DSN2
//CMPRINT DD SYSOUT=G
//CMPRT01 DD SYSOUT=G,HOLD=YES
//SYSIN DD *
RMM0003
/*
Rodou ok
IEF142I AADPA045 STEP0001 - STEP WAS EXECUTED - COND CODE 0000
IEF142I AADPA045 STEP0002 - STEP WAS EXECUTED - COND CODE 0000
IEF142I AADPA045 STEP0003 - STEP WAS EXECUTED - COND CODE 0000
IEF142I AADPA045 NATURAL NATD - STEP WAS EXECUTED - COND CODE 0000
Esse dataset onde é jogado direto os dados do RMM - ele saiu fora de ordem
DSN=AAF.S.TSSUSER.CLAU VOL=ADW001 UNIT=2500
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2....+....3..
1READY
RMM SEARCHDATASET OWNER(*) SINCE(91073) LIMIT(*)
Data set name Volume Owner Create date Seq
-------------------------------------------- ------ -------- ----------- -----
AAA.C.ACCOUNT.ANO2000 TP0804 RMM 26/11/2007 1
AAA.C.ACCOUNT.ANO2000 TP0805 RMM 26/11/2007 1
AAA.C.ACCOUNT.ANO2001 TP0538 RMM 27/11/2007 1
AAA.C.ACCOUNT.ANO2002 TP0291 RMM 29/11/2007 1
AAA.C.ACCOUNT.ANO2010.PART2 TP0513 RMM 13/10/2010 1
AAA.C.ACCOUNT.ANUAL.G0001V00 CT2025 30/03/2000 1
AAA.C.ACCOUNT.ANUAL.G0002V00 CT1333 04/04/2000 1
AAA.C.ACCOUNT.ANUAL.G0003V00 CT1624 31/01/2002 1
AAA.C.ACCOUNT.ANUAL.G0004V00 CT2000 31/01/2002 1
AAA.C.ACCOUNT.ANUAL.G0004V00 CT2088 31/01/2002 1
AAA.C.ACCOUNT.ANUAL.G0006V00 CT1344 RMM 05/02/2002 1
AAA.C.ACCOUNT.ANUAL.G0006V00 CT1774 RMM 05/02/2002 1
AAA.C.ACCOUNT.ANUAL.G0007V00 CT1839 RMM 20/02/2003 1
AAA.C.ACCOUNT.ANUAL.G0007V00 CT1845 RMM 20/02/2003 1
AAA.C.ACCOUNT.CT0370.DI310301.DF300401 TP0291 RMM 30/11/2007 3
AAA.C.ACCOUNT.CT1023.DI301100.DF010101 TP0291 RMM 30/11/2007 2
AAA.C.ACCOUNT.CT1035.DI300102.DF030302 TP0291 RMM 30/11/2007 4
AAA.C.ACCOUNT.DIARIO.G0306V00 TP1123 09/04/2013 1
AAA.C.ACCOUNT.DIARIO.G0307V00 TP0314 12/04/2013 1
Agora fica classifica - pelo SORT
DSN=AAF.S.BKP072 VOL=PRD304 UNIT=151E
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2.
ALA.C.DIRF.A2000 CT0001 RMM 15/03/2001 1
ALA.C.DIRF.A2000 CT0001 RMM 09/04/2001 2
ALA.C.DIRF.A2000 CT0001 RMM 08/05/2001 3
ALA.C.HISTORIC.REF0500 CT0002 RMM 30/05/2000 1
ALA.C.DIR.S.BKP.A1996 CT0003 RMM 02/07/1999 1
ALA.C.DIR.S.BKP1.R041996.PR6168 CT0003 RMM 02/07/1999 2
ALA.C.DIR.S.BKP2.R041996.PR6168 CT0003 RMM 02/07/1999 3
ALA.C.DIR.S.BKP3.R041996.PR6168 CT0003 RMM 02/07/1999 4
ALA.C.DIR.S.BKP1.R051996.PR5069 CT0003 RMM 02/07/1999 5
ALA.C.DIR.S.BKP2.R051996.PR5069 CT0003 RMM 02/07/1999 6
ALA.C.DIR.S.BKP3.R051996.PR5069 CT0003 RMM 02/07/1999 7
ALA.C.DIR.S.BKP1.R051996.PR5879 CT0003 RMM 02/07/1999 8
ALA.C.DIR.S.BKP2.R051996.PR5879 CT0003 RMM 02/07/1999 9
ALA.C.MIL.S.BKP1.R091999.FOL0 CT0004 RMM 30/09/1999 1
ALA.C.MIL.S.BKP2.R091999.FOL0 CT0004 RMM 30/09/1999 2
ALA.C.DIR.S.BKP2.R021998.SEDUC.COM3 CT0005 RMM 20/05/1998 1
ALA.C.MIL.S.BKP.A1995 CT0006 RMM 21/05/1998 1
ALA.C.MIL.S.BKP1.R081995.FOL0 CT0006 RMM 21/05/1998 2
ALA.C.MIL.S.BKP2.R081995.FOL0 CT0006 RMM 21/05/1998 3
ALA.C.MIL.S.BKP3.R081995.FOL0 CT0006 RMM 21/05/1998 4
ALA.C.MIL.S.BKP1.R091995.FOL0 CT0006 RMM 21/05/1998 5
ALA.C.MIL.S.BKP2.R091995.FOL0 CT0006 RMM 21/05/1998 6
1ALA.C.MIL.S.BKP3.R091995.FOL0 CT0006 RMM 21/05/1998 7
Gravou no Adabas
18:05:29 ***** A D A B A S BASIC SERVICES ***** 2025-12-27
DBID 230 - Display File Layout - PDRF012
****************
* File 433 * AAFD-FISICO-433
****************
Records loaded ..... 29985 Date loaded .......... 2025-07-19 20:09:59
TOP ISN ............ 28810 Date of last update .. 2025-12-27 18:01:28
Max ISN expected ... 51699 Max Compr Rec Lngth .. 10792
Minimum ISN ........ 1 Asso/Data Padding .... 10%/10%
Size of ISN ........ 3 Bytes Highest Index Level .. 3
Number of Updates .. 29931 Index Compression .... YES
ISN Reusage ........ YES USERISN .............. NO
Space Reusage ...... YES MIXDSDEV ............. YES
ADAM File .......... NO PGMREFRESH ........... NO
Ciphered File ...... NO NOACEXTENSION ........ NO
Coupled Files ...... NONE
Blk per DS Extent .. 0 Logged DSF Changes ... DS AC Index
Blk per UI Extent .. 0 Total Changed Blks ... 348
Blk per NI Extent .. 0 Length of Owner ID ... 0
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Refresh Menu
Excedeu algumas extenções, temos depois de aumentar na produção
18:05:36 ***** A D A B A S BASIC SERVICES ***** 2025-12-27
DBID 230 - Display File Layout - PDRF022
File 433
I Dev LiI Space allocated I From To I Unused
I Type TyI Blocks / Cyls. I RABN RABN I BLOCKS / Cyls.
----I--------I-------------------I ------------------------I------------------
I I I I
ASSOI 8391 ACI 50 0 I 535813 - 535862 I 0 0
I 8391 UII 1 0 I 535864 - 535864 I 0 0
I 8391 UII 11 0 I 539893 - 539903 I 9 0
I 8391 NII 1 0 I 535863 - 535863 I 0 0
I 8391 NII 192 1 I 539904 - 540095 I 84 0
I I I I
DATAI 8391 DSI 1 0 I 1100108 - 1100108 I 0 0
I 8391 DSI 323 4 I 1111313 - 1111635 I 140 1
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Refresh Menu
Esse é o programa que vamos ler o file 433
> > + Program RMM0004 Lib NATURAL
Top ....+....1....+....2....+....3....+....4....+....5....+....6....+....7..
0010 * -------------------------------------------------------------------- *
0020 * FUNCAO - LER O REGISTROS DO FILE 433 - RMM *
0030 * AUTOR - USER DBA 4022 *
0040 * -------------------------------------------------------------------- *
0050 DEFINE DATA
0060 LOCAL
0070 01 RMM VIEW OF AAFU-FITOTECA-RMM
0080 02 AAF-DATASET
0090 02 AAF-CARTUCHO
0100 02 AAF-OWNER
0110 02 AAF-DATA
0120 02 AAF-SEQUENCIA
0130 END-DEFINE
0140 WRITE '--- LEITURA SEQUENCIAL ---'
0150 READ RMM BY ISN
0160 DISPLAY AAF-DATASET AAF-CARTUCHO AAF-OWNER AAF-DATA AAF-SEQUENCIA
0170 END-READ
0180 WRITE / '--- BUSCA POR DESCRITOR (AAF-DATASET) ---'
0190 READ RMM BY AAF-DATASET /* STARTING FROM #DATASET-INICIO
0200 * READ RMM BY AAF-CARTUCHO STARTING FROM 'VC0001'
0210 /* OPCIONAL: CONDIçãO DE PARADA SE QUISER APENAS UM RANGE
0220 IF AAF-DATASET > 'ABC.DATASET.ZZZ'
0230 ESCAPE BOTTOM
0240 END-IF
0250 END-READ
0260 END
....+....1....+....2....+....3....+....4....+....5....+... S 26 L 7
Resultado
MORE
PAG 1 27/12/25 17:49:59
AAF-DATASET AAF-CARTUCHO AAF-OWNER AAF-DATA AAF-SEQUENCIA
--------------------------------------------- ------------ --------- ---------- -------------
--- LEITURA SEQUENCIAL ---
ALA.C.DIRF.A2000 CT0001 RMM 15/03/2001 1
ALA.C.DIRF.A2000 CT0001 RMM 09/04/2001 2
ALA.C.DIRF.A2000 CT0001 RMM 08/05/2001 3
ALA.C.HISTORIC.REF0500 CT0002 RMM 30/05/2000 1
ALA.C.DIR.S.BKP.A1996 CT0003 RMM 02/07/1999 1
ALA.C.DIR.S.BKP1.R041996.PR6168 CT0003 RMM 02/07/1999 2
ALA.C.DIR.S.BKP2.R041996.PR6168 CT0003 RMM 02/07/1999 3
ALA.C.DIR.S.BKP3.R041996.PR6168 CT0003 RMM 02/07/1999 4
ALA.C.DIR.S.BKP1.R051996.PR5069 CT0003 RMM 02/07/1999 5
ALA.C.DIR.S.BKP2.R051996.PR5069 CT0003 RMM 02/07/1999 6
ALA.C.DIR.S.BKP3.R051996.PR5069 CT0003 RMM 02/07/1999 7
ALA.C.DIR.S.BKP1.R051996.PR5879 CT0003 RMM 02/07/1999 8
ALA.C.DIR.S.BKP2.R051996.PR5879 CT0003 RMM 02/07/1999 9
ALA.C.MIL.S.BKP1.R091999.FOL0 CT0004 RMM 30/09/1999 1
ALA.C.MIL.S.BKP2.R091999.FOL0 CT0004 RMM 30/09/1999 2
ALA.C.DIR.S.BKP2.R021998.SEDUC.COM3 CT0005 RMM 20/05/1998 1
ALA.C.MIL.S.BKP.A1995 CT0006 RMM 21/05/1998 1
ALA.C.MIL.S.BKP1.R081995.FOL0 CT0006 RMM 21/05/1998 2
ALA.C.MIL.S.BKP2.R081995.FOL0 CT0006 RMM 21/05/1998 3
ALA.C.MIL.S.BKP3.R081995.FOL0 CT0006 RMM 21/05/1998 4
ALA.C.MIL.S.BKP1.R091995.FOL0 CT0006 RMM 21/05/1998 5
ALA.C.MIL.S.BKP2.R091995.FOL0 CT0006 RMM 21/05/1998 6
ALA.C.MIL.S.BKP3.R091995.FOL0 CT0006 RMM 21/05/1998 7
ALA.C.MIL.S.BKP1.R101995.FOL0 CT0006 RMM 21/05/1998 8
ALA.C.MIL.S.BKP2.R101995.FOL0 CT0006 RMM 21/05/1998 9
ALA.C.MIL.S.BKP3.R101995.FOL0 CT0006 RMM 21/05/1998 10
ALA.C.MIL.S.BKP1.R111995.FOL0 CT0006 RMM 21/05/1998 11
ALA.C.MIL.S.BKP2.R111995.FOL0 CT0006 RMM 21/05/1998 12
ALA.C.MIL.S.BKP3.R111995.FOL0 CT0006 RMM 21/05/1998 13
ALA.C.MIL.S.BKP1.R131995.FOL0 CT0006 RMM 21/05/1998 14
ALA.C.MIL.S.BKP2.R131995.FOL0 CT0006 RMM 21/05/1998 15
ALA.C.MIL.S.BKP3.R131995.FOL0 CT0006 RMM 21/05/1998 16
ALA.C.MIL.S.BKP1.R121995.FOL0 CT0006 RMM 21/05/1998 17
ALA.C.MIL.S.BKP2.R121995.FOL0 CT0006 RMM 21/05/1998 18
ALA.C.MIL.S.BKP3.R121995.FOL0 CT0006 RMM 21/05/1998 19
AAA.C.ACCOUNT.DIARIO.G1858V00 CT0007 21/11/2006 1
ABD.C.ROTULO.PEDIDOS.TEMP.G0814V00 CT0008 10/05/2004 1
AAA.C.ACCOUNT.DIARIO.G1711V00 CT0009 07/08/2006 1
ALA.C.DIR.L.BKP2.R021998.SEDUC.COM3 CT0010 RMM 20/05/1998 1
ALA.C.DIR.L.BKP2.R121998.SEDUC.COM3.Y2K CT0010 RMM 15/01/2000 2
ALA.C.DIR.L.BKP1.R041998.FOL2 CT0011 RMM 20/05/1998 1
Pesquisando um cartucho especifico
> > + Program AADPA001 Lib NATURAL
Top ....+....1....+....2....+....3....+....4....+....5....+....6....+....7..
0010 * ==================================================================== *
0020 * FUNCAO..: DISPLAY DE UM CARTUCHO ESPECIFICO *
0030 * AUTOR : USER DBA 4022 *
0040 * ==================================================================== *
0050 DEFINE DATA LOCAL
0060 01 TLMS VIEW OF AAFU-FITOTECA-RMM
0070 02 AAF-DATASET
0080 02 AAF-CARTUCHO
0090 02 AAF-OWNER
0100 02 AAF-DATA
0110 02 AAF-SEQUENCIA
0120 02 AAF-LIBERADO
0130 01 #RET (A4)
0140 01 #CONTA (N4)
0150 01 #CARTUCHO (A6)
0160 01 #SOMA (N10)
0170 01 #FILECNT (N10)
0180 END-DEFINE
0190 FORMAT LS=180 PS=20 KD=ON
0200 * ==================================================================== *
0210 SET KEY
0220 PF3 = PGM NAMED 'EXIT'
0230 * ==================================================================== *
0240 INPUT (IP=OFF SG=OFF AD=MIL'_')
0250 02T '-' (78)
0260 / 02T *USER
0270 32T 'FITOTECA ONLINE'
0280 72T *PROGRAM
0290 / 02T *TIME(AL=8)
0300 11T '-' (60)
0310 72T *DATE
0320 / 32T 'PESQUISA CARTUCHO'(I) 72T *LIBRARY-ID /
0330 /
0340 11T '-' (60)
0350 /
0360 /13T' DIGITE O CARTUCHO :'#CARTUCHO(AD=MIL'_')
0370 //
0380 11T '-' (60)
0390 /
0400 /30T'TECLE PF3 PARA SAIR' (I)
0410 * -------------------------------------------------------------------- *
0420 IF *PF-KEY EQ 'PF3'
0430 FETCH 'AADPA000'
0440 * -------------------------------------------------------------------- *
0450 FIND TLMS WITH AAF-CARTUCHO = #CARTUCHO
0460 DISPLAY
0470 'CART' AAF-CARTUCHO
0480 'LABEL' AAF-DATASET
0490 'DONO' AAF-OWNER
0500 'DATA' AAF-DATA
0510 'SEQ' AAF-SEQUENCIA
0520 * -------------------------------------------------------------------- *
0530 WRITE TITLE LEFT
0540 *TIME(AL=8) 27T 'CONSULTANDO CARTUCHOS' (I) 71T *DATE
0550 AT END OF PAGE
0560 INPUT ' '
0570 * END-ENDPAGE
0580 * -------------------------------------------------------------------- *
0590 LOOP(0450)
0600 * -------------------------------------------------------------------- *
0610 FETCH 'AADPA001'
0620 END
....+....1....+....2....+....3....+....4....+....5....+... S 62 L 43
Rodando o programa acima é assim que vai aparece na tela
------------------------------------------------------------------------------
DBA4022 FITOTECA ONLINE AADPA001
15:14:14 ------------------------------------------------------------ 28/12/25
PESQUISA CARTUCHO NATURAL
------------------------------------------------------------
DIGITE O CARTUCHO : vc0520
------------------------------------------------------------
TECLE PF3 PARA SAIR
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
EXIT
Resultado da pesquisa - bem mais rápido que no RMM
MORE
15:14:37 CONSULTANDO CARTUCHOS 28/12/25
CART LABEL DONO DATA SEQ
------ --------------------------------------------- -------- ---------- ---
VC0520 ADABAS.C.SAVE.SIMS.MES.G0161V00 RMM 31/05/2025 1
VC0520 ADABAS.C.SAVE.DB242.MES.G0162V00 RMM 31/05/2025 2
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Esse foi o programa utilizado para deletar os registros do file - para a gente refazer a carga de novo
> > + Program AADPA005 Lib NATURAL
Top ....+....1....+....2....+....3....+....4....+....5....+....6....+....7..
0010 * -------------------------------------------------------------------- *
0020 * FUNCAO: LIMPAR OS DADOS DO FILE 433 DO ADABAS ANTES DA RECARGA *
0030 * AUTOR : USER DBA 4022 *
0040 * -------------------------------------------------------------------- *
0050 DEFINE DATA LOCAL
0060 01 RMM VIEW OF AAFU-FITOTECA-RMM
0070 02 AAF-DATASET /* CAMPO APENAS PARA REFERENCIA NA VIEW
0080 01 #TOTAL-DELETED (N7)
0090 01 #CTR-COMMIT (N7)
0100 END-DEFINE
0110 * -------------------------------------------------------------------- *
0120 * LER TODOS OS REGISTROS DO ARQUIVO *
0130 * -------------------------------------------------------------------- *
0140 READ RMM BY ISN
0150 DELETE (0140)
0160 ADD 1 TO #TOTAL-DELETED
0170 ADD 1 TO #CTR-COMMIT
0180 * -------------------------------------------------------------------- *
0190 * QUANDO CHEGAR EM 500, ZERA O CONTADOR E FAZ O COMMIT
0200 * -------------------------------------------------------------------- *
0210 IF #CTR-COMMIT GE 500
0220 END TRANSACTION
0230 RESET #CTR-COMMIT
0240 END-IF
0250 END-READ
0260 END TRANSACTION
0270 * -------------------------------------------------------------------- *
0280 WRITE 'PROCESSAMENTO CONCLUIDO.'
0290 WRITE 'TOTAL DE REGISTROS DELETADOS:' #TOTAL-DELETED
0300 END
0310 * -------------------------------------------------------------------- *
....+....1....+....2....+....3....+....4....+....5....+... S 31 L 12
Foi criado um sistema de menu
------------------------------------------------------------------------------
DBA4022 CONTROLADORIA DE DADOS E TECNOLOGIA AADPA000
07:31:47 ------------------------------------------------------------ 30/12/25
NATURAL
+-----------------------------+ +---------------------------------------+
| 01 - Pesquisa de Cartucho | | 05 - Relatorio de Cartuchos Retido |
| 02 - Pesquisa de Label | | 06 - Relatorio de Cartuchos Scratch |
| 03 - Pesquisa de Data | | 07 - Relatorio de Regras Criadas |
| 04 - Pesquisa de OWNER | | 08 - Relatorio de Status do RMM |
+-----------------------------+ +---------------------------------------+
DIGITE A OPCAO DESEJADA 0__
TECLE PF3 PARA SAIR
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
MENU
Esse é o programa natural do menu inicial
> > + Program AADPA000 Lib NATURAL
Top ....+....1....+....2....+....3....+....4....+....5....+....6....+....7..
0010 * ==================================================================== *
0020 * FUNCAO: SUBMETE JOBS PARA PESQUISAR OS CARTUCHOS DO RMM *
0030 * AUTOR: DBA ADABAS USER ID 4022 *
0040 * CRIADO: 01/12/2022 *
0050 * ==================================================================== *
0060 DEFINE DATA LOCAL
0070 1 #ARQ1 (N3)
0080 END-DEFINE
0090 * ==================================================================== *
0100 FORMAT KD=ON
0110 SET CONTROL 'U'
0120 SET KEY PF3 = 'AABP300M' NAMED 'MENU'
0130 REPEAT
0140 * ==================================================================== *
0150 INPUT (IP=OFF SG=OFF AD=MIL'_')
0160 02T '-' (78)
0170 / 02T *USER
0180 20T 'CONTROLADORIA DE DADOS E TECNOLOGIA' (I)72T *PROGRAM
0190 / 02T *TIME(AL=8) 11T '-' (60) 72T *DATE
0200 /72T *LIBRARY-ID
0210 //
0220 03T '+-----------------------------+'
0230 ' +---------------------------------------+'
0240 /
0250 03T '|'
0260 ' 01 - Pesquisa de Cartucho' (I)
0270 ' |'
0280 ' |'
0290 ' 05 - Relatorio de Cartuchos Retido' (I)
0300 ' |'
0310 /
0320 03T '|'
0330 ' 02 - Pesquisa de Label ' (I)
0340 ' |'
0350 ' |'
0360 ' 06 - Relatorio de Cartuchos Scratch' (I)
0370 ' |'
0380 /
0390 03T '|'
0400 ' 03 - Pesquisa de Data ' (I)
0410 ' |'
0420 ' |'
0430 ' 07 - Relatorio de Regras Criadas ' (I)
0440 ' |'
0450 /
0460 03T '|'
0470 ' 04 - Pesquisa de OWNER ' (I)
0480 '|'
0490 ' |'
0500 ' 08 - Relatorio de Status do RMM ' (I)
0510 ' |'
0520 /
0530 03T '+-----------------------------+'
0540 ' +---------------------------------------+'
0550 //27T'DIGITE A OPCAO DESEJADA'(YE) #ARQ1(AD=MIL'_')
0560 //30T'TECLE PF3 PARA SAIR'(I)
0570 * ==================================================================== *
0580 DECIDE ON FIRST VALUE OF #ARQ1
0590 VALUE 01 FETCH 'AADPA001'
0600 VALUE 02 FETCH 'AADPA002'
0510 ' |'
0520 /
0530 03T '+-----------------------------+'
0540 ' +---------------------------------------+'
0550 //27T'DIGITE A OPCAO DESEJADA'(YE) #ARQ1(AD=MIL'_')
0560 //30T'TECLE PF3 PARA SAIR'(I)
0570 * ==================================================================== *
0580 DECIDE ON FIRST VALUE OF #ARQ1
0590 VALUE 01 FETCH 'AADPA001'
0600 VALUE 02 FETCH 'AADPA002'
0610 VALUE 03 FETCH 'AADPA003'
0620 VALUE 04 FETCH 'AADPA004'
0630 VALUE 05 FETCH 'RMMP0001'
0640 VALUE 06 FETCH 'RMMP0002'
0650 VALUE 07 FETCH 'RMMP0003'
0660 VALUE 08 FETCH 'RMMP0004'
0670 NONE VALUE REINPUT ' OPCAO INVALIDA'
0680 END-DECIDE
0690 * ==================================================================== *
0700 END
....+....1....+....2....+....3....+....4....+....5....+... S 70 L 51
Pesquisa de cartucho
------------------------------------------------------------------------------
DBA4022 CONTROLADORIA DE DADOS E TECNOLOGIA AADPA001
07:31:54 ------------------------------------------------------------ 30/12/25
PESQUISA CARTUCHO NATURAL
------------------------------------------------------------
DIGITE O CARTUCHO : vc0012
------------------------------------------------------------
TECLE PF3 PARA SAIR
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
EXIT
Resultado
MORE
07:32:15 CONSULTANDO CARTUCHOS 30/12/25
CART LABEL DONO DATA SEQ
------ --------------------------------------------- -------- ---------- ---
VC0012 AAA.C.ACCOUNT.DIARIO.G4033V00 AAASMF 06/12/2025 1
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
MENU
Programa fonte
> > + Program AADPA002 Lib NATURAL
Top ....+....1....+....2....+....3....+....4....+....5....+....6....+....7..
0010 * -------------------------------------------------------------------- *
0020 * FUNCAO .: PESQUISA CARTUCHO NO TLMS USANDO O NOME DO LABEL *
0030 * AUTOR: DBA ADABAS USER ID 4022 *
0040 * -------------------------------------------------------------------- *
0050 DEFINE DATA
0060 LOCAL
0070 01 #DIRECTION (A1) INIT <'D'> /* 'A' = ASCENDING
0080 01 MONITORAMENTO VIEW OF AAFU-FITOTECA-RMM
0090 02 AAF-DATASET
0100 02 AAF-CARTUCHO
0110 02 AAF-OWNER
0120 02 AAF-DATA
0130 02 AAF-SEQUENCIA
0140 01 #LABEL (A44) /* INIT <'ADABAS.C.SAVE.DB240.MES.G0199V00'>
0150 * -------------------------------------------------------------------- *
0160 END-DEFINE
0170 FORMAT LS=180 PS=20 KD=ON
0180 * -------------------------------------------------------------------- *
0190 FORMAT KD=ON
0200 SET KEY
0210 PF3 = PGM NAMED 'EXIT'
0220 * -------------------------------------------------------------------- *
0230 INPUT (IP=OFF SG=OFF AD=MIL'_')
0240 02T '-' (78)
0250 / 02T *USER
0260 20T 'CONTROLADORIA DE DADOS E TECNOLOGIA' (I)
0270 72T *PROGRAM
0280 / 02T *TIME(AL=8)
0290 11T '-' (60)
0300 72T *DATE
0310 / 28T 'PESQUISA LABEL DE CARTUCHO'(I) 72T *LIBRARY-ID /
0320 * -------------------------------------------------------------------- *
0330 /
0340 11T '-' (60)
0350 /
0360 /14T' LABEL :' #LABEL (AD=MIL'_')
0370 //
0380 11T '-' (60)
0390 * -------------------------------------------------------------------- *
0400 //30T'TECLE PF3 PARA SAIR' (I)
0410 * -------------------------------------------------------------------- *
0420 IF *PF-KEY EQ 'PF3'
0430 FETCH 'AADPA000'
0440 END-IF
0450 * -------------------------------------------------------------------- *
0460 READ MONITORAMENTO BY AAF-DATASET = #LABEL
0470 * -------------------------------------------------------------------- *
0480 * FIND MONITORAMENTO WITH AAF-DSN = #LABEL
0490 * SORTED BY AAF-FILESEQ AAF-VOLSEQ /* DESCENDING
0500 * -------------------------------------------------------------------- *
0510 * IF NO RECORDS FOUND
0520 * REINPUT ' LABEL NAO EXISTE NO TLMS' /* MARK #CARTUCHO
0530 * END-NOREC
0540 * -------------------------------------------------------------------- *
0550 DISPLAY
0560 'DATASET' AAF-DATASET
0570 'CART' AAF-CARTUCHO
0580 'OWNER' AAF-OWNER
0590 'DATA' AAF-DATA
0600 'SEQ' AAF-SEQUENCIA
0610 * -------------------------------------------------------------------- *
0620 WRITE TITLE LEFT JUSTIFIED
0630 *TIME(AL=8) 27T 'CARTUCHO DO TLMS' (I) 71T *DATE
0640 AT END OF PAGE
0650 INPUT ' '
0660 IF *PF-KEY EQ 'PF3'
0670 FETCH 'AADPA000'
0680 END-IF
0690 END-ENDPAGE
0700 * -------------------------------------------------------------------- *
0710 END-READ
0720 FETCH 'AADPA002'
0730 END
....+....1....+....2....+....3....+....4....+....5....+... S 73 L 54
Pesquisa pelo label do cartucho
------------------------------------------------------------------------------
DBA4022 CONTROLADORIA DE DADOS E TECNOLOGIA AADPA002
07:32:26 ------------------------------------------------------------ 30/12/25
PESQUISA LABEL DE CARTUCHO NATURAL
------------------------------------------------------------
LABEL : AAA.C.ACCOUNT.DIARIO.G4033V00_______________
------------------------------------------------------------
TECLE PF3 PARA SAIR
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
EXIT
Programa fonte
07:32:49 CARTUCHO DO TLMS 30/12/25
DATASET CART OWNER DATA SEQ
--------------------------------------------- ------ -------- ---------- ---
AAA.C.ACCOUNT.DIARIO.G4033V00 VC0012 AAASMF 06/12/2025 1
AAA.C.ACCOUNT.DIARIO.G4034V00 VC0840 AAASMF 07/12/2025 1
AAA.C.ACCOUNT.DIARIO.G4035V00 VC0295 AAASMF 08/12/2025 1
AAA.C.ACCOUNT.DIARIO.G4036V00 VC0193 AAASMF 08/12/2025 1
AAA.C.ACCOUNT.DIARIO.G4037V00 VC0166 AAASMF 09/12/2025 1
AAA.C.ACCOUNT.DIARIO.G4038V00 VC0318 AAASMF 09/12/2025 1
AAA.C.ACCOUNT.DIARIO.G4039V00 VC0057 AAASMF 10/12/2025 1
AAA.C.ACCOUNT.DIARIO.G4040V00 VC0103 AAASMF 11/12/2025 1
AAA.C.ACCOUNT.DIARIO.G4041V00 VC0855 AAASMF 12/12/2025 1
AAA.C.ACCOUNT.DIARIO.G4042V00 VC0062 AAASMF 12/12/2025 1
AAA.C.ACCOUNT.DIARIO.G4043V00 VC0023 AAASMF 13/12/2025 1
AAA.C.ACCOUNT.DIARIO.G4044V00 VC0016 AAASMF 15/12/2025 1
AAA.C.ACCOUNT.DIARIO.G4045V00 VC0405 AAASMF 16/12/2025 1
AAA.C.ACCOUNT.DIARIO.G4046V00 VC0879 AAASMF 16/12/2025 1
AAA.C.ACCOUNT.DIARIO.G4047V00 VC0902 AAASMF 17/12/2025 1
AAA.C.ACCOUNT.DIARIO.G4048V00 VC0500 AAASMF 18/12/2025 1
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
EXIT
Pesquisa por data
------------------------------------------------------------------------------
DBA4022 CONTROLADORIA DE DADOS E TECNOLOGIA AADPA003
07:33:04 ------------------------------------------------------------ 30/12/25
PESQUISA CARTUCHO - DATA DE GRAVACAO NATURAL
------------------------------------------------------------
DATA DE GRAVACAO .....: 30/12/2025
------------------------------------------------------------
TECLE PF3 PARA SAIR
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
EXIT
Resultado
MORE
07:33:39 CARTUCHO DO TLMS 30/12/25
DATASET CART DONO DATA SEQ
--------------------------------------------- ------ -------- ---------- ---
AAB.C.RACF.BACKUP.DIARIO.G0220V00 VC0728 AABSRACF 30/12/2025 1
ADABAS.C.SAVE.DB240.DIA.G5468V00 VC0729 ADASAVP 30/12/2025 1
ADABAS.C.SAVE.DB240.DIA.G5468V00 VC0731 ADASAVP 30/12/2025 1
ADABAS.C.SAVE.DB240.DIA.G5468V00 VC0734 ADASAVP 30/12/2025 1
ADABAS.C.SAVE.DB240.DIA.G5468V00 VC0738 ADASAVP 30/12/2025 1
ADABAS.C.SAVE.DB240.DIA.G5468V00 VC0739 ADASAVP 30/12/2025 1
ADABAS.C.SAVE.DB240.DIA.G5468V00 VC0740 ADASAVP 30/12/2025 1
ADABAS.C.SAVE.DB240.DIA.G5468V00 VC0743 ADASAVP 30/12/2025 1
RMM.C.BACKUP.DIARIO.G0170V00 VC0744 RMM0001 30/12/2025 1
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
MENU
Programa fonte
> > + Program AADPA003 Lib NATURAL
Top ....+....1....+....2....+....3....+....4....+....5....+....6....+....7..
0010 * -------------------------------------------------------------------- *
0020 * FUNCAO .: PESQUISA CARTUCHO CRIADOS NO DIA ESPECIFICADO *
0030 * AUTOR: DBA ADABAS USER ID 4022 *
0040 * -------------------------------------------------------------------- *
0050 DEFINE DATA
0060 LOCAL
0070 01 MONITORAMENTO VIEW OF AAFU-FITOTECA-RMM
0080 02 AAF-DATASET
0090 02 AAF-CARTUCHO
0100 02 AAF-OWNER
0110 02 AAF-DATA
0120 02 AAF-SEQUENCIA
0130 01 #DIA (A10)
0140 * -------------------------------------------------------------------- *
0150 END-DEFINE
0160 FORMAT LS=80 PS=20
0170 * -------------------------------------------------------------------- *
0180 MOVE *DAT4E TO #DIA
0190 * -------------------------------------------------------------------- *
0200 FORMAT KD=ON
0210 SET KEY
0220 PF3 = PGM NAMED 'EXIT'
0230 * -------------------------------------------------------------------- *
0240 INPUT (IP=OFF SG=OFF AD=MIL'_')
0250 02T '-' (78)
0260 / 02T *USER
0270 20T 'CONTROLADORIA DE DADOS E TECNOLOGIA' (I)
0280 72T *PROGRAM
0290 / 02T *TIME(AL=8)
0300 11T '-' (60)
0310 72T *DATE
0320 / 22T 'PESQUISA CARTUCHO - DATA DE GRAVACAO'(I) 72T *LIBRARY-ID /
0330 * -------------------------------------------------------------------- *
0340 /
0350 11T '-' (60)
0360 /
0370 /12T' DATA DE GRAVACAO .....:' #DIA (AD=MIL'_')
0380 //
0390 11T '-' (60)
0400 * -------------------------------------------------------------------- *
0410 //30T'TECLE PF3 PARA SAIR' (I)
0420 * -------------------------------------------------------------------- *
0430 IF *PF-KEY EQ 'PF3'
0440 FETCH 'AADPA000'
0450 END-IF
0460 * -------------------------------------------------------------------- *
0470 * READ MONITORAMENTO BY AAF-DSN = #DIA
0480 * -------------------------------------------------------------------- *
0490 FIND MONITORAMENTO WITH AAF-DATA = #DIA
0500 SORTED BY AAF-DATASET /* AAF-VOLSEQ /* DESCENDING
0510 IF NO RECORDS FOUND
0520 REINPUT 'NAO TEM CARTUCHO GRAVADO NESTE DIA' /* MARK #CARTUCHO
0530 END-NOREC
0540 * -------------------------------------------------------------------- *
0550 DISPLAY
0560 'DATASET' AAF-DATASET
0570 'CART' AAF-CARTUCHO
0580 'DONO' AAF-OWNER
0590 'DATA' AAF-DATA
0600 'SEQ' AAF-SEQUENCIA
0610 * -------------------------------------------------------------------- *
0620 WRITE TITLE LEFT JUSTIFIED
0630 *TIME(AL=8) 27T 'CARTUCHO DO TLMS' (I) 71T *DATE
0640 AT END OF PAGE
0650 INPUT ' '
0660 IF *PF-KEY EQ 'PF3'
0670 FETCH 'AADPA000'
0680 END-IF
0690 END-ENDPAGE
0700 * -------------------------------------------------------------------- *
0710 END-FIND
0720 FETCH 'AADPA003'
0730 END
....+....1....+....2....+....3....+....4....+....5....+... S 73 L 54
Pesquisa pelo OWNER
------------------------------------------------------------------------------
DBA4022 CONTROLADORIA DE DADOS E TECNOLOGIA AADPA004
07:33:51 ------------------------------------------------------------ 30/12/25
PESQUISA OWNER NATURAL
------------------------------------------------------------
DIGITE O OWNER ..: backup__
------------------------------------------------------------
TECLE PF3 PARA SAIR
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
EXIT
Resultado
07:34:18 PESQUISANDO OS OWNER DO RMM 30/12/25
AAB.C.BACKUP.PRD.PRL.WRK.G0931V00 VC0015 BACKUP 07/12/2025 1
AAB.C.PRD018 VC0015 BACKUP 07/12/2025 2
AAB.C.PRD27A VC0015 BACKUP 07/12/2025 3
AAB.C.PRD27B VC0015 BACKUP 07/12/2025 4
AAB.C.PRD301 VC0015 BACKUP 07/12/2025 5
AAB.C.PRD302 VC0015 BACKUP 07/12/2025 6
AAB.C.PRD303 VC0015 BACKUP 07/12/2025 7
AAB.C.PRD304 VC0015 BACKUP 07/12/2025 8
AAB.C.PRD305 VC0015 BACKUP 07/12/2025 9
AAB.C.PRD306 VC0015 BACKUP 07/12/2025 10
AAB.C.PRD037 VC0015 BACKUP 07/12/2025 11
AAB.C.PRD308 VC0015 BACKUP 07/12/2025 12
AAB.C.PRD309 VC0015 BACKUP 07/12/2025 13
AAB.C.PRD310 VC0015 BACKUP 07/12/2025 14
AAB.C.PRD311 VC0015 BACKUP 07/12/2025 15
AAB.C.PRD313 VC0015 BACKUP 07/12/2025 16
AAB.C.PRD314 VC0015 BACKUP 07/12/2025 17
AAB.C.PRD315 VC0015 BACKUP 07/12/2025 18
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
EXIT
Programa fonte
0010 * -------------------------------------------------------------------- *
0020 * FUNCAO .: PESQUISA O OWNER NO TLMS USANDO O NUMERO DO CARTUCHO *
0030 * AUTOR: DBA ADABAS USER ID 4022 *
0040 * -------------------------------------------------------------------- *
0050 DEFINE DATA
0060 LOCAL
0070 01 TLMS VIEW OF AAFU-FITOTECA-RMM
0080 02 AAF-DATASET
0090 02 AAF-CARTUCHO
0100 02 AAF-OWNER
0110 02 AAF-DATA
0120 02 AAF-SEQUENCIA
0130 01 #CARTUCHO (A8)
0140 * -------------------------------------------------------------------- *
0150 END-DEFINE
0160 FORMAT LS=80 PS=20
0170 * -------------------------------------------------------------------- *
0180 FORMAT KD=ON
0190 SET KEY
0200 PF3 = PGM NAMED 'EXIT'
0210 * -------------------------------------------------------------------- *
0220 INPUT (IP=OFF SG=OFF AD=MIL'_')
0230 02T '-' (78)
0240 / 02T *USER
0250 20T 'CONTROLADORIA DE DADOS E TECNOLOGIA' (I)
0260 72T *PROGRAM
0270 / 02T *TIME(AL=8)
0280 11T '-' (60)
0290 72T *DATE
0300 /
0310 32T 'PESQUISA OWNER'(I) 72T *LIBRARY-ID /
0320 /
0330 11T '-' (60)
0340 /
0350 /15T' DIGITE O OWNER ..:'#CARTUCHO (AD=MIL'_')
0360 //
0370 11T '-' (60)
0380 /
0390 /30T'TECLE PF3 PARA SAIR' (I)
0400 IF *PF-KEY EQ 'PF3'
0410 FETCH 'AADPA000'
0420 END-IF
0430 * -------------------------------------------------------------------- *
0440 * READ MONITORAMENTO BY AAF-CARTUCHO = #CARTUCHO
0450 * -------------------------------------------------------------------- *
0460 FIND TLMS WITH AAF-OWNER = #CARTUCHO
0470 * -------------------------------------------------------------------- *
0480 WRITE
0490 AAF-DATASET
0500 AAF-CARTUCHO
0510 AAF-OWNER
0520 AAF-DATA
0530 AAF-SEQUENCIA
0540 * -------------------------------------------------------------------- *
0550 WRITE TITLE LEFT
0560 *TIME(AL=8) 26T 'PESQUISANDO OS OWNER DO RMM' (I) 71T *DATE
0570 /
0580 AT END OF PAGE
0590 INPUT ' '
0600 IF *PF-KEY EQ 'PF3'
0610 FETCH 'AADPA000'
0620 END-IF
0630 END-ENDPAGE
0640 * -------------------------------------------------------------------- *
0650 END-FIND
0660 FETCH 'AADPA004'
0670 END
....+....1....+....2....+....3....+....4....+....5....+... S 67 L 48
