|
||||||
|---|---|---|---|---|---|---|
| Home | The Company | Publications | Products | Links | Tips | Jobs |
|
|
||||||
|---|---|---|---|---|---|---|
| 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
|
Top Page
ADABAS Tips, Tricks, Techniques -- Overview