* %GOTO PLSXCIN; /* 00010010 MACRO 00020010 TXCIND 00030010 .*A000000-999999 @Y17XAXF 00040010 * 00050010 * CINIT COMMAND DSECT 00060010 * 00070010 IEDXCIND DSECT 00080010 XCINFIXD EQU * FIXED LENGTH DATA 00090010 XCINCODE DS 0CL3 COMMAND CODE 00100010 XCINNETS DS CL1 NETWORK SERVICES 00110010 XCINSESS DS CL1 SESSION SERVICES 00120010 XCINREQ DS CL1 CINIT REQUEST 00130010 XCINFMT DS CL1 FORMAT 00140010 XCINORG DS CL1 INITIATE ORIGIN 00150010 XCINADDR DS CL1 NETWORK ADDRESS OF SLU 00160010 XCINBLEN DS CL2 LENGTH OF BIND IMAGE 00170010 XCINVAR EQU * VARIABLE LENGTH DATA 00180010 XCINBIMG EQU * BIND IMAGE 00190010 XCINNTNM EQU * SECONDARY LU NAME FIELD 00200010 XCINNTYP DS CL1 RESOURCE TYPE 00210010 XCINNLEN DS XL1 LENGTH OF NAME 00220010 XCINNAME EQU * SLU NAME 00230010 XCINRQID EQU * REQUESTOR ID FIELD 00240010 XCINRLEN DS XL1 LENGTH OF ID 00250010 XCINRID EQU * REQUESTOR ID 00260010 XCINPWRD EQU * PASSWORD FIELD 00270010 XCINPLEN DS XL1 LENGTH OF PASSWORD 00280010 XCINPSWD EQU * PASSWORD 00290010 XCINUFLD EQU * USER FIELD 00300010 XCINULEN DS XL1 LENGTH OF USER DATA 00310010 XCINUSFD EQU * USER DATA 00320010 MEND */ 00330010 *%PLSXCIN:; 00340010 */* */ 00350010 */* CINIT COMMAND DSECT */ 00360010 */* */ 00370010 *DCL 1 IEDXCIND BASED(XCINPTR), 00380010 * 2 XCINFIXD, /* FIXED LENGTH DATA */ 00390010 * 3 XCINCODE CHAR(3), /* COMMAND CODE */ 00400010 * 4 XCINNETS CHAR(1), /* NETWORK SERVICES */ 00410010 * 4 XCINSESS CHAR(1), /* SESSION SERVICES */ 00420010 * 4 XCINREQ CHAR(1), /* CINIT REQUEST */ 00430010 * 3 XCINFMT CHAR(1), /* FORMAT */ 00440010 * 3 XCINORG CHAR(1), /* INITIATE ORIGIN */ 00450010 * 3 XCINADDR CHAR(2), /* NETWORK ADDRESS OF SLU */ 00460010 * 3 XCINBLEN CHAR(2), /* LENGTH OF BIND IMAGE */ 00470010 * 2 XCINVAR, /* VARIABLE LENGTH DATA */ 00480010 * 3 XCINBIMG CHAR(0), /* BIND IMAGE */ 00490010 * 3 XCINNTNM, /* SECONDARY LU NAME FIELD */ 00500010 * 4 XCINNTYP CHAR(1), /* RESOURCE TYPE */ 00510010 * 4 XCINNLEN FIXED(8), /* LENGTH OF NAME */ 00520010 * 4 XCINNAME CHAR(0), /* SLU NAME */ 00530010 * 3 XCINRQID, /* REQUESTOR ID FIELD */ 00540010 * 4 XCINRLEN FIXED(8), /* LENGTH OF ID */ 00550010 * 4 XCINRID CHAR(0), /* REQUESTOR ID */ 00560010 * 3 XCINPWRD, /* PASSWORD FIELD */ 00570010 * 4 XCINPLEN FIXED(8), /* LENGTH OF PASSWORD */ 00580010 * 4 XCINPSWD CHAR(0), /* PASSWORD */ 00590010 * 3 XCINUFLD, /* USER FIELD */ 00600010 * 4 XCINULEN FIXED(8), /* LENGTH OF USER DATA */ 00610010 * 4 XCINUSFD CHAR(0); /* USER DATA */ 00620010