./ ADD NAME=$ASM        01 00 99316 99316 131734 0014 0014 0000 IBMUSER
//IBMUSERA JOB GQSCAN,'JAN JAEGER',NOTIFY=IBMUSER,CLASS=D,MSGCLASS=T    00010000
//ASMA90   EXEC PGM=ASMA90,PARM='DECK,NOOBJ,XREF(SHORT)'                00020000
//SYSPRINT DD  SYSOUT=*                                                 00030000
//SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR                                 00040000
//         DD  DSN=SYS1.MODGEN,DISP=SHR                                 00050000
//SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,10)                                00060000
//SYSPUNCH DD  DSN=&&PUNCH,DISP=(NEW,PASS),                             00070000
//          UNIT=SYSALLDA,SPACE=(CYL,10)                                00080000
//SYSIN    DD  DSN=IBMUSER.SOURCE(JJ$LWA),DISP=SHR                      00090000
//IEWL     EXEC PGM=IEWL                                                00100000
//SYSPRINT DD  SYSOUT=*                                                 00110000
//SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,10)                                00120000
//SYSLMOD  DD  DSN=IBMUSER.LOAD(JJ$LWA),DISP=SHR                        00130000
//SYSLIN   DD  DSN=&&PUNCH,DISP=(OLD,DELETE)                            00140000
./ ADD NAME=JJ$LWA      01 00 99228 99316 131628 0423 0373 0000 IBMUSER
JJ$LWA   CSECT                                                          00010000
*                                                                920428 00020000
* Change History                                                 920428 00030000
* ==============                                                 920428 00040000
* 89.12.12     Jan Jaeger     Initial version of this program.   920428 00050000
* 92.04.28     Bob Hill       Display dummy entries for missing  920428 00060000
*                             RIBEs, and increase QSCNAREA size  920428 00070000
*                             from 1K to approx 63K to minimise  920428 00080000
*                             missing RIBEs as per APAR OY34580  920428 00090000
*                                                                920428 00100000
         SAVE  (14,12),,JJ$LWA-&SYSDATE-&SYSTIME-J.JAEGER               00110000
         LR    R12,R15                                                  00120000
         USING JJ$LWA,R12                                               00130000
*                                                                       00140000
         LR    R2,R1                   Save PARM addr                   00150000
*                                                                       00160000
         GETMAIN RU,LV=CORESIZE        Get storage                      00170000
         LR    R11,R1                  Save corebase                    00180000
         USING CORE,R11                Make core addressable            00190000
*                                                                       00200000
         LA    R15,SAVEAREA            Savearea addr in R15             00210000
         ST    R13,4(,R15)             Store R13 in savearea+4          00220000
         ST    R15,8(,R13)             Store R15 in old S.A.+8          00230000
         LR    R13,R15                 Load new savearea in R13         00240000
*                                                                       00250000
*    *** Start of main program ***                                      00260000
*                                                                       00270000
         LOAD  EP=ISPLINK                                               00280000
         ST    R0,AISPLINK                                              00290000
*                                                                       00300000
*    *** Get Resourcename                                               00310000
*                                                                       00320000
         L     R15,AISPLINK                                             00330000
         CALL  (15),(CONTROL,ERRORS,RETURN),VL,MF=(E,PL)                00340000
         LTR   R10,R15                                                  00350000
         BNZ   EXIT                                                     00360000
*                                                                       00370000
         MVC   TABLENM,TABLEID                                          00380000
         ST    R11,TABLEIDX            Make tablename unique            00390000
*                                                                       00400000
         L     R15,AISPLINK                                             00410000
         CALL  (15),(VDEFINE,ISN,CISN,CHAR,F8),VL,MF=(E,PL)             00420000
         L     R15,AISPLINK                                             00430000
         CALL  (15),(VDEFINE,IJN,CIJN,CHAR,F8),VL,MF=(E,PL)             00440000
         L     R15,AISPLINK                                             00450000
         CALL  (15),(VDEFINE,ISC,CISC,CHAR,F6),VL,MF=(E,PL)             00460000
         L     R15,AISPLINK                                             00470000
         CALL  (15),(VDEFINE,IS1,CIS1,CHAR,F4),VL,MF=(E,PL)             00480000
         L     R15,AISPLINK                                             00490000
         CALL  (15),(VDEFINE,IS2,CIS2,CHAR,F4),VL,MF=(E,PL)             00500000
         L     R15,AISPLINK                                             00510000
         CALL  (15),(VDEFINE,IQN,CIQN,CHAR,F8),VL,MF=(E,PL)             00520000
         L     R15,AISPLINK                                             00530000
         CALL  (15),(VDEFINE,IRN,CIRN,CHAR,F54),VL,MF=(E,PL)            00540000
