MACRO 01000014 IEESDT 02000014 SPACE 03000014 .* START DESCRIPTOR TABLE 04000014 .* 05000014 .* 06000014 .* 07000014 .* THIS MACRO PROVIDES A MAPPING OF THE START DESCRIPTOR TABLE WHICH 08000014 .* IS USED IN PROCESSING START AND MOUNT COMMANDS. THE TABLE CONTAINS 09000014 .* JOB CONTROL LANGUAGE BUILT FROM THE PARAMETERS SPECIFIED ON THE 10000014 .* COMMAND AND FOUND IN THE COMMAND SCHEDULING CONTROL BLOCK (CSCB). 11000014 .* THIS JCL HAS BEEN SYNTAX CHECKED AND WILL BE MOVED TO THE JOB 12000014 .* CONTROL LANGUAGE SET BY IEEVJCL IN THE L-SHAPED PROGRAM AND 13000014 .* PASSED TO THE INTERPRETER FOR FURTHER CHECKING. THE SIZE OF THIS 14000014 .* TABLE IS VARIABLE DEPENDING ON THE LENGTH OF THE COMMAND RECEIVED. 15000014 .* 16000014 .* 17000014 SPACE 18000014 *********************************************************************** 19000014 * * 20000014 * START DESCRIPTOR TABLE * 21000014 * * 22000014 *********************************************************************** 23000014 SPACE 24000014 * FURTHER DOCUMENTATION OF THIS CONTROL BLOCK CAN BE OBTAINED BY 25000014 * LISTING THE MACRO SINCE MANY OF THE COMMENTS ARE PRECEEDED BY .*, 26000014 * WHICH DO NOT APPEAR DURING ASSEMBLY. 27000014 SPACE 4 28000014 SDTSDT DS 0D 29000014 SDTSIZE DS 1H SIZE OF START DESCRIPTOR TABLE. 30000014 SPACE 31000014 SDTJCLS1 DS 1C IDENTIFIER FLAGS FOR IN-CORE JCL. 32000014 SDTJOB1 EQU 128 BIT 0 - JOB STATEMENT. 33000014 SDTEXEC1 EQU 64 BIT 1 - EXEC STATEMENT. 34000014 SDTDD1 EQU 32 BIT 2 - DD STATEMENT. 35000014 SDTCONT1 EQU 16 BIT 3 - DD STATEMENT CONTINUATION 36000014 SDTJCLL1 DS 1C RESERVED 37000014 SDTJCL1 DS 72C JCL STATEMENT. 38000014 SPACE 39000014 SDTJCLS2 DS 1C IDENTIFIER FLAGS FOR IN-CORE JCL. 40000014 SDTJOB2 EQU 128 BIT 0 - JOB STATEMENT. 41000014 SDTEXEC2 EQU 64 BIT 1 - EXEC STATEMENT. 42000014 SDTDD2 EQU 32 BIT 2 - DD STATEMENT. 43000014 SDTCONT2 EQU 16 BIT 3 - DD STATEMENT CONTINUATION 44000014 SDTJCLL2 DS 1C RESERVED 45000014 SDTJCL2 DS 72C JCL STATEMENT. 46000014 SPACE 47000014 SDTJCLS3 DS 1C IDENTIFIER FLAGS FOR IN-CORE JCL. 48000014 SDTJOB3 EQU 128 BIT 0 - JOB STATEMENT. 49000014 SDTEXEC3 EQU 64 BIT 1 - EXEC STATEMENT. 50000014 SDTDD3 EQU 32 BIT 2 - DD STATEMENT. 51000014 SDTCONT3 EQU 16 BIT 3 - DD STATEMENT CONTINUATION 52000014 SDTJCLL3 DS 1C RESERVED 53000014 SDTJCL3 DS 72C JCL STATEMENT. 54000014 SPACE 55000014 SDTJCLS4 DS 1C IDENTIFIER FLAGS FOR IN-CORE JCL. 56000014 SDTJOB4 EQU 128 BIT 0 - JOB STATEMENT. 57000014 SDTEXEC4 EQU 64 BIT 1 - EXEC STATEMENT. 58000014 SDTDD4 EQU 32 BIT 2 - DD STATEMENT. 59000014 SDTCONT4 EQU 16 BIT 3 - DD STATEMENT CONTINUATION 60000014 SDTJCLL4 DS 1C RESERVED 61000014 SDTJCL4 DS 72C JCL STATEMENT. 62000014 SPACE 63000014 SDTJCLS5 DS 1C IDENTIFIER FLAGS FOR IN-CORE JCL. 64000014 SDTJOB5 EQU 128 BIT 0 - JOB STATEMENT. 65000014 SDTEXEC5 EQU 64 BIT 1 - EXEC STATEMENT. 66000014 SDTDD5 EQU 32 BIT 2 - DD STATEMENT. 67000014 SDTCONT5 EQU 16 BIT 3 - DD STATEMENT CONTINUATION 68000014 SDTJCLL5 DS 1C RESERVED 69000014 SDTJCL5 DS 72C JCL STATEMENT. 70000014 SPACE 71000014 SDTJCLS6 DS 1C IDENTIFIER FLAGS FOR IN-CORE JCL. 72000014 SDTJOB6 EQU 128 BIT 0 - JOB STATEMENT. 73000014 SDTEXEC6 EQU 64 BIT 1 - EXEC STATEMENT. 74000014 SDTDD6 EQU 32 BIT 2 - DD STATEMENT. 75000014 SDTCONT6 EQU 16 BIT 3 - DD STATEMENT CONTINUATION 76000014 SDTJCLL6 DS 1C RESERVED 77000014 SDTJCL6 DS 72C JCL STATEMENT. 78000014 SPACE 79000014 SDTJCLS7 DS 1C IDENTIFIER FLAGS FOR IN-CORE JCL OCIP39A 79050018 SDTJOB EQU 128 BIT 0 - JOB STATEMENT. OCIP39A 79100018 SDTEXEC EQU 64 BIT 1 - EXEC STMT. OCIP39A 79150018 SDTDD EQU 32 BIT 2 - DD STMT. OCIP39A 79200018 SDTCONT EQU 16 BIT 3 - DD STMT. CONTINUATION OCIP39A 79250018 SDTEXCON EQU 8 BIT 4 - EXEC STMT. CONTINUATION OCIP39A 79300018 SDTJCLL7 DS 1C RESERVED OCIP39A 79350018 SDTJCL7 DS 72C JCL STATEMENT OCIP39A 79400018 SPACE 79450018 ** * * * * * WORK AREA FOR IEEVSTAR KEYWORD SCANNING* * * * OCIP39A 79500018 SDTEXPT DS F PT.TO NEXT SLOT WITHIN CURRENT SDT EXEC OCIP39A 79550018 * STMT.-USED FOR KEYWORD SCAN OCIP39A 79600018 SDTDDPT DS F PT. TO NEXT SLOT WITHIN CURRENT SDT DD OCIP39A 79650018 * STMT.-USED FOR KEYWORD SCAN OCIP39A 79700018 SDTPAREN DS F PT. TO MAJOR KEYWORD(IN START BUFFER) OCIP39A 79750018 * THAT FOLLOWS A MAJOR DD KEYWORD OCIP39A 79800018 * ENCLOSED IN PARENTHESES OCIP39A 79850018 * =0 IF VALUE NOT ENCLOSED IN PARENS. OCIP39A 79900018 SDTWORK DS F SDT WORK SPACE Y02669 79910002 SPACE 79950018 SDTEND EQU * 80000014 SDTLN EQU SDTEND-SDTSDT SDT LENGTH 80050002 SPACE 81000014 MEND 82000014