*% GO TO JSELPLS; 00400002 * /*******************************************************************/ 00500010 * /* */ 00550010 * /* STATUS -- */ 00600010 * /* OS/VS2 RELEASE 2, MODIFICATION LEVEL 00 */ 00650002 * /* */ 00700010 * /* FUNCTION -- */ 00750010 * /* DEFINE THE PARAMETER LIST WHICH MUST BE PASSED TO THE JOB */ 00760010 * /* SCHEDULING SUBROUTINE, THE JOB SCHEDULING ENTRANCE LIST */ 00762010 * /* (JSEL) */ 00764010 * /* */ 00770010 * /* ENTRY POINTS -- */ 00780010 * /* NONE */ 00790010 * /* */ 00792010 * /* INPUT -- */ 00794010 * /* NONE */ 00796010 * /* */ 00798010 * /* OUTPUT -- */ 00798410 * /* DATA CONTANTS (ASSEMBLER) OR DECLARATIONS (PLS) DEFINING THE */ 00798802 * /* JSEL */ 00798910 * /* */ 00799210 * /* EXTERNAL REFERENCES -- */ 00799610 * /* NONE */ 00799710 * /* */ 00799810 * /* EXITS, NORMAL -- */ 00799910 * /* NONE */ 00849910 * /* */ 00859910 * /* EXITS, ERROR -- */ 00869910 * /* NONE */ 00879910 * /* */ 00889910 * /* TABLE/WORK AREAS -- */ 00891910 * /* NONE */ 00893910 * /* */ 00895910 * /* ATTRIBUTES -- */ 00897910 * /* NOT APPLICABLE */ 00898310 * /* */ 00898710 * /* NOTES -- */ 00899110 * /* NONE */ 00899510 * /* */ 00899610 * /*******************************************************************/ 00899710 * /* START OF SPECIFICATIONS **** 00899910 *1MODULE-NAME = IEFVJSEL 01200020 * 2PROCESSOR = ASSEMBLER 01600001 **** END OF SPECIFICATIONS ***/ 62000020 * /*******************************************************************/ 62050001 MACRO 62400002 &NAME IEFVJSEL &PREFIX=JSEL /* 62800020 &PREFIX.STRT DS 0F ALIGN THE JSEL ON A FULLWORD BOUNDARY 63200001 DC A(0) RESERVED 63600001 &PREFIX.JSOL DC A(0) ADDRESS OF JOB SCHEDULING OPTIONS LIST 64000020 &PREFIX.CSCB DC A(0) ADDRESS OF CSCB FOR JOBS TO BE SCHEDULED 64400020 &PREFIX.JCL DC A(0) ADDRESS OF JOB CONTROL LANGUAGE SET (JCLS) 64800002 &PREFIX.JSXL DC A(0) ADDRESS OF JOB SCHEDULING EXIT LIST 65200020 &PREFIX.ASCB DC A(0) ASCB ADDRESS Y02669 65250002 &PREFIX.END EQU * END OF JOB SCHEDULING ENTRANCE LIST 65600020 ORG &PREFIX.STRT 66000001 &PREFIX DS CL(&PREFIX.END-&PREFIX.STRT) 66400001 MEND 66800002 **/ % JSELPLS: ; 67200002 * /*******************************************************************/ 67600020 * /* DEFINE A JOB SCHEDULING ENTRANCE LIST */ 68000020 * /*******************************************************************/ 68400020 * DECLARE 68800020 * 1 JSEL BASED( JSELPTR), 69200020 * 69600020 * /* RESERVED */ 69650001 * 2 * POINTER(32), 87600001 * 88000020 * /* POINTER TO A JOB SCHEDULING OPTIONS LIST SPECIFYING */ 88050001 * /* OPTIONS OF THE JOB SCHEDULING SUBROUTINE */ 88850001 * 2 JSELJSOL POINTER(32), 89200020 * 89600020 * /* POINTER TO A CSCB TO BE USED DURING THE SCHEDULING */ 90000020 * /* OF THE JOB */ 90400020 * 2 JSELCSCB POINTER(32), 90800020 * 91200020 * /* POINTER TO JOB CONTROL LANGUAGE SET (JCLS) */ 91600002 * /* DESCRIBING THE JOB TO BE SCHEDULED */ 92000020 * 2 JSELJCL POINTER(32), 92400020 * 92800020 * /* POINTER TO A JOB SCHEDULING EXIT LIST SPECIFYING ANY */ 93200020 * /* SPECIAL EXIT ROUTINES WHICH ARE TO BE INVOKED DURING */ 93600020 * /* JOB SCHEDULING SUBROUTINE PROCESSING. */ 94000020 * 2 JSELJSXL POINTER(32), 94400020 * 2 JSELASCB PTR(32), /* ASCB ADDRESS Y02669*/ 94450002 * 94800020 * /* THIS IS A VARIABLE-LENGTH PARAMETER LIST, SO */ 95200020 * /* THE HIGH-ORDER BIT OF THE LAST POINTER MUST */ 95600020 * /* BE SET TO 1. */ 96000020 * 3 JSELEOL BIT(1); 96400020 *% /* DEFINE THE LENGTH OF THE JSEL */ 96800020 * DECLARE LENJSEL FIXED; 97200020 *% LENJSEL = 24; 97600002