*       CATALS   A.STSR11                                               00010000
        TITLE 'STSR11-OBTENCI DADES JOB'                               00020000
        PRINT GEN                                                       00030000
STSR11 CSECT                                                            00040000
STSR11   AMODE ANY                                                      00050000
STSR11   RMODE ANY                                                      00060000
STSR1100 HMINICI BASE=(2),AREA=DSAVE(0,14),TIPUS=I                      00070000
 USING PARAMS_REBUTS,R1                                                 00080000
 L R3,ADDR_PARAMETRES                                                   00090000
 DROP R1                                                                00100000
 USING PSA,R0                                                           00110000
 USING KPAR11,R3                                                        00120000
 USING TCB,R4                                                           00130000
 USING TIOT1,R5                                                         00140000
 USING IEZJSCB,R6                                                       00150000
 USING INJMJCT,R7                                                       00160000
 USING IEFAACTB,R8                                                      00170000
 USING TREBALL,R10                                                      00180000
 HMCONTR                                                                00190000
     EJECT                                                              00200000
 LA R10,ADRCVT                                                          00210000
 L R10,0(R10)                                                           00220000
*---                                                                    00230000
 L R4,196(R10)        POINT TO SMCA (CVTSMCA)                           00240000
 MVC SYSID,16(R4)     COPY SMF-ID (SMCASID)                             00250000
 L R4,48(R10)         POINT TO SYSRES UCB (CVTSYSAD)                    00260000
 MVC IPLUNIT,13(R4)   COPY UNIT ADDRESS (UCBNAME)                       00270000
 MVC IPLVOL,28(R4)    COPY VOLUME SERIAL (UCBVOLI)                      00280000
*---                                                                    00290000
 L R4,0(R10)                                                            00300000
 L R4,4(R4)              TCB ACTIVA.                                    00310000
 L R5,TCBTIO                                                            00320000
 L R6,TCBJSCB                                                           00330000
 MVC NOMJOB,TIOCNJOB                                                    00340000
 MVC NOMPAS,TIOCPSTN                                                    00350000
 MVC NOMPAS_PROC,TIOCJSTN                                               00360000
 MVC NOMPGM,JSCBPGMN                                                    00370000
*---     COLLECT THE JOB NUMBER                                         00380000
 L R15,JSCBSSIB       SSIB                                              00390000
 LR R9,R15                                                              00400000
 USING SSIB,R9                                                          00410000
 MVC JOBID,SSIBJBID   JOB NUMBER                                        00420000
 MVC SSID,SSIBSSNM    SUBSYSTEM IDENTIFIER                              00430000
 DROP R9                                                                00440000
