The SCAN function produces a cross reference report
of where the specified 'string' is found in selected
members of a library.
SCAN can also use a 'list' (of strings) as input to a scan
step. This allows multiple strings to be searched for
in a single run.
SV RELEASE: C306M1C FUNCTION: WHERE
VBASE: O : ADPRBH1.ZEX.VBASE DATE: 06/14/2003
SYSLIB: O : ADPRBH1.ZEX.SOURCE TIME: 11:21
ALTLIB: N : *** NOT ALLOCATED *** EXEC: BACKGROUND
COPYLIB: O : ADPRBH1.ZEX.COPY TAPE: D00110
C2COPY: O : ADPRBH1.ZEX.COPY2 USERID: ADPRBH1H
P1PROC: O : ADPRBH1.ZEX.PROC
P2PROC: N : *** NOT ALLOCATED ***
JOBCNTL: O : ADPRBH1.ZEX.JOB
OUTLIB: O : ADPRBH1.ZEX.OUTLIB
PMHELP: N : *** NOT ALLOCATED ***
S1SCEN: N : *** NOT ALLOCATED ***
S2SCEN: N : *** NOT ALLOCATED ***
L1LOAD: I : ADPRBH1.ZEX.LOAD
L2LOAD: N : *** NOT ALLOCATED ***
@SV INPUT:
@SV.SCAN TITLE='SCA: '
@SV MEM=*
@SV STR='WORK-AREA'
@SV
@SV
@SV CAT=WEBSCA01
@SV ERR=GO,PMR=NO
WHERE MESSAGES: 1
------------------------------------------------------------------------------------------------------------------------------------
START: APPLLOAD
START: APPLMAIN
START: APPLRFMT
PM@STF-C02 APPLRC02 ON COPYLIB NOT FOUND OR IS EMPTY SEE APPLRFMT 000290
--------------------
PM@STF-C02 APPLRC04 ON COPYLIB NOT FOUND OR IS EMPTY SEE APPLRFMT 000321
--------------------
PM@STF-C02 APPLRC05 ON COPYLIB NOT FOUND OR IS EMPTY SEE APPLRFMT 000322
--------------------
PM@STF-C02 APPLRC06 ON COPYLIB NOT FOUND OR IS EMPTY SEE APPLRFMT 000323
--------------------
PM@STF-C02 APPLRC07 ON COPYLIB NOT FOUND OR IS EMPTY SEE APPLRFMT 000324
--------------------
PM@STF-C02 APPLRC08 ON COPYLIB NOT FOUND OR IS EMPTY SEE APPLRFMT 000325
--------------------
PM@STF-C02 APPLRC09 ON COPYLIB NOT FOUND OR IS EMPTY SEE APPLRFMT 000326
--------------------
START: APPLSRCH
START: ASMSMPL
PM@STF-15 NO REQUESTED DATA FOUND IN THIS MEMBER SEE ASMSMPL
--------------------
START: CTLCRE8
PM@STF-C02 CTLSELS ON COPYLIB NOT FOUND OR IS EMPTY SEE CTLCRE8 000026
--------------------
PM@STF-C02 CTLFD ON COPYLIB NOT FOUND OR IS EMPTY SEE CTLCRE8 000045
--------------------
PM@STF-15 NO REQUESTED DATA FOUND IN THIS MEMBER SEE CTLCRE8
--------------------
START: CTLRPT
PM@STF-C02 CTLSELS ON COPYLIB NOT FOUND OR IS EMPTY SEE CTLRPT 000025
--------------------
PM@STF-C02 CTLFD ON COPYLIB NOT FOUND OR IS EMPTY SEE CTLRPT 000031
--------------------
PM@STF-15 NO REQUESTED DATA FOUND IN THIS MEMBER SEE CTLRPT
--------------------
START: CTLSTAT
PROGRAM-ID. ISAM-STATUS.
PM@STF-06 PROGRAM-ID NAME LENGTH EXCEEDS 8 SEE CTLSTAT
--------------------
PM@STF-15 NO REQUESTED DATA FOUND IN THIS MEMBER SEE CTLSTAT
--------------------
START: CTLUPDT
PM@STF-C02 CTLSELR ON COPYLIB NOT FOUND OR IS EMPTY SEE CTLUPDT 000026
--------------------
PM@STF-C02 CTLFD ON COPYLIB NOT FOUND OR IS EMPTY SEE CTLUPDT 000031
--------------------
PM@STF-15 NO REQUESTED DATA FOUND IN THIS MEMBER SEE CTLUPDT
--------------------
START: EMPLFN
PM@STF-15 NO REQUESTED DATA FOUND IN THIS MEMBER SEE EMPLFN
--------------------
START: EUROCUR
START: FILEFILE
PM@STF-15 NO REQUESTED DATA FOUND IN THIS MEMBER SEE FILEFILE
WHERE MESSAGES: 2
------------------------------------------------------------------------------------------------------------------------------------
--------------------
START: PL1SMPL
PM@STF-15 NO REQUESTED DATA FOUND IN THIS MEMBER SEE PL1SMPL
--------------------
START: PMRUNSTD
PM@STF-15 NO REQUESTED DATA FOUND IN THIS MEMBER SEE PMRUNSTD
--------------------
CROSS REFERENCE OF STRING SCA: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 1
STRING LINE.MEMBER THAT USED STRING
------- ----------------------------- ---------------------------------------
WORK-AREA C000060.APPLLOAD C000094.APPLLOAD C000049.APPLMAIN C000083.APPLMAIN
000110.APPLMAIN 000133.APPLMAIN 000554.APPLMAIN 000555.APPLMAIN
000556.APPLMAIN 000557.APPLMAIN 000557.APPLMAIN 000561.APPLMAIN
000582.APPLMAIN 000607.APPLMAIN C000279.APPLRFMT C000314.APPLRFMT
C000049.APPLSRCH 000083.APPLSRCH 000097.APPLSRCH 000518.APPLSRCH
000519.APPLSRCH 000520.APPLSRCH 000521.APPLSRCH 000521.APPLSRCH
000525.APPLSRCH 000258.EUROCUR
STLIST: STRING SCA: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 1
RPT
LINE STRING MEMBER
1...5...10...15...20...25...30 61..65...70
1 WORK-AREA/ APPLLOAD
2 WORK-AREA/ APPLMAIN
3 WORK-AREA/ APPLRFMT
4 WORK-AREA/ APPLSRCH
5 WORK-AREA/ EUROCUR
PM@XRF-M04 WEBSCA01 REPLACED IN PMLIB AS: STLIST
--------------------
PM@000-10 NORMAL EOJ CPU HRS:00 MIN:00 SEC:06.45
--------------------
SV RELEASE: C306M1C FUNCTION: WHERE
VBASE: O : ADPRBH1.ZEX.VBASE DATE: 06/14/2003
SYSLIB: O : ADPRBH1.ZEX.SOURCE TIME: 11:21
ALTLIB: N : *** NOT ALLOCATED *** EXEC: BACKGROUND
COPYLIB: O : ADPRBH1.ZEX.COPY TAPE: D00110
C2COPY: O : ADPRBH1.ZEX.COPY2 USERID: ADPRBH1H
P1PROC: O : ADPRBH1.ZEX.PROC
P2PROC: N : *** NOT ALLOCATED ***
JOBCNTL: O : ADPRBH1.ZEX.JOB
OUTLIB: O : ADPRBH1.ZEX.OUTLIB
PMHELP: N : *** NOT ALLOCATED ***
S1SCEN: N : *** NOT ALLOCATED ***
S2SCEN: N : *** NOT ALLOCATED ***
L1LOAD: I : ADPRBH1.ZEX.LOAD
L2LOAD: N : *** NOT ALLOCATED ***
@SV INPUT:
@SV.SCAN TITLE='SCA: '
@SV MEM=*
@SV STR='WORK-AREA'
@SV KWIC
@SV
@SV CAT=WEBSCA02
@SV ERR=GO,PMR=NO
WHERE MESSAGES: 1
------------------------------------------------------------------------------------------------------------------------------------
START: APPLLOAD
START: APPLMAIN
START: APPLRFMT
PM@STF-C02 APPLRC02 ON COPYLIB NOT FOUND OR IS EMPTY SEE APPLRFMT 000290
--------------------
PM@STF-C02 APPLRC04 ON COPYLIB NOT FOUND OR IS EMPTY SEE APPLRFMT 000321
--------------------
PM@STF-C02 APPLRC05 ON COPYLIB NOT FOUND OR IS EMPTY SEE APPLRFMT 000322
--------------------
PM@STF-C02 APPLRC06 ON COPYLIB NOT FOUND OR IS EMPTY SEE APPLRFMT 000323
--------------------
PM@STF-C02 APPLRC07 ON COPYLIB NOT FOUND OR IS EMPTY SEE APPLRFMT 000324
--------------------
PM@STF-C02 APPLRC08 ON COPYLIB NOT FOUND OR IS EMPTY SEE APPLRFMT 000325
--------------------
PM@STF-C02 APPLRC09 ON COPYLIB NOT FOUND OR IS EMPTY SEE APPLRFMT 000326
--------------------
START: APPLSRCH
START: ASMSMPL
PM@STF-15 NO REQUESTED DATA FOUND IN THIS MEMBER SEE ASMSMPL
--------------------
START: CTLCRE8
PM@STF-C02 CTLSELS ON COPYLIB NOT FOUND OR IS EMPTY SEE CTLCRE8 000026
--------------------
PM@STF-C02 CTLFD ON COPYLIB NOT FOUND OR IS EMPTY SEE CTLCRE8 000045
--------------------
PM@STF-15 NO REQUESTED DATA FOUND IN THIS MEMBER SEE CTLCRE8
--------------------
START: CTLRPT
PM@STF-C02 CTLSELS ON COPYLIB NOT FOUND OR IS EMPTY SEE CTLRPT 000025
--------------------
PM@STF-C02 CTLFD ON COPYLIB NOT FOUND OR IS EMPTY SEE CTLRPT 000031
--------------------
PM@STF-15 NO REQUESTED DATA FOUND IN THIS MEMBER SEE CTLRPT
--------------------
START: CTLSTAT
PROGRAM-ID. ISAM-STATUS.
PM@STF-06 PROGRAM-ID NAME LENGTH EXCEEDS 8 SEE CTLSTAT
--------------------
PM@STF-15 NO REQUESTED DATA FOUND IN THIS MEMBER SEE CTLSTAT
--------------------
START: CTLUPDT
PM@STF-C02 CTLSELR ON COPYLIB NOT FOUND OR IS EMPTY SEE CTLUPDT 000026
--------------------
PM@STF-C02 CTLFD ON COPYLIB NOT FOUND OR IS EMPTY SEE CTLUPDT 000031
--------------------
PM@STF-15 NO REQUESTED DATA FOUND IN THIS MEMBER SEE CTLUPDT
--------------------
START: EMPLFN
PM@STF-15 NO REQUESTED DATA FOUND IN THIS MEMBER SEE EMPLFN
--------------------
START: EUROCUR
START: FILEFILE
PM@STF-15 NO REQUESTED DATA FOUND IN THIS MEMBER SEE FILEFILE
WHERE MESSAGES: 2
------------------------------------------------------------------------------------------------------------------------------------
--------------------
START: PL1SMPL
PM@STF-15 NO REQUESTED DATA FOUND IN THIS MEMBER SEE PL1SMPL
--------------------
START: PMRUNSTD
PM@STF-15 NO REQUESTED DATA FOUND IN THIS MEMBER SEE PMRUNSTD
--------------------
KEYWORD IN CONTEXT SCA: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 1
RPT STRING
LINE
1...5...10...15...20...25...30...35...40...45...50...55...60...65...70...75...80 ---KEYWORD--- --MEMBER-- -LINE-
15 PERS-WORK-AREA-CODE PIC X(3). 00230001 WORK-AREA APPLRC01 000060C
15 RESO-WORK-AREA-CODE PIC X(3). 00230001 WORK-AREA APPLRC03 000094C
15 PERS-WORK-AREA-CODE PIC X(3). 00230001 WORK-AREA APPLRC01 000049C
15 RESO-WORK-AREA-CODE PIC X(3). 00230001 WORK-AREA APPLRC03 000083C
05 HH-WORK-AREA PIC 9(3) VALUE 0. 00480000 WORK-AREA APPLMAIN 000110
05 TIME-WORK-AREA. 00710000 WORK-AREA APPLMAIN 000133
MOVE TIME-OF-DAY TO TIME-WORK-AREA. 04700000 WORK-AREA APPLMAIN 000554
MOVE TIME-HH TO HH-WORK-AREA. 04710000 WORK-AREA APPLMAIN 000555
IF HH-WORK-AREA IS GREATER THAN 12 04720000 WORK-AREA APPLMAIN 000556
COMPUTE HH-WORK-AREA = HH-WORK-AREA - 12 04730000 WORK-AREA APPLMAIN 000557
COMPUTE HH-WORK-AREA = HH-WORK-AREA - 12 04730000 WORK-AREA APPLMAIN 000557
MOVE HH-WORK-AREA TO YTIME-HH. 04770000 WORK-AREA APPLMAIN 000561
MOVE WORKAREA TO PERS-WORK-AREA-CODE. 04980000 WORK-AREA APPLMAIN 000582
MOVE WORKAREA TO RESO-WORK-AREA-CODE. 05230000 WORK-AREA APPLMAIN 000607
15 PERS-WORK-AREA-CODE PIC X(3). 00230001 WORK-AREA APPLRC01 000279C
15 RESO-WORK-AREA-CODE PIC X(3). 00230001 WORK-AREA APPLRC03 000314C
15 PERS-WORK-AREA-CODE PIC X(3). 00230001 WORK-AREA APPLRC01 000049C
05 HH-WORK-AREA PIC 9(3) VALUE 0. 00500000 WORK-AREA APPLSRCH 000083
05 TIME-WORK-AREA. 00640000 WORK-AREA APPLSRCH 000097
MOVE TIME-OF-DAY TO TIME-WORK-AREA. 04630000 WORK-AREA APPLSRCH 000518
MOVE TIME-HH TO HH-WORK-AREA. 04640000 WORK-AREA APPLSRCH 000519
IF HH-WORK-AREA IS GREATER THAN 11 04650000 WORK-AREA APPLSRCH 000520
COMPUTE HH-WORK-AREA = HH-WORK-AREA - 12 04660000 WORK-AREA APPLSRCH 000521
COMPUTE HH-WORK-AREA = HH-WORK-AREA - 12 04660000 WORK-AREA APPLSRCH 000521
MOVE HH-WORK-AREA TO YTIME-HH. 04700000 WORK-AREA APPLSRCH 000525
03 EURO-WORK-AREAS. 01930000 WORK-AREA EUROCUR 000258
PM@CTX-M04 WEBSCA02 REPLACED IN PMLIB AS: KWIC
--------------------
PM@000-10 NORMAL EOJ CPU HRS:00 MIN:00 SEC:11.32
--------------------