Home | The Company | Publications | Products | Links | Tips | Jobs |
---|
Search and display changed or deleted Natural programsNatural DDM KEY A18 = library(A8)/pgm-name(A8)/sequence#(A2)T L DB Name F Leng S D - - -- -------------------------------- - ---- - - 1 LJ SRC-KEY A 18 N D HD=Source Object Key * Natural source object key. M 1 LK SRC-TEXT A 90 N HD=Source Object Text * Natural source object text. 1 LL CAT-KEY A 18 N D HD=Cataloged Obj. Key * Natural cataloged object key M 1 LM CAT-TEXT A 250 N HD=Cataloged Object Text * Natural cataloged object tex ADASEL: select and display deleted Natural programs //SELECT EXEC ADASEL //DDSIIN DD DISP=SHR,BUFNO=30,DSN=ADABAS.PLOG.COPY.G4242V00 // DD DISP=SHR,BUFNO=30,DSN=ADABAS.PLOG.COPY.G4243V00 // DD DISP=SHR,BUFNO=30,DSN=ADABAS.PLOG.COPY.G4244V00 // DD DISP=SHR,BUFNO=30,DSN=ADABAS.PLOG.COPY.G4245V00 // DD DISP=SHR,BUFNO=30,DSN=ADABAS.PLOG.COPY.G4246V00 //DDKARTE DD * SET GLOBALS LS=132 PS=62 SELECT DELETED RECORDS FROM FILE 008 STARTING FROM 20061229/000000 ENDING AT 20061231/240000 DISPLAY ISN USERID LJ LK(1) LL LM(1) END ADASEL DDDRUCK output of deleted Natural programs (before images BI) SEL070-PROCESSING REQUEST STATEMENTS-- SET GLOBALS LS=132 PS=62 SELECT DELETED RECORDS FROM FILE 008 STARTING FROM 20061229/000000 ENDING AT 20061231/240000 DISPLAY ISN USERID LJ LK(1) LL LM(1) END SEL071-SELECTION REQUEST NUMBER: 1 SEL072-PROCESSING SELECTION REQUESTS -- SNR FNR ISN USERTID DELETE - BI 2006-12-29 11:43:23 1 8 1165642 ZIIDAP 1 ISN 0011C94A .I¢ USERID E9C9C9C4C1D7F4F1 ZIIDAP41 LJ ICSUSER3IBL34S01 LK(1) LL LM(1) SNR FNR ISN USERTID DELETE - BI 2006-12-29 11:45:40 1 8 1165684 ZIIDAP 1 ISN 0011C974 .I USERID E9C9C9C4C1D7F4F1 ZIIDAP41 LJ ICSUSER3IBL34S01 LK(1) LL LM(1) SNR FNR ISN USERTID DELETE - BI 2006-12-29 11:45:40 1 8 1165685 ZIIDAP 1 ISN 0011C975 .I USERID E9C9C9C4C1D7F4F1 ZIIDAP41 LJ LK(1) LL ICSUSER3IBL34S01 LM(1) SNR FNR ISN USERTID DELETE - BI 2006-12-29 11:58:31 1 8 1165785 ZIIDAP 1 ISN 0011C9D9 .IR USERID E9C9C9C4C1D7F4F1 ZIIDAP41 LJ ICSUSER3IBL34S01 LK(1) LL LM(1) SNR FNR ISN USERTID DELETE - BI 2006-12-29 11:58:31 1 8 1165809 ZIIDAP 1 ISN 0011C9F1 .I1 USERID E9C9C9C4C1D7F4F1 ZIIDAP41 LJ LK(1) LL ICSUSER3IBL34S01 LM(1) SNR FNR ISN USERTID DELETE - BI 2006-12-29 16:40:20 1 8 1166007 ZIIKEJ 1 ISN 0011CAB7 . USERID E9C9C9D2C5D1F4F1 ZIIKEJ41 LJ LBZIIKEJIMC50P20 LK(1) LL LM(1) (snip) ADASEL: select and display updated Natural programs //SELECT EXEC ADASEL //DDSIIN DD DISP=SHR,BUFNO=30,DSN=ADABAS.PLOG.COPY.G4242V00 // DD DISP=SHR,BUFNO=30,DSN=ADABAS.PLOG.COPY.G4243V00 // DD DISP=SHR,BUFNO=30,DSN=ADABAS.PLOG.COPY.G4244V00 // DD DISP=SHR,BUFNO=30,DSN=ADABAS.PLOG.COPY.G4245V00 // DD DISP=SHR,BUFNO=30,DSN=ADABAS.PLOG.COPY.G4246V00 //DDKARTE DD // DD * SELECT UPDATED RECORDS FROM FILE 008 STARTING FROM 20061229/000000 ENDING AT 20061231/240000 DISPLAY ISN USERID LJ LK(1) LK(2) LK(3) LK(4) LK(5) LK(6) LK(7) LK(8) LK(9) LK(10) LK(11) LK(12) LK(13) LK(14) LK(15) LK(16) LK(17) LK(18) LK(19) LK(20) LL LM(1) END ADASEL DDDRUCK output of updated records (before (BI) and after (AI) images) SEL070-PROCESSING REQUEST STATEMENTS-- SET GLOBALS LS=132 PS=62 SELECT UPDATED RECORDS FROM FILE 008 STARTING FROM 20061229/000000 ENDING AT 20061231/240000 DISPLAY ISN USERID LJ LK(1) LK(2) LK(3) LK(4) LK(5) LK(6) LK(7) LK(8) LK(9) LK(10) LK(11) LK(12) LK(13) LK(14) LK(15) LK(16) LK(17) LK(18) LK(19) LK(20) LL LM(1) END SEL071-SELECTION REQUEST NUMBER: 1 SEL072-PROCESSING SELECTION REQUESTS -- SNR FNR ISN USERTID UPDATE - BI 2006-12-29 11:43:23 1 8 1165643 ZIIDAP 1 ISN 0011C94B .I. USERID E9C9C9C4C1D7F4F1 ZIIDAP41 LJ ICSUSER3IBL34S01 . LK(1) NAT2 }S 4.1 0003 ICSUSER3IBL34S01ZIIDAP ZIIDAP 14 14 ¨. R LK(2) ... `< Ö} ³r MVS/ESA COMPLETE 1142594 20061229NCF413 LK(3) LK(4) .********************************************************************** LK(5) .* ICIS MAINTAIN SUBSCRIPTION RATE PARAMETERS ICIS LK(6) .********************************************************************** LK(7) * LK(8) &* MODULE NAME: IBL34S01 TYPE: SUBROUTINE_ MODE: STRUCTURED___ LK(9) -* ENVIRONMENT: ON-LINE______ LK(10) * LK(11) * * * * * * * * * * * * * * P R O L O G * * * * * * * * * * * * * * * LK(12) * LK(13) . * FUNCTION: MENU TO ALLOW INQUIRY AND UPDATE OF SUBSCRIPTION RATE LK(14) ..* PARAMETERS LK(15) ..* LK(16) ..* AUTHOR: NILESH PESHAWARIA__________________ DATE WRITTEN: 04/88 LK(17) . * LK(18) .&* ENTER VIA: IBL34P00 SELECT SUBSCRIPTION RATE PARAMETERS___________ LK(19) .-* LK(20) . * PERFORMS: XXXXXXXXX - INQUIRY-ROUTINE____________________ (INTN) LL LM(1) FNR ISN USERTID UPDATE - AI 2006-12-29 11:43:23 8 1165643 ZIIDAP 1 ISN 0011C94B .I. USERID E9C9C9C4C1D7F4F1 ZIIDAP41 LJ ICSUSER3IBL34S01 . LK(1) NAT2 }S 4.1 0003 ICSUSER3IBL34S01ZIIDAP ZIIDAP 14 14 ¨. S LK(2) ... .. Ö}T` l/MVS/ESA COMPLETE 1143240 20061229NCF413 LK(3) &Ö . LK(4) .********************************************************************** LK(5) .* ICIS MAINTAIN SUBSCRIPTION RATE PARAMETERS ICIS LK(6) .********************************************************************** LK(7) * LK(8) &* MODULE NAME: IBL34S01 TYPE: SUBROUTINE_ MODE: STRUCTURED___ LK(9) -* ENVIRONMENT: ON-LINE______ LK(10) * LK(11) * * * * * * * * * * * * * * P R O L O G * * * * * * * * * * * * * * * LK(12) * LK(13) . * FUNCTION: MENU TO ALLOW INQUIRY AND UPDATE OF SUBSCRIPTION RATE LK(14) ..* PARAMETERS LK(15) ..* LK(16) ..* AUTHOR: NILESH PESHAWARIA__________________ DATE WRITTEN: 04/88 LK(17) . * LK(18) .&* ENTER VIA: IBL34P00 SELECT SUBSCRIPTION RATE PARAMETERS___________ LK(19) .-* LK(20) . * PERFORMS: XXXXXXXXX - INQUIRY-ROUTINE____________________ (INTN) LL LM(1) (snip) For more information please see the ADABAS Utility Manual Back to ADABAS Tips, Tricks, Techniques -- Overview |