*                                                                       00550000
         L     R15,AISPLINK                                             00560000
         CALL  (15),(VDEFINE,SYSNAME,CSYSNAME,CHAR,F8),VL,MF=(E,PL)     00570000
         L     R15,AISPLINK                                             00580000
         CALL  (15),(VDEFINE,JOBNAME,CJOBNAME,CHAR,F8),VL,MF=(E,PL)     00590000
         L     R15,AISPLINK                                             00600000
         CALL  (15),(VDEFINE,SCOPE,CSCOPE,CHAR,F6),VL,MF=(E,PL)         00610000
         L     R15,AISPLINK                                             00620000
         CALL  (15),(VDEFINE,STAT1,CSTAT1,CHAR,F4),VL,MF=(E,PL)         00630000
         L     R15,AISPLINK                                             00640000
         CALL  (15),(VDEFINE,STAT2,CSTAT2,CHAR,F4),VL,MF=(E,PL)         00650000
         L     R15,AISPLINK                                             00660000
         CALL  (15),(VDEFINE,QNAME,CQNAME,CHAR,F8),VL,MF=(E,PL)         00670000
         L     R15,AISPLINK                                             00680000
         CALL  (15),(VDEFINE,RNAME,CRNAME,CHAR,F54),VL,MF=(E,PL)        00690000
