* %GOTO PLSXRTD; /* BILINGUAL HEADER 02000000 MACRO 04000000 TXRTDD 06000000 .*A000000-999999 @Y17XAXV 07000000 * ... RECORD TEST DATA ... 08000000 IEDXRTDD DSECT 10000000 XRTDCODE DS 0XL3 COMMAND CODE (FID1) 12000000 XRTDNETS DS XL1 NETWORK SERVICES 14000000 XRTDMAIN DS XL1 MAINTENANCE SERVICES 16000000 XRTDREQ DS XL1 RECORD TEST DATA REQUEST 18000000 XRTDADDR DS XL2 NETWORK ADDRESS 20000000 XRTDPBDU DS 0XL4 PARTIAL BASIC DATA UNIT 22000000 XRTDCMD0 DS XL1 FID0 COMMAND 24000000 XRTDMODF DS XL1 MODIFIER 26000000 XRTDSYSR DS XL1 SYSTEM RESPONSE 28000000 XRTDEXTR DS XL1 EXTENDED RESPONSE 30000000 XRTDEND EQU * END OF RECORD TEST DATA COMMAND 32000000 XRTDTEXT EQU * INTERPRETIVE COMMANDS TEXT 34000000 MEND */ 36000000 *%PLSXRTD:; 38000000 */* */ 40000000 */* ... RECORD TEST DATA ... */ 42000000 */* */ 44000000 * DCL 46000000 * 1 IEDXRTDD BASED(IEDXRTDP), 48000000 * 2 XRTDCODE CHAR(3), /*COMMAND CODE (FID1)*/ 50000000 * 3 XRTDNETS CHAR(1), /*NETWORK SERVICES*/ 52000000 * 3 XRTDMAIN CHAR(1), /*MAINTENANCE SERVICES*/ 54000000 * 3 XRTDREQ CHAR(1), /*RECORD TEST DATA REQUEST*/ 56000000 * 2 XRTDADDR BIT(16), /*NETWORK ADDRESS*/ 58000000 * 2 XRTDPBDU CHAR(4), /*PARTIAL BASIC DATA UNIT*/ 60000000 * 3 XRTDCMD0 CHAR(1), /*FID0 COMMAND*/ 62000000 * 3 XRTDMODF CHAR(1), /*MODIFIER*/ 64000000 * 3 XRTDSYSR CHAR(1), /*SYSTEM RESPONSE*/ 66000000 * 3 XRTDEXTR CHAR(1), /*EXTENDED RESPONSE*/ 68000000 * 2 XRTDEND CHAR(0); /*END OF RECORD TEST DATA COMMAND*/ 70000000 * DCL 72000000 * XRTDTEXT CHAR(*) DEF(XRTDEND);/*INTERPRETIVE COMMANDS TEXT*/ 74000000