* %GOTO PLSTCDS; /* BILINGUAL HEADER 01000010 MACRO 02000010 TTCDSD 03000010 SPACE 04000010 .* CHANGE ACTIVITY AS FOLLOWS: 05000010 .*A000000-999999 @Y17XAX0 05500010 SPACE 07000010 IEDTCDSD DSECT 08000010 * 09000010 * 3705 RESOURCE CDS MAP 10000010 * 11000010 TCDSUCB DS CL4 . CHANNEL ADDRESS 12000010 TCDSFLG1 DS XL1 . TERMINAL FLAGS 13000010 TCDSFEAT DS XL1 . FEATURE FLAG 14000010 TCDSASCI EQU X'80' . ASCII CODE 15000010 TCDSCLS DS XL1 . CLASS 16000010 TCDSCL37 EQU X'44' . 3705 RESOURCE CLASS 17000010 TCDSTYP DS XL1 . TYPE 18000010 TCDSTY37 EQU X'20' . 3705 RESOURCE TYPE 19000010 TCDSCNT DS XL1 . CDS BYTE COUNT 20000010 TCDSSNA EQU X'18' . CDS BYTE COUNT FOR LU 21000010 TCDSLINK EQU X'24' . CDS BYTE COUNT FOR LINK 22000010 TCDSFLG2 DS XL1 . FLAGS 22500010 TCDSSEC EQU X'0A' SECURITY FLAGS 24000010 DS XL2 . RESERVED 25000010 TCDSNAM DS CL8 . 3705 RESOURCE SYMBOLIC NAME 26000010 DS 0XL4 . RESERVED 27000010 * END OF 3767/3770 CDS MAP 28000010 * LINE CDS MAPPING CONTINUES BELOW 29000010 TCDSFXAR DS XL1 . OLTT CONTROL PROGRAM FIXED AREA LEN 30000010 TCDSFXLN EQU X'10' . LENGTH 31000010 TCDSFLG3 DS XL1 . RESERVED 32000010 TCDSFLG4 DS XL1 . RESERVED 33000010 DS XL1 . RESERVED 34000010 TCDSDAF DS XL2 . NETWORK ADDRESS 35000010 DS XL2 . RESERVED 36000010 TCDSDEVT DS XL1 . DEVICE TYPE 37000010 TCDSDVT EQU X'E0' . LINE TYPE 38000010 TCDSLNC DS XL1 . LINE CONTROL 39000010 TCDSLNCD DS XL1 . LINE CODE 40000010 DS XL5 . RESERVED 41000010 SPACE 2 42000010 MEND */ 43000010 *%PLSTCDS : ; 44000010 *DECLARE 45000010 * 1 IEDTCDSD BDY(BYTE) BASED, 46000010 */* */ 47000010 */* 3705 RESOURCE CDS MAP */ 48000010 */* */ 49000010 * 3 TCDSUCB CHAR(4), /* CHANNEL ADDRESS */ 50000010 * 3 TCDSFLG1 CHAR(1), /* TERMINAL FLAGS */ 51000010 * 3 TCDSFEAT CHAR(1), /* FEATURE FLAG */ 52000010 * 3 TCDSCLS CHAR(1), /* CLASS */ 53000010 * 3 TCDSTYP CHAR(1), /* TYPE */ 54000010 * 3 TCDSCNT CHAR(1), /* CDS BYTE COUNT */ 55000010 * 3 TCDSFLG2 CHAR(1), /* FLAGS */ 56000010 * 3 * CHAR(2), /* RESERVED */ 57000010 * 3 TCDSNAM CHAR(8), /* 3705 RESOURCE SYMBOLIC NAME */ 58000010 * 3 * CHAR(4), /* RESERVED */ 59000010 */* END OF 3767/3770 CDS MAP */ 60000010 */* LINE CDS MAPPING CONTINUES BELOW */ 61000010 * 4 TCDSFXAR CHAR(1), /* OLTT CONTROL PROGRAM FIXED AREA 62000010 * LENGTH */ 63000010 * 4 TCDSFLG3 CHAR(1), /* RESERVED */ 64000010 * 4 TCDSFLG4 CHAR(1), /* RESERVED */ 65000010 * 4 * CHAR(1), /* RESERVED */ 66000010 * 3 TCDSDAF CHAR(2), /* NETWORK ADDRESS */ 67000010 * 3 * CHAR(2), /* RESERVED */ 68000010 * 3 TCDSDEVT CHAR(1), /* DEVICE TYPE */ 69000010 * 3 TCDSLNC CHAR(1), /* LINE CODE */ 70000010 * 3 TCDSLNCD CHAR(1), /* LINE CODE */ 71000010 * 3 * CHAR(5); /* RESERVED */ 72000010 *DECLARE TCDSASCI BIT(8) CONSTANT('80'X); /*ASCII CODE */ 73000010 *DECLARE TCDSCL37 BIT(8) CONSTANT('44'X); /* 3705 RESOURCE CLASS */ 74000010 *DECLARE TCDSTY37 BIT(8) CONSTANT('20'X); /* 3705 RESOURCE TYPE */ 75000010 *DECLARE TCDSLINK BIT(8) CONSTANT('24'); /* LINK CDS BYTE COUNT */ 76000010 *DECLARE TCDSSNA BIT(8) CONSTANT('18'X); /* LU CDS BYTE COUNT */ 77000010 *DECLARE TCDSSEC BIT(8) CONSTANT('0A'X); /* SECURITY FLAGS */ 78000010 *DECLARE TCDSFXLN BIT(8) CONSTANT('10'X); /* FIXED AREA LENGTH */ 79000010 *DECLARE TCDSDVT BIT(8) CONSTANT('E0'X); /* LINE TYPE */ 80000010 *%TCDSEND: ; 81000010