*                                                                       00700000
         MVC   CISN,=CL8'*'                                             00710000
         MVC   CIJN,=CL8'*'                                             00720000
         MVC   CISC,=CL6'*'                                             00730000
         MVC   CIS1,=CL4'*'                                             00740000
         MVC   CIS2,=CL4'*'                                             00750000
         MVC   CIQN,=CL8'*'                                             00760000
         MVI   CIRN,C' '                                                00770000
         MVC   CIRN+1(L'CIRN-1),CIRN                                    00780000
         LTR   R2,R2                                                    00790000
         BZ    DEFAULT                                                  00800000
         L     R2,0(R2)                                                 00810000
         ICM   R3,B'0011',0(R2)                                         00820000
         BZ    DEFAULT                                                  00830000
         LA    R4,2(R2)                                                 00840000
         BCTR  R3,0                                                     00850000
         EX    R3,RNCOPY                                                00860000
         B     CREATETB                                                 00870000
DEFAULT  EQU   *                                                        00880000
         L     R15,PSAAOLD-PSA                                          00890000
         L     R15,ASCBJBNS-ASCB(,R15)                                  00900000
         MVC   CIRN(8),0(R15)                                           00910000
         LA    R1,CIRN+L'CIRN                                           00920000
         TRT   CIRN,TRTBLANK                                            00930000
         MVC   0(2,R1),=C'.*'                                           00940000
         MVC   MESSAGE,BLANKS                                           00950000
CREATETB EQU   *                                                        00960000
         LA    R1,CIRN+L'CIRN                                           00970000
         TRT   CIRN,TRTASTER                                            00980000
         LA    R2,CIRN                                                  00990000
         SLR   R1,R2                                                    01000000
         STC   R1,GQSLEN                                                01010000
*                                                                       01020000
         LA    R1,CIJN+L'CIJN                                           01030000
         TRT   CIJN,TRTASTER                                            01040000
         LA    R2,CIJN                                                  01050000
         SLR   R1,R2                                                    01060000
         STC   R1,CIJNL                                                 01070000
*                                                                       01080000
         LA    R1,CIQN+L'CIQN                                           01090000
         TRT   CIQN,TRTASTER                                            01100000
         LA    R2,CIQN                                                  01110000
         SLR   R1,R2                                                    01120000
         STC   R1,CIQNL                                                 01130000
*                                                                       01140000
         L     R15,AISPLINK                                             01150000
         CALL  (15),(TBCREATE,TABLENM,0,VARLIST,NOWRITE),VL,MF=(E,PL)   01160000
         L     R15,AISPLINK                                             01170000
         CALL  (15),(TBVCLEAR,TABLENM),VL,MF=(E,PL)                     01180000
*                                                                       01190000
* *** GQSCAN LOOP                                                       01200000
*                                                                       01210000
         XC    QSCNTKN,QSCNTKN         Zero token                       01220000
         MVC   GQSRNAME,CIRN                                            01230000
LOOP     EQU   *                                                        01240000
         MVC   LGQSCAN(EGQSCANL),EGQSCAN                                01250000
         LA    R9,QSCNAREA                                              01260000
         LA    R8,QSCNTKN                                               01270000
         LA    R2,CIQN                 Point to QName                   01280000
         LA    R3,GQSRNAME             Point to RName                   01290000
         IC    R4,GQSLEN               Set RName length                 01300000
         IC    R5,CIQNL                                                 01310000
         GQSCAN AREA=((9),QSCNLEN),    Area for RIB and RIBE           X01320000
               SCOPE=ALL,              No matter what system           X01330000
               TOKEN=(8),              Token to proceed scanning       X01340000
               RESNAME=((2),(3),(4),GENERIC,(5)),                      X01350000
               MF=(E,LGQSCAN)                                           01360000
         LTR   R4,R1                   Save number of RIBs returned     01370000
         BZ    LOOPEND                                                  01380000
         LTR   R3,R15                  Save returncode in R3            01390000
         BZ    RCOK                                                     01400000
         CH    R3,=H'4'                No more users                    01410000
         BE    RCOK                                                     01420000
         CH    R3,=H'8'                More to come                     01430000
         BNE   LOOPEND                                                  01440000
*                                                                       01450000
RCOK     EQU   *                                                        01460000
         USING RIB,R9                                                   01470000
         LH    R6,RIBVLEN                                               01480000
         LA    R6,RIBEND-RIB(R6,R9)                                     01490000
         USING RIBE,R6                                                  01500000
         LA    R5,RIBEND-RIB(R9)       RIBVAR                           01510000
         USING RIBVAR,R5                                                01520000
         ICM   R7,B'1111',RIBNRIBE     Any RIBEs after this RIB? 920428 01530000
         BZ    ENDRIBES                No - end of RIB's RIBEs   920428 01540000
*                                                                       01550000
RIBELOOP EQU   *                                                        01560000
         TM    RIBSCOPE,RIBSTEP                                         01570000
         BO    SKIPRIBE                                          920428 01580000
*                                                                       01590000
         ICM   R15,B'0001',CIJNL                                        01600000
         BZ    NOJN                                                     01610000
         BCTR  R15,0                                                    01620000
         EX    R15,CLCIJN                                               01630000
         BNE   SKIPRIBE                                          920428 01640000
NOJN     EQU   *                                                        01650000
*                                                                       01660000
         MVC   CQNAME,RIBQNAME                                          01670000
         MVI   CRNAME,C' '                                              01680000
         MVC   CRNAME+1(L'CRNAME-1),CRNAME                              01690000
         IC    R15,RIBRNMLN                                             01700000
         BCTR  R15,0                                                    01710000
         EX    R15,MVCRNAME                                             01720000
*                                                                       01730000
         CLI   CISN,C'*'                                                01740000
         BE    ALLSYSN                                                  01750000
         CLC   CISN,RIBESYSN                                            01760000
         BNE   SKIPRIBE                                          920428 01770000
ALLSYSN  EQU   *                                                        01780000
*                                                                       01790000
         MVC   CSYSNAME,RIBESYSN                                        01800000
         MVC   CJOBNAME,RIBEJBNM                                        01810000
*                                                                       01820000
         MVC   CSCOPE,=CL6'Local'                                       01830000
         TM    RIBSCOPE,RIBGLBL                                         01840000
         BZ    ISLOCAL                                                  01850000
         MVC   CSCOPE,=CL6'Global'                                      01860000
ISLOCAL  EQU   *                                                        01870000
*                                                                       01880000
         MVC   CSTAT1,=CL4'Excl'                                        01890000
         TM    RIBERFLG,RIBETYPE                                        01900000
         BZ    ISEXCL                                                   01910000
         MVC   CSTAT1,=CL4'Shr'                                         01920000
ISEXCL   EQU   *                                                        01930000
*                                                                       01940000
         MVC   CSTAT2,=CL4'Wait'                                        01950000
         TM    RIBESFLG,RIBESTAT                                        01960000
         BZ    ISWAIT                                                   01970000
         MVC   CSTAT2,=CL4'Own'                                         01980000
ISWAIT   EQU   *                                                        01990000
*                                                                       02000000
         CLI   CISC,C'*'               Both Local and Global?           02010000
         BE    NOSC                                                     02020000
         CLC   CISC(1),CSCOPE                                           02030000
         BNE   SKIPRIBE                                          920428 02040000
NOSC     EQU   *                                                        02050000
*                                                                       02060000
         CLI   CIS1,C'*'               Both Shr and Excl?               02070000
         BE    NOS1                                                     02080000
         CLC   CIS1(1),CSTAT1                                           02090000
         BNE   SKIPRIBE                                          920428 02100000
NOS1     EQU   *                                                        02110000
*                                                                       02120000
         CLI   CIS2,C'*'               Both Own and Wait?               02130000
         BE    NOS2                                                     02140000
         CLC   CIS2(1),CSTAT2                                           02150000
         BNE   SKIPRIBE                                          920428 02160000
NOS2     EQU   *                                                        02170000
*                                                                       02180000
         CLC   RIBQNAME,=CL8'SPFEDIT'                                   02190000
         BNE   NOFORMAT                                                 02200000
         CLI   RIBRNMLN,52                                              02210000
         BNE   NOFORMAT                                                 02220000
         CLI   RIBRNAME+44,C' '                                         02230000
         BE    NOFORMAT                                                 02240000
         MVC   CRNAME+44(8),BLANKS                                      02250000
         LA    R1,CRNAME+44                                             02260000
         TRT   CRNAME(44),TRTBLANK                                      02270000
         MVI   0(R1),C'('                                               02280000
         MVC   1(8,R1),RIBRNAME+44                                      02290000
         LA    R1,CRNAME+44                                             02300000
         TRT   CRNAME(44),TRTBLANK                                      02310000
         MVI   0(R1),C')'                                               02320000
NOFORMAT EQU   *                                                        02330000
*                                                                       02340000
         L     R15,AISPLINK                                             02350000
         CALL  (15),(TBADD,TABLENM),VL,MF=(E,PL)                        02360000
         LTR   R10,R15                                                  02370000
         BNZ   EXIT                                                     02380000
*                                                                       02390000
SKIPRIBE EQU   *                                                 920428 02400000
         LA    R6,RIBEEND-RIBE(R6)     Point to next RIBE        920428 02410000
         BCT   R7,RIBELOOP                                              02420000
ENDRIBES EQU   *                       End of RIB's RIBEs        920428 02430000
         CLC   RIBTRIBE,RIBNRIBE       Got all RIBEs? (OY34580)  920428 02440000
         BE    NEXTRIB                 Yes - go to next RIB      920428 02450000
*              If RIBTRIBE is not equal to RIBNRIBE, we have     920428 02460000
*              lost some RIBEs for this RIB (see APAR OY34580),  920428 02470000
*              so now we build an dummy table entry containing   920428 02480000
*              question marks to indicate incomplete data.       920428 02490000
         TM    RIBSCOPE,RIBSTEP        Internal ENQ?             920428 02500000
         BO    NEXTRIB                 Yes - skip dummy entry    920428 02510000
         MVC   CQNAME,RIBQNAME         Qname from RIB            920428 02520000
         MVI   CRNAME,C' '                                       920428 02530000
         MVC   CRNAME+1(L'CRNAME-1),CRNAME                       920428 02540000
         IC    R15,RIBRNMLN                                      920428 02550000
         BCTR  R15,0                                             920428 02560000
         EX    R15,MVCRNAME            Rname from RIB            920428 02570000
         MVC   CSYSNAME,=8C'?'         System name unknown       920428 02580000
         MVC   CJOBNAME,=8C'?'         Job name unknown          920428 02590000
         MVC   CSCOPE,=CL6'Local'                                920428 02600000
         TM    RIBSCOPE,RIBGLBL                                  920428 02610000
         BZ    *+10                                              920428 02620000
         MVC   CSCOPE,=CL6'Global'     Scope from RIB            920428 02630000
         MVC   CSTAT1,=8C'?'           Status-1 unknown          920428 02640000
         MVC   CSTAT2,=8C'?'           Status-2 unknown          920428 02650000
         CLC   RIBQNAME,=CL8'SPFEDIT'  Re-format SPFEDIT ENQs    920428 02660000
         BNE   DUMMYADD                                          920428 02670000
         CLI   RIBRNMLN,52                                       920428 02680000
         BNE   DUMMYADD                                          920428 02690000
         CLI   RIBRNAME+44,C' '                                  920428 02700000
         BE    DUMMYADD                                          920428 02710000
         MVC   CRNAME+44(8),BLANKS                               920428 02720000
         LA    R1,CRNAME+44                                      920428 02730000
         TRT   CRNAME(44),TRTBLANK                               920428 02740000
         MVI   0(R1),C'('                                        920428 02750000
         MVC   1(8,R1),RIBRNAME+44                               920428 02760000
         LA    R1,CRNAME+44                                      920428 02770000
         TRT   CRNAME(44),TRTBLANK                               920428 02780000
         MVI   0(R1),C')'                                        920428 02790000
DUMMYADD L     R15,AISPLINK                                      920428 02800000
         CALL  (15),(TBADD,TABLENM),VL,MF=(E,PL)                 920428 02810000
         LTR   R10,R15                                           920428 02820000
         BNZ   EXIT                                              920428 02830000
*                                                                       02840000
NEXTRIB  LR    R9,R6                   Next RIB starts here      920428 02850000
         BCT   R4,RCOK                                                  02860000
*                                                                       02870000
NORIBE   EQU   *                                                        02880000
         CH    R3,=H'8'                                                 02890000
         BE    LOOP                                                     02900000
*                                                                       02910000
LOOPEND  EQU   *                                                        02920000
*                                                                       02930000
* *** GQSCAN END                                                        02940000
*                                                                       02950000
         L     R15,AISPLINK                                             02960000
         CALL  (15),(TBTOP,TABLENM),VL,MF=(E,PL)                        02970000
         L     R15,AISPLINK                                             02980000
         CALL  (15),(TBDISPL,TABLENM,DISPNL,MESSAGE),VL,MF=(E,PL)       02990000
         LR    R10,R15                                                  03000000
         L     R15,AISPLINK                                             03010000
         CALL  (15),(TBEND,TABLENM),VL,MF=(E,PL)                        03020000
         C     R10,F8                  Was 'END' pressed?               03030000
         BNE   CREATETB                                                 03040000
*                                                                       03050000
EXIT     EQU   *                                                        03060000
         DELETE EP=ISPLINK                                              03070000
         L     R13,4(,R13)             Recall R13 from savearea         03080000
         FREEMAIN RU,LV=CORESIZE,A=(11) Free core again                 03090000
         LR    R15,R10                                                  03100000
         RETURN (14,12),RC=(15)        Recall registers & return        03110000
*                                                                       03120000
MVCRNAME MVC   CRNAME(0),RIBRNAME                                       03130000
RNCOPY   OC    CIRN(0),0(R4)                                            03140000
CLCIJN   CLC   CIJN(0),RIBEJBNM                                         03150000
*                                                                       03160000
CHAR     DC    CL8'CHAR'                                                03170000
CONTROL  DC    CL8'CONTROL'                                             03180000
DISPLAY  DC    CL8'DISPLAY'                                             03190000
ERRORS   DC    CL8'ERRORS'                                              03200000
FIXED    DC    CL8'FIXED'                                               03210000
HEX      DC    CL8'HEX'                                                 03220000
NEXT     DC    CL8'NEXT'                                                03230000
NOWRITE  DC    CL8'NOWRITE'                                             03240000
ORDER    DC    CL8'ORDER'                                               03250000
RETURN   DC    CL8'RETURN'                                              03260000
TBADD    DC    CL8'TBADD'                                               03270000
TBCREATE DC    CL8'TBCREATE'                                            03280000
TBVCLEAR DC    CL8'TBVCLEAR'                                            03290000
TBDISPL  DC    CL8'TBDISPL'                                             03300000
TBEND    DC    CL8'TBEND'                                               03310000
TBGET    DC    CL8'TBGET'                                               03320000
TBPUT    DC    CL8'TBPUT'                                               03330000
TBSARG   DC    CL8'TBSARG'                                              03340000
TBSCAN   DC    CL8'TBSCAN'                                              03350000
TBSORT   DC    CL8'TBSORT'                                              03360000
TBTOP    DC    CL8'TBTOP'                                               03370000
VDEFINE  DC    CL8'VDEFINE'                                             03380000
BLANKS   DC    CL8' '                                                   03390000
*                                                                       03400000
TABLEID  DC    CL8'JJ$TXXXX'                                            03410000
*                                                                       03420000
DISPNL   DC    CL8'JJ$PWA'                                              03430000
*                                                                       03440000
SYSNAME  DC    CL8'SYSNAME'                                             03450000
JOBNAME  DC    CL8'JOBNAME'                                             03460000
SCOPE    DC    CL8'SCOPE'                                               03470000
STAT1    DC    CL8'STAT1'                                               03480000
STAT2    DC    CL8'STAT2'                                               03490000
QNAME    DC    CL8'QNAME'                                               03500000
RNAME    DC    CL8'RNAME'                                               03510000
*                                                                       03520000
ISN      DC    CL8'ISN'                                                 03530000
IJN      DC    CL8'IJN'                                                 03540000
ISC      DC    CL8'ISC'                                                 03550000
IS1      DC    CL8'IS1'                                                 03560000
IS2      DC    CL8'IS2'                                                 03570000
IQN      DC    CL8'IQN'                                                 03580000
IRN      DC    CL8'IRN'                                                 03590000
*                                                                       03600000
VARLIST  DC    C'(SYSNAME JOBNAME SCOPE STAT1 STAT2 QNAME RNAME)'       03610000
*                                                                       03620000
F4       DC    F'4'                                                     03630000
F6       DC    F'6'                                                     03640000
F8       DC    F'8'                                                     03650000
F44      DC    F'44'                                                    03660000
F54      DC    F'54'                                                    03670000
*                                                                       03680000
EGQSCAN  GQSCAN MF=L                                                    03690000
EGQSCANL EQU   *-EGQSCAN                                                03700000
*                                                                       03710000
TRTBLANK DC    XL256'00'                                                03720000
         ORG   TRTBLANK+X'00'                                           03730000
         DC    C' '                                                     03740000
         ORG   TRTBLANK+C' '                                            03750000
         DC    C' '                                                     03760000
         ORG                                                            03770000
*                                                                       03780000
TRTASTER DC    XL256'00'                                                03790000
         ORG   TRTASTER+C'*'                                            03800000
         DC    C'*'                                                     03810000
         ORG                                                            03820000
*                                                                       03830000
         LTORG                                                          03840000
*                                                                       03850000
         YREGS                                                          03860000
*                                                                       03870000
CORE     DSECT                                                          03880000
SAVEAREA DS    18F                     Save area                        03890000
TABLENM  DS    CL8                                                      03900000
TABLEIDX EQU   TABLENM+4,1,C'F'                                         03910000
CIJN     DS    CL8                                                      03920000
CIJNL    DS    1X                                                       03930000
CISN     DS    CL8                                                      03940000
CISC     DS    CL6                                                      03950000
CIS1     DS    CL4                                                      03960000
CIS2     DS    CL4                                                      03970000
CIQN     DS    CL8                                                      03980000
CIQNL    DS    1X                                                       03990000
CIRN     DS    CL44                                                     04000000
CJOBNAME DS    CL8                                                      04010000
CSYSNAME DS    CL8                                                      04020000
CSCOPE   DS    CL6                     LOCAL GLOBAL                     04030000
CSTAT1   DS    CL4                     EXCL SHR                         04040000
CSTAT2   DS    CL4                     OWN WAIT                         04050000
CQNAME   DS    CL8                                                      04060000
CRNAME   DS    CL256                                                    04070000
GQSRNAME DS    CL44                    Datasetname for GQSCAN           04080000
AISPLINK DS    1F                                                       04090000
GQSLEN   DS    1X                                                       04100000
PL       DS    20F                                                      04110000
MESSAGE  DS    CL8                     Name of table                    04120000
LGQSCAN  GQSCAN MF=L                                                    04130000
QSCNTKN  DS    1F                                                       04140000
QSCNAREA DS    CL(QSCNLEN)             QSCAN area                920428 04150000
QSCNLEN  EQU   CORE+CORESIZE-QSCNAREA  QSCAN area length         920428 04160000
CORESIZE EQU   16*4096                 Getmain exactly 16 pages  920428 04170000
*                                                                       04180000
         ISGRIB                                                         04190000
         IHAPSA                                                         04200000
         IHAASCB                                                        04210000
*                                                                       04220000
         END                                                            04230000
./ ADD NAME=JJ$PWA      01 01 99228 99228 101409 0014 0014 0000 IBMUSER
)ATTR
  @ TYPE(OUTPUT) INTENS(LOW)
  # TYPE(INPUT) INTENS(HIGH)
)BODY
%------------------------------ GQSCAN -----------------------------------------
%Command ===>_ZCMD                                            %Scroll ===>_ZCSR%
%Sysname  Jobname  Scope  Type Stat  Qname    Rname
#ISN     #IJN     #ISC   #IS1 #IS2  #IQN     #IRN
)MODEL
@Z       @Z       @Z     @Z   @Z    @Z       @Z
)INIT
  .ZVARS = '(SYSNAME JOBNAME SCOPE STAT1 STAT2 QNAME RNAME)'
)END
