* %GOTO PLSXSCV; /* 02000010 MACRO 04000010 TXSCVD 06000010 .*A000000-999999 @Y17XAXG 08000010 * ... SET CONTROL VECTOR... 10000010 IEDXSCVD DSECT 12000010 XSCVCMD DS 0XL6 SET CONTROL VECTOR CMD 14000010 XSCVCODE DS 0XL3 COMMAND CODE 16000010 XSCVNETS DS XL1 NETWORK SERVICES 18000010 XSCVCONF DS XL1 CONFIGURATION SERVICES 20000010 XSCVREQ DS XL1 SET CONTROL VECTOR REQ 22000010 XSCVADDR DS XL2 NETWORK ADDRESS OF LINK 24000010 XSCVKEY DS XL1 CONTROL VECTOR KEY 26000010 XSCVDATA EQU * CONTROL VECTOR DATA 28000010 MEND */ 30000010 *%PLSXSCV : ; 32000010 *DECLARE 34000010 * 1 IEDXSCVD BASED(XSCVPTR), 36000010 * 2 XSCVCMD CHAR(6), /* SET CONTROL VECTOR CMD */ 38000010 * 3 XSCVCODE CHAR(3), /* COMMAND CODE */ 40000010 * 4 XSCVNETS CHAR(1), /* NETWORK SERVICES */ 42000010 * 4 XSCVCONF CHAR(1), /* CONFIGURATION SERVICES */ 44000010 * 4 XSCVREQ CHAR(1), /* SET CONTROL VECTOR REQ */ 46000010 * 3 XSCVADDR CHAR(2), /* NETWORK ADDRESS OF LINK */ 48000010 * 3 XSCVKEY CHAR(1), /* CONTROL VECTOR KEY */ 50000010 * 2 XSCVDATA CHAR(*); /* CONTROL VECTOR DATA */ 52000010 */* */ 54000010 *DCL 1 XSCVTMDT DEF(XSCVDATA), /* DATA FOR SET TIME & DATE */ 56000010 * 2 XSCVMON CHAR(2), /* MONTH */ 58000010 * 2 XSCVDLM1 CHAR(1), /* DELIMITER */ 60000010 * 2 XSCVCDAY CHAR(2), /* CALENDAR DATE */ 62000010 * 2 XSCVDLM2 CHAR(1), /* DELIMITER */ 64000010 * 2 XSCVYEAR CHAR(2), /* YEAR */ 66000010 * 2 XSCVDLM3 CHAR(1), /* DELIMITER */ 68000010 * 2 XSCVJDAY CHAR(3), /* JULIAN DATE */ 70000010 * 2 XSCVHOUR CHAR(2), /* HOUR */ 72000010 * 2 XSCVDLM4 CHAR(1), /* DELIMITER */ 74000010 * 2 XSCVMIN CHAR(2), /* MINUTES */ 76000010 * 2 XSCVDLM5 CHAR(1), /* DELIMITER */ 78000010 * 2 XSCVSEC CHAR(2); /* SECONDS */ 80000010 */* */ 82000010 *DCL XSCVTDLN FIXED(8) CONSTANT(26); /* LENGTH FOR SET TIME AND 84000010 * DATE SET CONTROL VECTOR */ 86000010 */* */ 88000010