* %GO TO JNLBSL; /* BILINGUAL MAPPING 00050002 MACRO 00100002 IEFZB507 00150002 * 00200002 * JOURNAL WRITE PARAMETER LIST 00250002 * 00300002 * SU 7 VS2,10/10/75,LEVEL=2 @Z40FPPJ 00360040 * 00400002 JNLPARM DSECT 00450002 JNLPCALL DS CL1 CALLER INDICATOR 00500002 JNLSWAMI EQU X'80' SWA MOVE 00550002 JNLSWALI EQU X'40' SWA LOCATE 00600002 JNLINIT EQU X'20' INITIATOR CALL AFTER ALLOCATION 00650002 JNLDRCT EQU X'10' DIRECT WRITE TO JOURNAL 00700002 JNLPRTCD DS CL1 RETURN CODE FIELD 00750002 JNLERR EQU X'80' JOURNAL ERROR RETURN CODE 00800002 JNLABSNT EQU X'40' NO JOURNAL RETURN CODE 00810002 DS CL2 RESERVED 00850002 JNLPPTRX DS CL4 PTR TO EXTENSION BLOCK @Z40FPPJ 00900040 * 00957040 * 01006040 * 01020040 * JOURNAL PARAMETER LIST EXTENSION 01027040 * 01034040 * SU 7 VS2 ,10/10/75,LEVEL=2 @Z40FPPJ 01041040 * 01042040 JNLPARMX DSECT @Z40FPPJ 01043040 JNLBLKAD DS F PTR TO NON-SWA BLOCK @Z4OFPPJ 01043840 JNLPID DS CL1 NON-SWA BLOCK ID @Z40FPPJ 01044640 JNLPRLNG DS CL3 LENGTH OF BLOCK @Z40FPPJ 01045440 JNLRBN DS CL4 NON-SWA BLOCK RBN OR ZERO @Z40FPPJ 01046240 JNLNBLK DS F PTR TO NEXT PARMLIST EXTENTION OF ZERO 01048040 MEND */ 01050040 *%JNLBSL:; 01100002 */* */ 01110002 */* JOURNAL WRITE PARAMETER LIST */ 01120002 */* VS2 SU 7 10/10/75, LEVEL=2 */ 01130040 */* */ 01140002 * DCL 1 JNLPARM BASED(JNLPTR), 01150002 * 2 JNLPCALL PTR(8), /* CALLER INDICATOR */ 01200002 * 3 JNLSWAMI BIT(1), /* SWA MOVE */ 01250002 * 3 JNLSWALI BIT(1), /* SWA LOCATE */ 01300002 * 3 JNLINIT BIT(1), /* INITIATOR CALL AFTER ALLOCATION */ 01350002 * 3 JNLDRCT BIT(1), /* DIRECT WRITE TO JOURNAL */ 01400002 * 3 * BIT(4), /* RESERVED */ 01450002 * 2 JNLPRTCD PTR(8), /* RETURN CODE FIELD */ 01500002 * 3 JNLERR BIT(1), /* JOURNAL ERROR RETURN CODE */ 01550002 * 3 JNLABSNT BIT(1), /* NO JOURNAL RETURN CODE */ 01560002 * 3 * BIT(6), /* RESERVED */ 01600002 * 2 * CHAR(2), /* RESERVED */ 01650002 * 2 JNLPPTRX PTR(31); /* PTR TO EXTENSION BLOCK @Z40FPPJ*/ 01700040 */* */ 01800040 */* JOURNAL PARAMETER LIST EXTENSION */ 01804040 */* */ 01808040 */* VS2 SU 7 10/10/75,LEVEL=2 @Z40FPPJ*/ 01812040 */* */ 01816040 * DCL 1 JNLPARMX BASED(JNLPPTRX), /*@Z40FPPJ*/ 01819040 * 2 JNLBLKAD PTR(31), /* PTR TO NON-SWA BLK @Z40FPPJ*/ 01823040 * 2 JNLPID PTR(8), /* NON-SWA BLOCK ID @Z40FPPJ*/ 01827040 * 2 JNLPRLNG PTR(24), /* BLOCK LENGTH @Z40FPPJ*/ 01831040 * 2 JNLRBN CHAR(4), /* NON-SWA BLOCK RBN OR ZERO @Z40FPPJ*/ 01835040 * 2 JNLNBLK PTR(31); /* NEXT BLOCK ADDR/ZERO @Z40FPPJ*/ 01839040 */* */ 01850002 */* END JNLPARM */ 01900002