* %GOTO BSLDFPB; /* 02000000 MACRO 04000000 IKJDFPB 06000000 DFPB DSECT 08000000 DFPBCODE DS 0AL1 DEFAULT ENTRY CODE 10000000 DFPBDSN DS A PTR TO DSLENGTH AND DSNAME 12000000 DFPB0C EQU X'0C' ENTRY CODE '0C' 14000000 DFPB08 EQU X'08' ENTRY CODE '08' 16000000 DFPB04 EQU X'04' ENTRY CODE '04' 18000000 DFPB00 EQU X'00' ENTRY CODE '00' 20000000 DFPB8C EQU X'8C' ENTRY CODE '8C' @YL026YB 20050000 DFPB88 EQU X'88' ENTRY CODE '88' @YL026YB 20100000 DFPB84 EQU X'84' ENTRY CODE '84' @YL026YB 20150000 DFPB80 EQU X'80' ENTRY CODE '80' @YL026YB 20200000 DFPBCNTL DS 0AL1 DEFAULT CONTROL 22000000 DFPBPSCB DS A PTR TO PSCB 24000000 DFPBUID EQU X'20' USERID IS TO BE PREFIXED TO DSNAME 26000000 DFPBRET EQU X'04' RETURN ADDED QUALIFIER 28000000 DFPBADD EQU X'02' ADD SPECIFIED QUALIFIER 30000000 DFPBMSG EQU X'01' ISSUE MESSAGE 32000000 DFPBLORC DS 0AL1 LOCATE RETURN CODE 34000000 DFPBQUAL DS A PTR TO DEFAULT QUALIFIER 36000000 DFPBCAT DS A PTR TO USER CATALOG @YL026YB 36050000 DFPBPSWD DS A PTR TO PASSWORD @YL026YB 36100000 **/ 38000000 MEND 40000000 * %BSLDFPB : ; 42000000 * DECLARE 44000000 * 1 DFPB BASED(DFPLDFPB), 46000000 * 2 DFPBDSN PTR(31), /* PTR TO DSLENGTH AND DSNAME */ 48000000 * 3 DFPBCODE PTR(8), /* DEFAULT ENTRY CODE */ 50000000 * 4 * BIT(4), /* RESERVED */ 52000000 * 4 DFPB08 BIT(1), /* ENTRY CODE '08' */ 54000000 * 4 DFPB04 BIT(1), /* ENTRY CODE '04' */ 56000000 * 2 DFPBPSCB PTR(31), /* PTR TO PSCB */ 58000000 * 3 DFPBCNTL PTR(8), /* DEFAULT CONTROL */ 60000000 * 4 * BIT(2), /* RESERVED */ 62000000 * 4 DFPBUID BIT(1), /* USERID IS TO BE PREFIXED TO */ 64000000 * /* DSNAME @YL026YB*/ 64050000 * 4 * BIT(2), /* RESERVED @YL026YB*/ 66000000 * 4 DFPBRET BIT(1), /* RETURN ADDED QUALIFIER */ 68000000 * 4 DFPBADD BIT(1), /* ADD SPECIFIED QUALIFIER */ 70000000 * 4 DFPBMSG BIT(1), /* ISSUE MESSAGE */ 72000000 * 2 DFPBQUAL PTR(31), /* PTR TO DEFAULT QUALIFIER */ 76000000 * 3 DFPBLORC PTR(8), /* LOCATE RETURN CODE @YL026YB*/ 78000000 * 2 DFPBCAT PTR(31), /* PTR TO USER CATALOG @YL026YB*/ 78050000 * 2 DFPBPSWD PTR(31); /* PTR TO PASSWORD @YL026YB*/ 78150000 * %DECLARE (DFPB00,DFPB0C) CHAR; 80000000 * %DFPB00='''00''X'; /* ENTRY CODE '00' */ 82000000 * %DFPB0C='''0C''X'; /* ENTRY CODE '0C' */ 84000000 * %DECLARE (DFPB80,DFPB84,DFPB88,DFPB8C) CHAR; /* @YL026YB*/ 84050000 * %DFPB80='''80''X'; /* ENTRY CODE '80' @YL026YB*/ 84100000 * %DFPB84='''84''X'; /* ENTRY CODE '84' @YL026YB*/ 84150000 * %DFPB88='''88''X'; /* ENTRY CODE '88' @YL026YB*/ 84200000 * %DFPB8C='''8C''X'; /* ENTRY CODE '8C' @YL026YB*/ 84250000