* % GOTO JSOLPLS; 00300002 * /*******************************************************************/ 00600020 * /* */ 00900020 * /* STATUS -- */ 01200020 * /* RELEASE OS/VS2 RELEASE 4, MODIFICATION LEVEL 00 */ 01500003 * /* */ 02100020 * /* FUNCTION -- */ 02400020 * /* DEFINE THE STRUCTURE AND PROPER USE OF THE JOB SCHEDULING */ 02700020 * /* OPTIONS LIST (JSOL) */ 03000020 * /* */ 03300020 * /* ENTRY POINTS -- */ 03600020 * /* NONE */ 03900020 * /* */ 04200020 * /* INPUT -- */ 04500020 * /* NONE */ 04800020 * /* */ 05100020 * /* OUTPUT -- */ 05400020 * /* DATA CONSTANTS (ASSEMBLER) OR DECLARATIONS OF THE VARIABLES */ 05700020 * /* WHICH CONSTITUTE THE JSOL. */ 06000020 * /* */ 06300020 * /* EXTERNAL REFERENCES -- */ 06600020 * /* NONE */ 06900020 * /* */ 07200020 * /* EXITS, NORMAL -- */ 07500020 * /* NONE */ 07800020 * /* */ 08100020 * /* EXITS, ERROR -- */ 08400020 * /* NONE */ 08700020 * /* */ 09000020 * /* TABLE/WORK AREAS -- */ 09300020 * /* NONE */ 09600020 * /* */ 09900020 * /* ATTRIBUTES -- */ 10200020 * /* NOT APPLICABLE */ 10500020 * /* */ 10800020 * /* NOTES -- */ 11100020 * /* NONE */ 11400020 * /* */ 11700020 * /*******************************************************************/ 12000020 * /* START OF SPECIFICATIONS **** 12300020 *1MODULE-NAME = IEFVJSOL 12600020 * 2PROCESSOR = ASSEMBLER 12900001 **** END OF SPECIFICATIONS ***/ 66900020 * /*******************************************************************/ 66950001 MACRO 67200020 &NAME IEFVJSOL &PREFIX=JSOL /* 67500020 &NAME DS 0D ALIGN THE JSOL ON A DOUBLEWORD BOUNDARY 67800020 &PREFIX.LGTH DC AL2(&PREFIX.END-&PREFIX) LENGTH OF THE JSOL 68100020 &PREFIX.FLAG DC X'00' FLAG BYTE 68400002 &PREFIX.NSYS EQU X'80' NO SYSTEM TASKS Y02669 68450002 &PREFIX.RAC EQU X'40' BYPASS RACINIT @Z40RPSQ 68500003 * EQU X'20' RESERVED 68550002 * EQU X'10' RESERVED 68600002 &PREFIX.SMS1 EQU X'08' SUPPRESS SYSTEM TASK CONTROL MESSAGES 69900020 * EQU X'04' RESERVED 70200002 * EQU X'02' RESERVED 70400002 * EQU X'01' RESERVED 70600002 &PREFIX.OPTS DC AL1(0) OPTIONS FOR THE JOB SCHEDULING SUBROUTINE 72500001 * 01012 72510001 &PREFIX.RCVY EQU X'80' INDICATES ANY JOB REQUIRING ALLOCATION 72550001 * RECOVERY IS TO BE FAILED 01012 72552001 * EQU X'40' RESERVED 72560002 * EQU X'20' RESERVED 72570002 &PREFIX.ENQU EQU X'10' INDICATES THE JOB IS TO BE FAILED IF THE 72580001 * DATA SETS WHICH ARE REQUIRED CANNOT BE 72582001 * OBTAINED IMMEDIATELY OR CANNOT BE OBTAINED 72584001 * AT ALL. 01012 72586001 * EQU X'08' RESERVED 72588002 * EQU X'04' RESERVED 72638002 * EQU X'02' RESERVED 01018 72696002 * EQU X'01' RESERVED 01018 72698002 &PREFIX.RSV1 DC F'0' RESERVED 72748002 &PREFIX.DEST DC CL8' ' DEFAULT USERID FOR SYSOUT Y02664 72800002 * DESTINATION Y02664 72850002 &PREFIX.TPR DS CL24 TIOT PROLOGUE TO BE SUBSTITUTED FOR THE *72900020 PROLOGUE OF THE MODEL TIOT 73200020 ORG &PREFIX.TPR 73500020 &PREFIX.TJOB DC CL8' ' JOBNAME FIELD FOR TIOT PROLOGUE 73800020 &PREFIX.TSTE DC CL8' ' STEPNAME FIELD FOR TIOT PROLOGUE 74100020 &PREFIX.TPRO DC CL8' ' PROCSTEPNAME FIELD FOR TIOT PROLOGUE 74400020 &PREFIX.END EQU * END OF JOB SCHEDULING OPTIONS LIST 74700020 ORG &PREFIX.LGTH 75000020 &PREFIX DS CL(&PREFIX.END-&PREFIX.LGTH) 75300020 MEND 75600020 **/ % JSOLPLS: ; 75900002 * /*******************************************************************/ 76200020 * /* DEFINE THE JOB SCHEDULING OPTIONS LIST */ 76500020 * /*******************************************************************/ 76800020 * DECLARE 77100020 * 1 IEFVJSOL BASED( JSOLPTR) BOUNDARY( DWORD), 77400020 * 77700020 * /* HALFWORD BINARY INTEGER FIELD PROVIDING THE LENGTH */ 78000020 * /* OF THE JSOL IN BYTES */ 78300020 * 2 JSOLLGTH FIXED(15), 78600020 * 78900020 * /* EIGHT-BIT BIT STRING FIELD */ 79200020 * 2 JSOLFLAG BIT(8), 79500020 * 79800020 * 3 JSOLNSYS BIT(1), /* NO SYSTEM TASKS Y02669 */ 80400003 * 3 JSOLRAC BIT(1), /* BYPASS RACINIT @Z40RPSQ*/ 80500003 * 80799901 * 3 * BIT(2), /* RESERVED @Z40RPSQ*/ 80849903 * 82580020 * /* BIT INDICATING THAT SYSTEM TASK CONTROL MESSAGES */ 82600020 * /* ARE TO BE SUPPRESSED */ 82620020 * 3 JSOLSMS1 BIT(1), 82640020 * 82660020 * 3 * BIT(3), /* RESERVED */ 83220002 * 83320020 * /* OPTIONS OF THE JOB SCHEDULING SUBROUTINE 01012 */ 84950001 * 2 JSOLOPTS BIT(8), 85000001 * 85050001 * /* INDICATES ANY JOB WHICH ALLOCATION RECOVERY IN */ 85100001 * /* ORDER TO BE RUN IS TO BE FAILED. 01012 */ 85150001 * 3 JSOLRCVY BIT(1), 85160001 * 85170001 * 3 * BIT(2), /* RESERVED */ 85198402 * 85198801 * /* JOBS TO BE SCHEDULED BY THE JOB SCHEDULING SUBROUTINE*/ 85199201 * /* ARE TO BE FAILED IF THE DATA SETS WHICH THEY */ 85199601 * /* REQUIRE CANNOT BE OBTAINED IMMEDIATELY 01012 */ 85199701 * 3 JSOLENQU BIT(1), 85199802 * 85199901 * 3 * BIT(4), /* RESERVED */ 85291902 * 85299901 * 2 * FIXED(31), /* RESERVED */ 86700002 * 86800002 * 2 JSOLDEST CHAR(8), /* DEFAULT USER ID FOR Y02664 86850002 * SYSOUT DESTINATION Y02664*/ 86900002 * 87000020 * /* TIOT PROLOGUE FIELD */ 87300020 * 2 JSOLTPR CHARACTER(24), 87600020 * 87900020 * /* TIOT PROLOGUE JOBNAME FIELD */ 88200020 * 3 JSOLTJOB CHARACTER(8), 88500020 * 88800020 * /* TIOT PROLOGUE STEPNAME FIELD */ 89100020 * 3 JSOLTSTE CHARACTER(8), 89400020 * 89700020 * /* TIOT PROLOGUE PROCSTEPNAME FIELD */ 90000020 * 3 JSOLTPRO CHARACTER(8); 90300020 *% DECLARE 90600020 * LENJSOL FIXED; 90900020 *% LENJSOL = 40; 91200002