01000003 /*****************************************************************/ 02000003 /* ISDAPRMS */ 03000003 /* SDA PARAMATER CONTROL BLOCK. THIS CONTROL BLOCK IS USED BY THE*/ 04000003 /* MAIN PROC FOR DISPATCHING. IF THE CONTROL FLAG FOR A */ 05000003 /* PARTICULAR REPORT IS '00'X THE REPORT PROC IS NEVER CALLED. */ 06000003 /* THOSE REPORTS THAT HAVE MORE THAN ONE FUNCTION MUST CHECK ITS */ 07000003 /* CONTROL FLAG FOR THE VALUE '01'X=REPORT 1 ONLY, '02'X=REPORT2 */ 08000003 /* ONLY, AND '03'X=BOTH REPORT 1 AND 2. IF AN ACCUMULATOR DECIDES*/ 09000003 /* THAT IT CANNOT PRODUCE A MEANINGFUL REPORT, IT SHOULD RESET */ 10000003 /* ITS REPORT CONTROL FLAG TO '00'X. THIS WILL PREVENT THE */ 11000003 /* CONTROLLER FROM EVER CALLING EITHER THE ACCUMLATOR OR THE */ 12000003 /* OUTPUT FORMATER FOR THAT REPORT. */ 13000003 /* */ 14000003 /*****************************************************************/ 15000003 16000003 /* %INCLUDE ISDADCLS(ISDAPRMS) @Y30LB55*/ 17000003 18000003 DCL /* SDA CONTROL PARAMATERS@Y30LB55*/ 19000003 1 ISDAPRMS BASED(LPARMPTR), 20000003 2 CINPUT CHAR(2), /* (XY) = INPUT SOURCE @Y30LB55*/ 21000003 3 CLOGIN CHAR(1), /* (Y|N) = LOGREC @Y30LB55*/ 22000003 3 CHISTIN CHAR(1), /* (Y|N) = HISTORY @Y30LB55*/ 23000003 2 CSTART CHAR(4), /* (00YYDDDF) = START DATE 24000003 @Y30LB55*/ 25000003 3 CSTYEAR CHAR(2), /* (00YY) = YEAR @ZD00192*/ 26000003 3 CSTDAY CHAR(2), /* (DDDF) = DAY @ZD00192*/ 27000003 2 CEND CHAR(4), /* (00YYDDDF) = END DATE @Y30LB55*/ 28000003 3 CENDYEAR CHAR(2), /* (00YY) = YEAR @ZD00192*/ 29000003 3 CENDDAY CHAR(2), /* (DDDF) = DAY @ZD00192*/ 30000003 2 CSUMMARY CHAR(1), /* (X) = Y OR N @Y30LB55*/ 31000003 2 CTYPE CHAR(2), /* (XX) = SA|RC|RD|CS|DA @Y30LB55*/ 32000003 2 CFSCONLY CHAR(4), /* (FSC)=FAULT SYMPTOM CODE (HEX) 33000003 @Y30LB55*/ 34000003 3 CFSC12 CHAR(2), /* 2 BYTE FSC FOR FMT 4 AND 5 35000003 @Y30LB55*/ 36000003 3 CFSC34 CHAR(2), /* ='00' WHEN 2 BYTE FSC @Y30LB55*/ 37000003 2 CSSIDF CHAR(2), /* (SSID) = SUBSYSTEM ID (HEX) 38000003 @Y30LB55*/ 39000003 3 * BIT(4), /* ZERO @Y30LB55*/ 40000003 3 CSSID BIT(12), /* (SSID) = SUBSYSTEM ID @Y30LB55*/ 41000003 2 CRATIO CHAR(2), /* (XX) = ERROR RATIO TO PRINT 42000003 @Y30LB55*/ 43000003 2 CSERIAL CHAR(12), /* (XXX YYYYYYYY) CART SER 44000003 @Y30LB55*/ 45000003 3 CIBM CHAR(3), /* ALPHA ID OF CART @Y30LB55*/ 46000003 3 * CHAR(1), /* BLANK @Y30LB55*/ 47000003 3 CSERNO CHAR(8), /* CART SERIAL NO. @Y30LB55*/ 48000003 /* REPORT CONTROL FLAGS, '00'X = REPORT NOT REQUESTED @Y30LB55*/ 49000003 50000003 2 CREPORTS, /* REPORT CONTROL FLAGS @Y30LB55*/ 51000003 3 CDCS BIT(8), /* (X) = 00 OR 01 HEX @Y30LB55*/ 52000003 3 CPAD BIT(8), /* (X) = 00 OR 01 HEX @Y30LB55*/ 53000003 3 CSUM BIT(8), /* (X) = 00,01,02, OR 03 HEX 54000003 01=SUM, 02=DETAIL, 03=BOTH @Y30LB55*/ 55000003 56000003 3 CDHEDHU BIT(8), /* (X) = 00,01,02, OR 03 HEX 57000003 01=DHE, 02=DHU, 03=BOTH @Y30LB55*/ 58000003 59000003 3 CFSC BIT(8), /* (X) = 00 OR 01 HEX @Y30LB55*/ 60000003 3 CEQC BIT(8), /* (X) = 00 OR 01 HEX @Y30LB55*/ 61000003 3 CDCKTLX BIT(8), /* (X) = 00,01,02, OR 03 HEX 62000003 01=DCK, 02=TLX, 03=BOTH @Y30LB55*/ 63000003 64000003 3 CCSBCSF BIT(8), /* (X) = 00,01,02, OR 03 HEX 65000003 01=CSB, 02=CSF, 03=BOTH @Y30LB55*/ 66000003 67000003 3 CDAT BIT(8), /* (X) = 00 OR 01 HEX @Y30LB55*/ 68000003 3 CDRC BIT(8), /* (X) = 00 OR 01 HEX @Y30LB55*/ 69000003 3 CAPRSUU BIT(8), /* (X) = 00,01,02, OR 03 HEX 70000003 01=APR, 02=SUU, 03=BOTH @ZD00192*/ 71000003 3 CPWR BIT(8), /* SPARE - RESERVED @ZM30976*/ 72000003 2 CPERIOD FIXED(8), /* (X) = NO. DAYS TO REPORT 73000003 @Y30LB55*/ 74000003 2 CDETAIL BIT(8), /* (X) = SUMMARY PRINT MASK 75000003 @ZD00192*/ 76000003 /* BIT 0 = FORMAT 0 77000003 BIT 1 = FORMAT 1 78000003 BIT 2 = FORMAT 2 79000003 BIT 3 = FORMAT 3 80000003 BIT 4 = FORMAT 4 81000003 BIT 5 = FORMAT 5 82000003 BIT 6 = TRACE IN ISDASDA0 83000003 BIT 7 = NOT USED */ 84000003 2 CGEN BIT(8), /* (X)=00,01,02,04(NO,SUM,FSC,EQC) 85000003 @Y30LB55*/ 86000003 2 CTRACE BIT(8); /* (X)=00 FOR TRACE OFF, XX FOR 87000003 TRACE ON @Y30LB55*/ 88000003 %SDAPARML='LENGTH(ISDAPRMS)'; /*@Y30LB55*/ 89000003 90000003 /* %SDAPARML='LENGTH(ISDAPRMS)' @Y30LB55*/ 91000003 /* DCL LPARMPTR PTR(31) AND SET LPARMPTR=PARMPTR @Y30LB55*/ 92000003