*---     COLLECT THE JOB NUMBER                                         00450000
 L R10,JSCBJCT                                                          00460000
 N R10,MASK3              1ER. BYTE A ZERO.                             00470000
 LR R7,R10                                                              00480000
 LA R10,16(R7)                                                          00490000
 LR R7,R10                                                              00500000
 L R10,JCTACTAD                                                         00510000
 SRL R10,8                SHIFT PER A OBTENIR L'ADREA DE LA ACT.       00520000
 LA R10,16(R10)                                                         00530000
 LR R8,R10                                                              00540000
 MVC MSGCLASS,JCTJMGPO                                                  00550000
 MVC JOBCLASS,JCTJCSMF                                                  00560000
 MVC JOBUSER,JCTUSER                                                    00570000
 MVC PFGROUP,JCTPRFMF                                                   00580000
 NI  JOBPRTY,X'00'                                                      00590000
 MVC JOBPRTY+1(L'JCTJPRTY),JCTJPRTY                                     00600000
 NI  JOBPRTY+1,X'0F'                                                    00610000
 MVC ASID,JSCBASID                                                      00620000
 MVC NOMPGMR,ACTPRGNM                                                   00630000
 XC NUMACCOUNT,NUMACCOUNT                                               00640000
 MVC NUMACCOUNT+1(L'ACTJNFLD),ACTJNFLD                                  00650000
 MVC JOBACCOUNT,ACTACCNT                                                00660000
 ICM R1,15,TCBSENV     ADDR THE ACEE                                    00670000
 BNZ GOTACEE           BRANCH IF PRESENT                                00680000
 L R1,PSAAOLD          ADDR OUR ASCB                                    00690000
 USING ASCB,R1                                                          00700000
 L R1,ASCBASXB         ADDR THE ASXB                                    00710000
 USING ASXB,R1                                                          00720000
 L R1,ASXBSENV         ADDR THE ACEE                                    00730000
GOTACEE EQU *                                                           00740000
 LTR R1,R1             TEST ACEE FIRST                                  00750000
 BZ FI                 NO.                                              00760000
 USING ACEE,R1                                                          00770000
 MVC RACFUSER,ACEEUSRI                                                  00780000
 MVC RACFGRUP,ACEEGRPN                                                  00790000
 MVC NOMAPPL,ACEEAPLN                                                   00800000
 IF CLI,IDIOMA,NE,CATALA,AND,CLI,IDIOMA,NE,CASTELLA                     00810000
    B FI                                                                00820000
 ENDIF                                                                  00830000
 IF CLI,PRIMER_COP,NE,NO                                                00840000
    MVI PRIMER_COP,NO                                                   00850000
    MVC KDSNM022,X40                                                    00860000
    XC KPAR3_STS022,KPAR3_STS022                                        00870000
    XC I_NUL,I_NUL                                                      00880000
    XC I_BIT,I_BIT                                                      00890000
    MVI DB2,C'N'                                                        00900000
    MVC PLANDB2,X40                                                     00910000
    MVC PGMDB2,X40                                                      00920000
    MVI DADESDB2,C'?'                                                   00930000
    MVI TIPUSDB2,C'?'                                                   00940000
    MVI DB2DB2,C'?'                                                     00950000
    MVI ENTORNEXEC,C'?'                                                 00960000
    LOAD EP=STS022                                                      00970000
    ST R0,ADDRLOAD                                                      00980000
 EJECT                                                                  00990000
    MVC KDSNM022,X40                                                    01000000
    XC KPAR3_STS022,KPAR3_STS022                                        01010000
    XC I_NUL,I_NUL                                                      01020000
    XC I_BIT,I_BIT                                                      01030000
    MVC KNMDD022,=CL8'STEPLIB'                                          01040000
    L R15,ADDRLOAD                                                      01050000
    CALL (15),(KPAR1_STS022,KPAR2_STS022,KPAR3_STS022),VL,MF=(E,STS22LS*01060000
               T)                                                       01070000
    IF LTR,R15,R15,Z                                                    01080000
       MVC WK_DSN,KDSNM022                                              01090000
       IF CLC,TXT_SYS,EQ,=C'SYS',ANDIF,CLC,TXT_EXG,EQ,=C'EXG',OR,CLC,TX*01100000
               T_EXG,EQ,=C'DB2',OR,CLC,TXT_EXG,EQ,=C'TSO'               01110000
          MVC ENTORNEXEC,YENTR                                          01120000
       ELSE                                                             01130000
          IF CLI,IDIOMA,EQ,CATALA                                       01140000
             LA R9,MSG010K                                              01150000
          ELSE                                                          01160000
             LA R9,MSG010C                                              01170000
          ENDIF                                                         01180000
          PERFORM XWTO                                                  01190000
          ABEND 3010                                                    01200000
       ENDIF                                                            01210000
    ELSE                                                                01220000
       IF C,R15,EQ,NO_DD                                                01230000
          MVC KDSNM022,X40                                              01240000
          XC KPAR3_STS022,KPAR3_STS022                                  01250000
          XC I_NUL,I_NUL                                                01260000
          XC I_BIT,I_BIT                                                01270000
          MVC KNMDD022,=CL8'JOBLIB'                                     01280000
          L R15,ADDRLOAD                                                01290000
          CALL (15),(KPAR1_STS022,KPAR2_STS022,KPAR3_STS022),VL,MF=(E,S*01300000
               TS22LST)                                                 01310000
          IF LTR,R15,R15,Z                                              01320000
             MVC WK_DSN,KDSNM022                                        01330000
             IF CLC,TXT_SYS,EQ,=C'SYS',ANDIF,CLC,TXT_EXG,EQ,=C'EXG',OR,*01340000
               CLC,TXT_EXG,EQ,=C'DB2',OR,CLC,TXT_EXG,EQ,=C'TSO'         01350000
                MVC ENTORNEXEC,YENTR                                    01360000
             ELSE                                                       01370000
                IF CLI,IDIOMA,EQ,CATALA                                 01380000
                   LA R9,MSG011K                                        01390000
                ELSE                                                    01400000
                   LA R9,MSG011C                                        01410000
                ENDIF                                                   01420000
                PERFORM XWTO                                            01430000
                ABEND 3011                                              01440000
             ENDIF                                                      01450000
          ELSE                                                          01460000
             IF CLI,IDIOMA,EQ,CATALA                                    01470000
                LA R9,MSG012K                                           01480000
             ELSE                                                       01490000
                LA R9,MSG012C                                           01500000
             ENDIF                                                      01510000
             PERFORM XWTO                                               01520000
             ABEND 3012                                                 01530000
          ENDIF                                                         01540000
       ELSE                                                             01550000
          IF CLI,IDIOMA,EQ,CATALA                                       01560000
             LA R9,MSG013K                                              01570000
          ELSE                                                          01580000
             LA R9,MSG013C                                              01590000
          ENDIF                                                         01600000
          PERFORM XWTO                                                  01610000
          ABEND 3013                                                    01620000
       ENDIF                                                            01630000
    ENDIF                                                               01640000
 EJECT                                                                  01650000
*                                                                       01660001
*    STS11R SIMULA QUE S DB2 PER A PODER PROVAR LA RUTINA              01670001
*                                                                       01680001
    IF CLC,NOMPGM(8),NE,=C'IKJEFT01',AND,CLC,NOMPGM(6),NE,=C'STS11R'    01690004
       B FI                                                             01700000
    ELSE                                                                01710000
       MVI DB2,C'S'                                                     01720000
    ENDIF                                                               01730000
    MVC KDSNM022,X40                                                    01740000
    XC KPAR3_STS022,KPAR3_STS022                                        01750000
    XC I_NUL,I_NUL                                                      01760000
    XC I_BIT,I_BIT                                                      01770000
    MVC KNMDD022,=CL8'DB2INFO'                                          01780000
    L R15,ADDRLOAD                                                      01790000
    CALL (15),(KPAR1_STS022,KPAR2_STS022,KPAR3_STS022),VL,MF=(E,STS22LS*01800000
               T)                                                       01810000
    IF LTR,R15,R15,Z                                                    01820000
       MVC WK_DSN,KDSNM022                                              01830000
       IF CLC,TXT_SYS,EQ,=C'SYS',AND,CLC,TXT_RA,EQ,=C'RA000'            01840000
          LA R10,UNOMJOB                                                01850000
          LA R11,NOMJOB                                                 01860000
          DO WHILE=(CLI,0(R10),EQ,C' ')                                 01870000
             BCTR R10,R0                                                01880000
             IF CR,R10,LT,R11                                           01890000
                IF CLI,IDIOMA,EQ,CATALA                                 01900000
                   LA R9,MSG014K                                        01910000
                ELSE                                                    01920000
                   LA R9,MSG014C                                        01930000
                ENDIF                                                   01940000
                PERFORM XWTO                                            01950000
                ABEND 3014                                              01960000
             ENDIF                                                      01970000
          ENDDO                                                         01980000
          SR R10,R11                                                    01990000
          LR R9,R10              LONGITUT EXECUTE.                      02000000
          EX R9,CLCJOB                                                  02010000
          IF NE                                                         02020000
             IF CLI,IDIOMA,EQ,CATALA                                    02030000
                LA R9,MSG015K                                           02040000
             ELSE                                                       02050000
                LA R9,MSG015C                                           02060000
             ENDIF                                                      02070000
             PERFORM XWTO                                               02080000
             ABEND 3015                                                 02090000
          ENDIF                                                         02100000
          LA R11,TXT_JOB                                                02110000
          LA R9,2(R10,R11)                                              02120000
          MVC DADESDB2,0(R9)                                            02130000
          MVC TIPUSDB2,1(R9)                                            02140000
          MVC DB2DB2,2(R9)                                              02150000
       ELSE                                                             02160000
          IF CLI,IDIOMA,EQ,CATALA                                       02170000
             LA R9,MSG016K                                              02180000
          ELSE                                                          02190000
             LA R9,MSG016C                                              02200000
          ENDIF                                                         02210000
          PERFORM XWTO                                                  02220000
          ABEND 3016                                                    02230000
       ENDIF                                                            02240000
    ELSE                                                                02250000
       IF C,R15,EQ,NO_DD                                                02260000
          IF CLI,IDIOMA,EQ,CATALA                                       02270000
             LA R9,MSG017K                                              02280000
          ELSE                                                          02290000
             LA R9,MSG017C                                              02300000
          ENDIF                                                         02310000
          PERFORM XWTO                                                  02320000
          ABEND 3017                                                    02330000
       ELSE                                                             02340000
          IF CLI,IDIOMA,EQ,CATALA                                       02350000
             LA R9,MSG018K                                              02360000
          ELSE                                                          02370000
             LA R9,MSG018C                                              02380000
          ENDIF                                                         02390000
          PERFORM XWTO                                                  02400000
          ABEND 3018                                                    02410000
       ENDIF                                                            02420000
    ENDIF                                                               02430000
 EJECT                                                                  02440000
    MVC KDSNM022,X40                                                    02450000
    XC KPAR3_STS022,KPAR3_STS022                                        02460000
    XC I_NUL,I_NUL                                                      02470000
    XC I_BIT,I_BIT                                                      02480000
    MVC KNMDD022,=CL8'DB2PLAN'                                          02490000
    L R15,ADDRLOAD                                                      02500000
    CALL (15),(KPAR1_STS022,KPAR2_STS022,KPAR3_STS022),VL,MF=(E,STS22LS*02510000
               T)                                                       02520000
    IF LTR,R15,R15,Z                                                    02530000
       MVC WK_DSN,KDSNM022                                              02540000
       IF CLC,TXT_SYS,EQ,=C'SYS',AND,CLC,TXT_RA,EQ,=C'RA000'            02550000
          LA R10,UNOMJOB                                                02560000
          LA R11,NOMJOB                                                 02570000
          DO WHILE=(CLI,0(R10),EQ,C' ')                                 02580000
             BCTR R10,R0                                                02590000
             IF CR,R10,LT,R11                                           02600000
                IF CLI,IDIOMA,EQ,CATALA                                 02610000
                   LA R9,MSG019K                                        02620000
                ELSE                                                    02630000
                   LA R9,MSG019C                                        02640000
                ENDIF                                                   02650000
                PERFORM XWTO                                            02660000
                ABEND 3019                                              02670000
             ENDIF                                                      02680000
          ENDDO                                                         02690000
          SR R10,R11                                                    02700000
          LR R9,R10              LONGITUT EXECUTE.                      02710000
          EX R9,CLCJOB                                                  02720000
          IF NE                                                         02730000
             IF CLI,IDIOMA,EQ,CATALA                                    02740000
                LA R9,MSG020K                                           02750000
             ELSE                                                       02760000
                LA R9,MSG020C                                           02770000
             ENDIF                                                      02780000
             PERFORM XWTO                                               02790000
             ABEND 3020                                                 02800000
          ENDIF                                                         02810000
          LA R11,TXT_JOB                                                02820000
          LA R9,2(R10,R11)                                              02830000
          LA R11,8(R9)          APUNTA LTIM NIVELL DSN.                02840000
          LR R10,R9             SALVA ORIGEN PENLTIM NIVELL DSN.       02850000
          DO WHILE=(CLI,0(R10),NE,C'.')                                 02860000
             LA R10,1(0,R10)                                            02870000
             DOEXIT CR,R10,GE,R11     HA ARRIBAT A LTIM NIVELL DSN.    02880000
          ENDDO                                                         02890000
          SR R10,R9                                                     02900000
          IF CH,R10,GT,=H'8'                                            02910000
             IF CLI,IDIOMA,EQ,CATALA                                    02920000
                LA R9,MSG021K                                           02930000
             ELSE                                                       02940000
                LA R9,MSG021C                                           02950000
             ENDIF                                                      02960000
             PERFORM XWTO                                               02970000
             ABEND 3021                                                 02980000
          ENDIF                                                         02990000
          BCTR R10,R0      DECREMENTA LONG. PENLTIM NIVELL PEL 'EX'.   03000000
          LR R11,R10       SALVA LONG. 'EX'.                            03010000
          EX R10,MVCPLAN                                                03020000
          LR R10,R11       RESTAURA LONG. 'EX'.                         03030000
          BCTR R10,R0                                                   03040000
          BCTR R10,R0      EL NOM DE PGM S EL NOM DE PLAN - 2.         03050000
          EX R10,MVCPGM                                                 03060000
       ELSE                                                             03070000
          IF CLI,IDIOMA,EQ,CATALA                                       03080000
             LA R9,MSG022K                                              03090000
          ELSE                                                          03100000
             LA R9,MSG022C                                              03110000
          ENDIF                                                         03120000
          PERFORM XWTO                                                  03130000
          ABEND 3022                                                    03140000
       ENDIF                                                            03150000
    ELSE                                                                03160000
       IF C,R15,EQ,NO_DD                                                03170000
          IF CLI,IDIOMA,EQ,CATALA                                       03180000
             LA R9,MSG023K                                              03190000
          ELSE                                                          03200000
             LA R9,MSG023C                                              03210000
          ENDIF                                                         03220000
          PERFORM XWTO                                                  03230000
          ABEND 3023                                                    03240000
       ELSE                                                             03250000
          IF CLI,IDIOMA,EQ,CATALA                                       03260000
             LA R9,MSG024K                                              03270000
          ELSE                                                          03280000
             LA R9,MSG024C                                              03290000
          ENDIF                                                         03300000
          PERFORM XWTO                                                  03310000
          ABEND 3024                                                    03320000
       ENDIF                                                            03330000
    ENDIF                                                               03340000
 ENDIF                                                                  03350000
*                                                                       03360000
FI EQU *                                                                03370000
 SR R15,R15                                                             03380000
 L R13,4(R13)          RESTAURA ADRECA SAVE AREA INVOCANT.              03390000
 RETURN (14,12),RC=(15)                                                 03400000
 EJECT                                                                  03410000
XWTO HMENTRAC DESC='GENERA MISSATGE A CNSOLA'                          03420000
 WTO TEXT=(R9)                                                          03430000
 HMSURTC                                                                03440000
     DS 0F                                                              03450000
NO       EQU 255                                                        03460000
ADRCVT   EQU 16                                                         03470000
OK       EQU 0                                                          03480000
CATALA   EQU C'K'                                                       03490000
CASTELLA EQU C'C'                                                       03500000
*                                                                       03510000
MASK3    DC  X'00FFFFFF'                                                03520000
X40      DC  44CL1' '                                                   03530000
CLCJOB   CLC 0(0,R11),TXT_JOB                                           03540000
MVCPLAN  MVC PLANDB2(0),0(R9)                                           03550000
MVCPGM   MVC PGMDB2(0),PLANDB2+2                                        03560000
NO_DD    DC F'8'                                                        03570000
 EJECT                                                                  03580000
*                                                                       03590000
*    TAULA MISSATGES CATAL.                                            03600000
*                                                                       03610000
MSG010K  DC AL2(L'TXT010K)                                              03620000
TXT010K  DC C'STSR11S010-FORMAT DE "STEPLIB", INCORRECTE.'              03630000
MSG011K  DC AL2(L'TXT011K)                                              03640000
TXT011K  DC C'STSR11S011-FORMAT DE "JOBLIB", INCORRECTE.'               03650000
MSG012K  EQU *                                                          03660000
MSG013K  EQU *                                                          03670000
MSG024K  EQU *                                                          03680000
MSG018K  DC AL2(L'TXT018K)                                              03690000
TXT018K  DC C'STSR11S018-ERROR "4" EN INVOCACI STS022.'                03700000
MSG014K  DC AL2(L'TXT014K)                                              03710000
TXT014K  DC C'STSR11S014-ERROR AL CERCAR NOMJOB A "DB2INFO".'           03720000
MSG015K  DC AL2(L'TXT015K)                                              03730000
TXT015K  DC C'STSR11S015-FORMAT DSN "DB2INFO" INVLID'                  03740000
MSG016K  DC AL2(L'TXT016K)                                              03750000
TXT016K  DC C'STSR11S016-FORMAT DE "DB2INFO", INCORRECTE.'              03760000
MSG017K  DC AL2(L'TXT017K)                                              03770000
TXT017K  DC C'STSR11S017-MANCA DD "DB2INFO".'                           03780000
MSG019K  DC AL2(L'TXT019K)                                              03790000
TXT019K  DC C'STSR11S019-ERROR AL CERCAR NOMJOB A "DB2PLAN".'           03800000
MSG020K  DC AL2(L'TXT020K)                                              03810000
TXT020K  DC C'STSR11S020-FORMAT DSN "DB2PLAN" INVLID.'                 03820000
MSG021K  EQU *                                                          03830000
MSG022K  DC AL2(L'TXT022K)                                              03840000
TXT022K  DC C'STSR11S022-FORMAT DE "DB2PLAN", INCORRECTE.'              03850000
MSG023K  DC AL2(L'TXT023K)                                              03860000
TXT023K  DC C'STSR11S023-MANCA DD "DB2PLAN".'                           03870000
*                                                                       03880000
*    TABLA MENSAJES EN CASTELLANO.                                      03890000
*                                                                       03900000
MSG010C  DC AL2(L'TXT010C)                                              03910000
TXT010C  DC C'STSR11S010-FORMATO DE "STEPLIB", INCORRECTO.'             03920000
MSG011C  DC AL2(L'TXT011C)                                              03930000
TXT011C  DC C'STSR11S011-FORMATO DE "JOBLIB", INCORRECTO.'              03940000
MSG012C  EQU *                                                          03950000
MSG013C  EQU *                                                          03960000
MSG024C  EQU *                                                          03970000
MSG018C  DC AL2(L'TXT018C)                                              03980000
TXT018C  DC C'STSR11S018-ERROR "4" EN INVOCACIN STS022.'               03990000
MSG014C  DC AL2(L'TXT014C)                                              04000000
TXT014C  DC C'STSR11S014-ERROR AL BUSCAR NOMJOB EN "DB2INFO".'          04010000
MSG015C  DC AL2(L'TXT015C)                                              04020000
TXT015C  DC C'STSR11S015-FORMATO DSN "DB2INFO" INVALIDO.'               04030000
MSG016C  DC AL2(L'TXT016C)                                              04040000
TXT016C  DC C'STSR11S016-FORMATO DE "DB2INFO", INCORRECTO.'             04050000
MSG017C  DC AL2(L'TXT017C)                                              04060000
TXT017C  DC C'STSR11S017-FALTA DD "DB2INFO".'                           04070000
MSG019C  DC AL2(L'TXT019C)                                              04080000
TXT019C  DC C'STSR11S019-ERROR AL BUSCAR NOMJOB EN "DB2PLAN".'          04090000
MSG020C  DC AL2(L'TXT020C)                                              04100000
TXT020C  DC C'STSR11S020-FORMATO DSN "DB2PLAN" INVALIDO.'               04110000
MSG021C  EQU *                                                          04120000
MSG022C  DC AL2(L'TXT022C)                                              04130000
TXT022C  DC C'STSR11S022-FORMATO DE "DB2PLAN", INCORRECTO.'             04140000
MSG023C  DC AL2(L'TXT023C)                                              04150000
TXT023C  DC C'STSR11S023-FALTA DD "DB2PLAN".'                           04160000
 EJECT                                                                  04170000
       LTORG                                                            04180000
TREBALL  DSECT                                                          04190000
* DSECT FICTICIA PER A QUE INFORMI QUIN REGISTRE S DE TREBALL.         04200000
PARAMS_REBUTS DSECT                                                     04210000
ADDR_PARAMETRES DS A                                                    04220000
 EJECT                                                                  04230000
PARAMS_STSR11 EQU *                                                     04240000
*                                                                       04250000
 COPY HMSTS049                                                          04260000
         ORG WKSTSR11                                                   04270000
DSAVE    EQU   *-KPAR11                                                 04280000
SAVEA    DS    18AL4         SAVE AREA.                                 04290000
LSAVEA   EQU   *-SAVEA                                                  04300000
ADDRLOAD DS    F                                                        04310000
PRIMER_COP DS  CL1           SI NO S PRIMER COP = X'FF'.               04320000
WK_DSN  DS 0CL44                                                        04330000
TXT_SYS DS CL3               'SYS'                                      04340000
WK_DSN1 EQU *                                                           04350000
YENTR   DS CL1                                                          04360000
SEP1    DS CL1               '.'                                        04370000
CLIENT  DS CL1                                                          04380000
TXT_EXG DS CL3               'EXG','DB2','TSO'                          04390000
SEP2    DS CL1               '.'                                        04400000
FLLDSN  DS CL36              RESTA DEL NOM DE LA LOADLIB.               04410000
        ORG WK_DSN           MSCARA NOM FITXERS TEMPORALS (&&).        04420000
        DS CL3               'SYS'                                      04430000
TXT_ANY DS CL2                                                          04440000
TXT_DIA DS CL3                                                          04450000
SEPD1   DS CL1               '.'                                        04460000
TXT_T   DS CL1               'T'                                        04470000
TXT_HH  DS CL2                                                          04480000
TXT_MM  DS CL2                                                          04490000
TXT_SS  DS CL2                                                          04500000
SEPD2   DS CL1               '.'                                        04510000
TXT_RA  DS CL5               'RA000'                                    04520000
SEPD3   DS CL1               '.'                                        04530000
FILDSN  DS 0CL21             RESTA DEL DSN.                             04540000
TXT_JOB DS CL8               NOM JOB, FINS A 8 BYTES                    04550000
SEPD4   DS CL1               '.'                                        04560000
PLANDD  DS 0CL8                                                         04570000
TXT_B   DS CL1               'B'                                        04580000
PGMDD   DS CL7                                                          04590000
SEPD5   DS CL1               '.'                                        04600000
TXT_H   DS CL1               'H'                                        04610000
TXT_PLX DS CL2               '01' O SI S SYSPLEX, ID. SISTEMA.         04620000
        ORG PLANDD                                                      04630000
DDB2DD  DS CL1                                                          04640000
TDB2DD  DS CL1                                                          04650000
DB2DD   DS CL1                                                          04660000
STS22LST CALL ,(KPAR1_STS022,KPAR2_STS022,KPAR3_STS022),VL,MF=L         04670000
*                                                                       04680000
PARAMS_STS022 EQU *                                                     04690000
 COPY HMSTS022                                                          04700000
LPARAMS_STS022 EQU *-PARAMS_STS022                                      04710000
 HMSTACK                                                                04720000
LWK_STSR11     EQU *-WKSTSR11                                           04730000
LPARAMS_STSR11 EQU *-PARAMS_STSR11                                      04740000
 EJECT                                                                  04750000
 IEFTIOT1                                                               04760000
 IKJTCB DSECT=YES,LIST=YES                                              04770000
 CVT   DSECT=YES         CVT                                            04780000
 IEZJSCB                                                                04790000
 IEFAJCTB                                                               04800000
 IHAACEE                 ACEE                                           04810000
 ICHPCGRP                CGRP                                           04820000
 IHAASCB LIST=YES        ASCB                                           04830000
 IHAASXB LIST=YES        ASXB                                           04840000
 IHAPSA LIST=YES         PSA                                            04850000
 IEEBASEA                MASTER SCHEDULER RESIDENT DATA AREA            04860000
 IEECHAIN                CSCB                                           04870000
 IHAASVT                 ASVT                                           04880000
 IEFJSSIB                                                               04890000
  END                                                                   04900000
