* %GO TO SSIBPLS; /* 00500002 MACRO 00550002 IEFJSSIB 00600002 * 00610002 * SUBSYSTEM IDENTIFICATION BLOCK (SSIB) 00612002 * 00620002 * -IDENTIFIES THE SUBSYSTEM TO WHICH A REQUEST FOR SERVICES 00630002 * IS BEING MADE 00640002 * 00642002 * -CONTAINS COMMON CONTROL INFORMATION PASSED BETWEEN THE 00644002 * REQUESTOR AND THE SUBSYSTEM 00644402 * 00644802 SSIB DSECT 00650002 SSIBEGIN EQU * 00700002 SSIBID DC CL4'SSIB' CONTROL BLOCK IDENTIFIER 00750002 SSIBLEN DC AL2(SSIBSIZE) SSIB LENGTH 00800002 SSIBFLG1 DS B FLAGS 00810002 SSIBPJES EQU X'80' THIS SSIB IS USED TO START THE 00820002 * JOB ENTRY SUBSYSTEM 00830002 SSIBRESV DS X RESERVED 00850002 SSIBSSNM DS CL4 SUBSYSTEM NAME 00900002 SSIBJBID DS CL8 JOB IDENTIFIER 00950002 SSIBDEST DS CL8 DEFAULT USERID FOR SYSOUT DESTINATION 01000002 SSIBRSV1 DS F RESERVED 01050002 SSIBSUSE DS F RESERVED FOR SUBSYSTEM USAGE 01100002 SSIBSIZE EQU *-SSIBEGIN SSIB LENGTH 01150002 MEND */ 01200002 * %SSIBPLS:; 01250002 */* */ 01702002 */* SUBSYSTEM IDENTIFICATION BLOCK (SSIB) */ 01704002 */* */ 01706002 */* -IDENTIFIES THE SUBSYSTEM TO WHICH A REQUEST FOR SERVICES */ 01708002 */* IS BEING MADE */ 01708402 */* */ 01708802 */* -CONTAINS COMMON CONTROL INFORMATION PASSED BETWEEN THE */ 01709202 */* REQUESTOR AND THE SUBSYSTEM */ 01709602 */* */ 01709702 * DCL 1 SSIB BASED(SSIBPTR), 01750002 * 2 SSIBID CHAR(4), /* CONTROL BLOCK ID='SSIB' */ 01800002 * 2 SSIBLEN FIXED(15), /* SSIB LENGTH */ 01850002 * 2 SSIBFLG1 BIT(8), /* FLAGS */ 01860002 * 3 SSIBPJES BIT(1), /* THIS SSIB IS USED TO START THE 01880002 * PRIMARY JOB ENTRY SUBSYSTEM */ 01882002 * 3 * BIT(7), /* RESERVED FLAGS */ 01890002 * 2 SSIBRESV CHAR(1), /* RESERVED */ 01900002 * 2 SSIBSSNM CHAR(4), /* SUBSYSTEM NAME */ 01950002 * 2 SSIBJBID CHAR(8), /* JOB IDENTIFIER */ 02000002 * 2 SSIBDEST CHAR(8), /* DEFAULT USERID FOR SYSOUT 02050002 * DESTINATION */ 02100002 * 2 SSIBRSV1 FIXED(31), /* RESERVED */ 02150002 * 2 SSIBSUSE PTR(31); /* RESERVED FOR SUBSYSTEM USAGE */ 02250002