* /* */ 00650002 * /* MACCOMP Y-2 SC1DE/SJD61 */ 00700002 * /* MACSTAT Y-2 73103/Y02113 */ 00750002 * /* */ 00800002 %IDASMFR: MACRO; 00850002 DCL R CHAR; /*MACLIST ENTRY BEING PROCD*/ 01200000 DCL I FIXED; /*MACLIST NUMBER BEING PROCD*/ 01800000 DCL H CHAR; /*LABEL NAME HEADER*/ 02400000 DCL T CHAR; 03000000 DCL D CHAR; 03600000 I=0; /*INIT COUNTER*/ 04200000 START: 04800000 I=I+1; /*BUMP ENTRY NBR*/ 05400000 IF I>NUMBER(MACLIST) THEN GOTO SMFREND; /*EXIT IF ALL PROC DONE*/ 06000000 R=MACLIST(I); 06600000 IF R='62' THEN GOTO BEGIN; /*RECORD 62 IS SUPPORTED*/ 07200000 IF R='63' THEN GOTO BEGIN; /*RECORD 63 IS SUPPORTED*/ 07800000 IF R='64' THEN GOTO BEGIN; /*RECORD 64 IS SUPPORTED*/ 08400000 IF R='67' THEN GOTO BEGIN; /*RECORD 67 IS SUPPORTED*/ 09000000 IF R='68' THEN GOTO BEGIN; /*RECORD 68 IS SUPPORTED*/ 09600000 IF R='69' THEN GOTO BEGIN; /*RECORD 69 IS SUPPORTED*/ 10200000 GOTO START; 10800000 BEGIN: 11400000 ANS ('/* SMF RECORD '||R||'*/') COL(6); 12000000 ANS ('DCL 1 SMFRCD'||R||' BASED,/*FIRST LEVEL DCL*/') SKIP COL(4); 12600000 H='SMF'||R;/*FORM HEADER*/ 13200000 T='2 '||H; 13800000 D=' 3 '||H; 14400000 ANS (T||'LEN FIXED(15),/*RECORD LENGTH*/') SKIP COL(10); 15000000 ANS (T||'SEG FIXED(15),/*SEGMENT DESCRIPTION*/') SKIP COL(10); 15600000 ANS (T||'RSV CHAR(1),/*RESERVED*/') SKIP COL(10); 16200000 ANS (T||'RTY FIXED(8),/*RECORD TYPE '||R||'*/') SKIP COL(10); 16800000 ANS (T||'TME CHAR(4),/*TIME OF DAY*/') SKIP COL(10); 17400000 ANS (T||'DTE CHAR(4),/*DATE*/') SKIP COL(10); 18000000 ANS (T||'SID CHAR(2),/*SYSTEM IDENTIFICATION*/') SKIP COL(10); 18600000 ANS (T||'MOD CHAR(2),/*SYSTEM MODULE ID*/') SKIP COL(10); 19200000 ANS (T||'JNM CHAR(8),/*JOB NAME*/') SKIP COL(10); 19800000 ANS (T||'RST CHAR(4),/*READER START TIME*/') SKIP COL(10); 20400000 ANS (T||'RDT CHAR(4),/*READER START DATE*/') SKIP COL(10); 21000000 ANS (T||'UID CHAR(8),/*USER INDENTIFICATION*/') SKIP COL(10); 21600000 IF R='62' THEN GOTO REC62; 22200000 IF R='63' THEN GOTO REC63; 22800000 IF R='64' THEN GOTO REC64; 23400000 IF R='67' THEN GOTO REC67; 24000000 IF R='68' THEN GOTO REC68; 24600000 IF R='69' THEN GOTO REC69; 25200000 GOTO START; 25800000 REC62: 26400000 ANS (T||'IND BIT(32),/*GOOD/BAD INDICATORS*/') SKIP COL(10); 27000000 ANS (D||'OOK BIT(1),/*OPEN WAS SUCCESSFUL*/') SKIP COL(10); 27600000 ANS (D||'SVL BIT(1),/*SECURITY VIOLATION*/') SKIP COL(10); 28200000 ANS (T||'CNM CHAR(44),/*CATALOG DATA SET NAME*/') SKIP COL(10); 28800000 ANS (T||'CVS CHAR(6),/*CATALOG VOLUME SERIAL*/') SKIP COL(10); 29400000 ANS (T||'DNM CHAR(44),/*DATA SET NAME*/') SKIP COL(10); 30000000 ANS (T||'VCT FIXED(15),/*VOLUME COUNT*/') SKIP COL(10); 30600000 ANS (T||'VLT (*),/*VOLUME LIST*/') SKIP COL(10); 31200000 ANS (D||'VSR CHAR(6),/*VOLUME SERIAL*/') SKIP COL(10); 31800000 ANS (D||'DTY CHAR(4);/*DEVICE TYPE*/') SKIP COL(10); 32400000 GOTO START; 33000000 REC63: 33600000 ANS (T||'CIN FIXED(15),/*INDICATORS*/') SKIP COL(10); 34200000 ANS (T||'NES FIXED(15),/*NEW CATALOG ENT SIZE*/') SKIP COL(10); 34800000 ANS (T||'OES FIXED(15),/*OLD CATALOG ENT SIZE*/') SKIP COL(10); 35400000 ANS (T||'CNM CHAR(44),/*CATALOG NAME*/') SKIP COL(10); 36000000 ANS (T||'NCT CHAR(*);/*NEW CATALOG ENT*/') SKIP COL(10); 36600000 ANS ('DCL '||H||'OCT CHAR(*) BASED;/*OLD CATALOG ENT*/') SKIP COL(4);37200000 GOTO START; 37800000 REC64: 38400000 ANS (T||'RIN BIT(8),/*RECORDING INDICATORS*/') SKIP COL(10); 39000000 ANS (D||'CLO BIT(1),/*RCD WRITTEN BY CLOSE*/') SKIP COL(10); 39600000 ANS (D||'VSW BIT(1),/*RCD BY EOV-VOL SWITCH*/') SKIP COL(10); 40200000 ANS ('3 '||H||'OSP BIT(1),/*RCD BY EOV-OUT OF SPACE*/') SKIP COL(12);40800000 ANS (T||'DTY BIT(8),/*DATA SET TYPE*/') SKIP COL(10); 41400000 ANS (D||'DTA BIT(1),/*DATA*/') SKIP COL(10); 42000000 ANS (D||'IDX BIT(1),/*INDEX*/') SKIP COL(10); 42600000 ANS (T||'CNM CHAR(44),/*CATALOG NAME*/') SKIP COL(10); 43200000 ANS (T||'DNM CHAR(44),/*DATA SET NAME*/') SKIP COL(10); 43800000 ANS (T||'NTR FIXED(15),/*NBR OF TRACKS REQD*/') SKIP COL(10); 44400000 ANS (T||'CHR CHAR(4),/*CURRENT HIGH RBA*/') SKIP COL(10); 45000000 ANS (T||'ESL FIXED(15),/*EXTENT SEGMENT LGTH*/') SKIP COL(10); 45600000 ANS (T||'FEX CHAR(0);/*FIRST EXTENT*/') SKIP COL(10); 46200000 ANS ('/* EXTENT TABLE - ONE PER VOLUME ON LINE AT TIME RECORD 64 WRIT46800000 TEN */') SKIP COL(6); 47400000 ANS ('DCL 1 '||H||'EXT BASED,/*TABLE OF EXTENTS*/') SKIP COL(4); 48000000 ANS (D||'FCC CHAR(4),/*FROM CCHH*/') SKIP COL(10); 48600000 ANS (D||'TCC CHAR(4),/*TO CCHH*/') SKIP COL(10); 49200000 ANS (D||'VSN CHAR(6),/*VOLUME SERIAL NBR*/') SKIP COL(10); 49800000 ANS (D||'CUS CHAR(4),/*CUU AND SPINDLE ID*/') SKIP COL(10); 50400000 ANS ('3 '||H||'UTY CHAR(4),/*UNIT TYPE - UCBTYPE */') SKIP COL(12); 51000000 ANS (' 3 * CHAR(4);/*RESERVED*/') SKIP COL(10); 51600000 ANS ('/* STATISTICS AT OPEN TIME */') SKIP COL(6); 52200000 ANS ('DCL 1 '||H||'STS BASED,/*DATA SET STATISTICS*/') SKIP COL(4); 52800000 ANS (T||'SLN FIXED(31),/*STATISTICS SEG LGTH*/') SKIP COL(10); 53400000 ANS (T||'NIL FIXED(31),/*NBR-INDEX LEVEL-OPEN*/') SKIP COL(10); 54000000 ANS (T||'NEX FIXED(31),/*NBR-EXTENTS-OPEN*/') SKIP COL(10); 54600000 ANS (T||'NLR FIXED(31),/*NBR-LOGICAL RCD-OPEN*/') SKIP COL(10); 55200000 ANS (T||'NDE FIXED(31),/*NBR-DELETES-OPEN*/') SKIP COL(10); 55800000 ANS (T||'NIN FIXED(31),/*NBR-INSERTS-OPEN*/') SKIP COL(10); 56400000 ANS (T||'NUP FIXED(31),/*NBR-UPDATES-OPEN*/') SKIP COL(10); 57000000 ANS (T||'NRE FIXED(31),/*NBR-RETRIEVES-OPEN*/') SKIP COL(10); 57600000 ANS (T||'NFS FIXED(31),/*NBR-FREE SPACE-OPEN*/') SKIP COL(10); 58200000 ANS (T||'NCS FIXED(31),/*NBR-CI SPLITS-OPEN*/') SKIP COL(10); 58800000 ANS (T||'NAS FIXED(31),/*NBR-CA SPLITS-OPEN*/') SKIP COL(10); 59400000 ANS (T||'NEP FIXED(31),/*NBR-EXCPS COUNT-OPEN*/') SKIP COL(10); 60000000 ANS ('/*CHANGE IN STATISTICS DURING PROCESSING*/') SKIP COL(6); 60600000 ANS (T||'DIL FIXED(31),/*CHANGE-NBR INDEX LEVEL*/') SKIP COL(10); 61200000 ANS (T||'DEX FIXED(31),/*CHANGE-NBR EXTENTS*/') SKIP COL(10); 61800000 ANS (T||'DLR FIXED(31),/*CHANGE-NBR LOGICAL RCD*/') SKIP COL(10); 62400000 ANS (T||'DDE FIXED(31),/*CHANGE-NBR DELETES*/') SKIP COL(10); 63000000 ANS (T||'DIN FIXED(31),/*CHANGE-NBR INSERTS*/') SKIP COL(10); 63600000 ANS (T||'DUP FIXED(31),/*CHANGE-NBR UPDATES*/') SKIP COL(10); 64200000 ANS (T||'DRE FIXED(31),/*CHANGE-NBR RETRIEVES*/') SKIP COL(10); 64800000 ANS (T||'DFS FIXED(31),/*CHANGE-NBR FREE SPACE*/') SKIP COL(10); 65400000 ANS (T||'DCS FIXED(31),/*CHANGE-NBR CI SPLITS*/') SKIP COL(10); 66000000 ANS (T||'DAS FIXED(31),/*CHANGE-NBR CA SPLITS*/') SKIP COL(10); 66600000 ANS (T||'DEP FIXED(31);/*CHANGE-NBR EXCP COUNT*/') SKIP COL(10); 67200000 GOTO START; 67800000 REC67: 68400000 ANS (T||'DIN BIT(8),/*DELETE INDICATORS*/') SKIP COL(10); 69000000 ANS (D||'UNC BIT(1),/*UNCATALOG*/') SKIP COL(10); 69600000 ANS (D||'SCR BIT(1),/*SCRATCH*/') SKIP COL(10); 70200000 ANS (T||'DTY BIT(8),/*DATA SET TYPE*/') SKIP COL(10); 70800000 ANS (D||'CLS BIT(1),/*CLUSTER*/') SKIP COL(10); 71400000 ANS (D||'USR BIT(1),/*USER DATA SET*/') SKIP COL(10); 72000000 ANS (D||'IDX BIT(1),/*INDEX DATA SET*/') SKIP COL(10); 72600000 ANS (T||'CNM CHAR(44),/*CATALOG NAME*/') SKIP COL(10); 73200000 ANS (T||'DNM CHAR(44),/*DATA SET NAME*/') SKIP COL(10); 73800000 ANS (T||'CES FIXED(15),/*CATALOG ENTRY SIZE*/') SKIP COL(10); 74400000 ANS (T||'CEN CHAR(*);/*CATALOG ENTRY*/') SKIP COL(10); 75000000 GOTO START; 75600000 REC68: 76200000 ANS (T||'CNM CHAR(44),/*CATALOG NAME*/') SKIP COL(10); 76800000 ANS (T||'ONM CHAR(44),/*OLD DATA SET NAME*/') SKIP COL(10); 77400000 ANS (T||'NNM CHAR(44);/*NEW DATA SET NAME*/') SKIP COL(10); 78000000 GOTO START; 78600000 REC69: 79200000 ANS (T||'CUS CHAR(4),/*CUU AND SPINDLE ID*/') SKIP COL(10); 79800000 ANS (T||'NDS FIXED(15),/*NBR AM/0 DATA SPACES*/') SKIP COL(10); 80400000 ANS (T||'NUC FIXED(15),/*NBR UNALLOCATED CYL*/') SKIP COL(10); 81000000 ANS (T||'NUT FIXED(15),/*NBR UNALLOCATED TRKS*/') SKIP COL(10); 81600000 ANS (T||'LUC FIXED(15),/*LRGT NBR UNALLOC CYL*/') SKIP COL(10); 82200000 ANS (T||'LUT FIXED(15),/*LRGT NBR ALLOC TRKS*/') SKIP COL(10); 82800000 ANS (T||'CNM CHAR(44),/*CATALOG NAME*/') SKIP COL(10); 83400000 ANS (T||'VSR CHAR(6);/*VOLUME SERIAL NBR*/') SKIP COL(10); 84000000 GOTO START; 84600000 %SMFREND: END IDASMFR; 85200000