* % GOTO HDRBSL1; /* 00050002 MACRO 00100002 IHAHDR &DSECT=YES */ 00150002 *%HDRBSL1 : ; 00152002 * /* MACMEAN HDR MEANS AR149 HEADER */ 00154002 * /* MACCOMP Y-1 SC1C5 PZD81 */ 00156002 * /* MACSTAT Y-1 72178/Y02701. OZ27936,11/11/77,G LUX. */ 00158000 * %GOTO HDRBSL; /* 00158402 AIF ('&DSECT' EQ 'YES').HDR001 00160002 HDR DS 0D - 00200002 AGO .HDR002 00202002 .HDR001 ANOP 00204002 HDR DSECT , HDRPTR 00210002 .HDR002 SPACE 1 00250002 HDRTYP DS B - RECORD TYPE 00600002 HDRMC0 EQU X'13' MCH,MCAR 00650002 HDRMC2 EQU X'12' CONVERTED MCH 00700002 HDRMC8 EQU X'18' SER 1 00750002 HDRMC9 EQU X'19' SER 0 00800002 HDRMCA EQU X'1A' CONVERTED SER 1 00850002 HDRMCB EQU X'1B' CONVERTED SER 0 00900002 HDRCC0 EQU X'21' CCH 00950002 HDRCC2 EQU X'22' CONVERTED CCH 01000002 HDRCC8 EQU X'28' SER 1 01050002 HDRCC9 EQU X'29' SER 0 01100002 HDRCCA EQU X'2A' CONVERTED SER 1 01150002 HDRCCB EQU X'2B' CONVERTED SER 0 01200002 HDRUC0 EQU X'30' OBR 01250002 HDRUC2 EQU X'32' CONVERTED OBR 01300002 HDRUC4 EQU X'34' TP ACCESS METHOD 01350002 HDRSE0 EQU X'40' PROGRAM ISSUED SVC 13 01400002 HDRSE1 EQU X'41' FORCED SVC 13 01450002 HDRSE2 EQU X'42' MACHINE CHECK 01500002 HDRSE4 EQU X'44' OPERATOR PRESSED RESTART 01550002 HDRSE8 EQU X'48' PROGRAM CHECK OCCURRED 01600002 HDRSEF EQU X'4F' SHORT RECORD - LOST RECORD COUNT 01650002 HDRIPL EQU X'50' IPL 01700002 HDRRCG EQU X'60' RECONFIGURATION 01750002 HDREOD EQU X'80' END OF DAY 01800002 HDRNS0 EQU X'90' NON-MDR RECORDED 01850002 HDRNS1 EQU X'91' MISCELLANEOUS DATA RECORDER 01900002 HDRNS3 EQU X'93' CONVERTED TPER 01950002 HDROPRN DS B - OP SYSTEM AND RELEASE 02000002 HDROS EQU X'15' OS - RELEASE 21 02050002 HDRDOS EQU X'20' DOS - OLD LEVELS 02100002 HDRDOS1 EQU X'21' DOS - FIRST RELSE WITH RMSR 02150002 HDRDOS2 EQU X'22' DOS - NXT RELSE AFTER RMSR 02200002 HDRVS11 EQU X'41' VS/1 - RELEASE 1 02250002 HDRVS12 EQU X'42' VS/1 - RELEASE 2 02300002 HDRCP67 EQU X'60' CP67 02350002 HDRVS21 EQU X'81' VS/2 - RELEASE 1 02400002 HDRVS22 EQU X'82' VS/2 - RELEASE 1 02450002 HDRIS DS B - RECORD INDEPENDENT SWITCHES 02500002 HDRISMR EQU X'80' MULTIPLE RECORD RECORDING 02550002 HDRISNS EQU X'40' NS MACHINE (NS CLOCK) 02600002 HDRISTM EQU X'08' TIME MACRO USED 02650002 HDRISMP EQU X'04' MULTIPROCESSING 02700002 HDRISR EQU X'02' RELOCATE 02750002 HDRISEC EQU X'01' EC MODE 02800002 HDRDS DS 0CL3 RECORD DEPENDENT SWITCHES 02850002 HDRDS1 DS B - FIRST BYTE OF SWITCHES - MEANING DEPENDENT 02900002 * ON RECORD TYPE 02950002 HDRDS10 EQU X'80' SHORT RECORD (PER GC28-0772) @ZA27936 03000000 HDRDS11 EQU X'40' 03050002 HDRDS12 EQU X'20' ERRORID PRESENT FOR SOFTWARE RECORDS @G17EP5W 03070041 HDRDS13 EQU X'10' ERRORID PRESENT FOR HARDWARE RECORDS @G17EP5W 03100041 HDRDS14 EQU X'08' 03200002 HDRDS15 EQU X'04' 03250002 HDRDS16 EQU X'02' 03300002 HDRDS17 EQU X'01' 03350002 HDRDS2 DS B - SECOND BYTE OF SWITCHES - USED BY MDR 03400002 HDRMDR1 EQU X'01' 3330 03450002 HDRMDR2 EQU X'02' 2305-2 03500002 HDRMDR4 EQU X'04' 3211 03550002 HDRMDR8 EQU X'08' 2715 03600002 HDRMDR12 EQU X'12' 2305-1 03650002 HDRMDA0 EQU X'F0' 2946 AIRLINE DEVELOPMENT 03700002 HDRMDA1 EQU X'F1' 2948 AIRLINE DEVELOPMENT 03750002 HDRMDA2 EQU X'F2' 1006 AIRLINE DEVELOPMENT 03800002 HDRMDA3 EQU X'F3' 2703 COMM LINE AIRLINE DEVELOPMENT 03850002 HDRMDA4 EQU X'F4' 2969 COMM LINE AIRLINE DEVELOPMENT 03900002 HDRDS3 DS B - THIRD BYTE OF SWITCHES - RESERVED 03950002 HDRCNT DS B - RECORD COUNT 04000002 HDRCNTS EQU X'F0' SEQUENCE NUMBER OF PHYSICAL RECORD 04050002 HDRCNTT EQU X'0F' TOTAL NUMBER OF PHYSICAL RECORDS 04100002 DS B - RESERVED 04150002 HDRDTM DS CL8 DATE AND TIME 04200002 HDRCPID DS CL8 CPU ID AND SERIAL NUMBER 04250002 MEND , */ 04300002 *%HDRBSL : ; 04350002 *DECLARE 04750002 * 1 HDR BASED(HDRPTR), 04800002 * 2 HDRTYP CHAR(1), /* RECORD TYPE */ 04850002 * %HDRMC0='''13''X'; /* MCH,MCAR */ 04900002 * %HDRMC2='''12''X'; /* CONVERTED MCH */ 04950002 * %HDRMC8='''18''X'; /* SER 1 */ 05000002 * %HDRMC9='''19''X'; /* SER 0 */ 05050002 * %HDRMCA='''1A''X'; /* CONVERTED SER 1 */ 05100002 * %HDRMCB='''1B''X'; /* CONVERTED SER 0 */ 05150002 * %HDRCC0='''21''X'; /* CCH */ 05200002 * %HDRCC2='''22''X'; /* CONVERTED CCH */ 05250002 * %HDRCC8='''28''X'; /* SER 1 */ 05300002 * %HDRCC9='''29''X'; /* SER 0 */ 05350002 * %HDRCCA='''2A''X'; /* CONVERTED SER 1 */ 05400002 * %HDRCCB='''2B''X'; /* CONVERTED SER 0 */ 05450002 * %HDRUC0='''30''X'; /* OBR */ 05500002 * %HDRUC2='''32''X'; /* CONVERTED OBR */ 05550002 * %HDRUC4='''34''X'; /* TP ACCESS METHOD */ 05600002 * %HDRSE0='''40''X'; /* PROGRAM ISSUED SVC 13 */ 05650002 * %HDRSE1='''41''X'; /* FORCED SVC 13 */ 05700002 * %HDRSE2='''42''X'; /* MACHINE CHECK */ 05750002 * %HDRSE4='''44''X'; /* OPERATOR PRESSED RESTART */ 05800002 * %HDRSE8='''48''X'; /* PROGRAM CHECK OCCURRED */ 05850002 * %HDRSEF='''4F''X'; /* SHORT RECORD - LOST RECORD COUNT */ 05900002 * %HDRIPL='''50''X'; /* IPL */ 05950002 * %HDRRCG='''60''X'; /* RECONFIGURATION */ 06000002 * %HDREOD='''80''X'; /* END OF DAY */ 06050002 * %HDRNS0='''90''X'; /* NON-MDR RECORDED */ 06100002 * %HDRNS1='''91''X'; /* MISCELLANEOUS DATA RECORDER */ 06150002 * %HDRNS3='''93''X'; /* CONVERTED TPER */ 06200002 * 2 HDROPRN FIXED(8), /* OP SYSTEM AND RELEASE @Z40CPXH*/ 06220041 3 HDROPSYS BIT(3), /* OPERATING SYSTEM ID @Z40CPXH*/ 06250041 3 HDRRELN BIT(5), /* RELEASE NUMBER @Z40CPXH*/ 06260041 * %HDROS ='''15''X'; /* OS RELEASE 21 */ 06300002 * %HDRDOS='''20''X'; /* DOS - OLD LEVELS */ 06350002 * %HDRDOS1='''21''X'; /* DOS - FIRST RELEASE WITH RMSR */ 06400002 * %HDRDOS2='''22''X'; /* DOS - NEXT RELEASE AFTER RMSR */ 06450002 * %HDRVS11='''41''X'; /* VS1 - RELEASE 1 */ 06500002 * %HDRVS12='''42''X'; /* VS1 - RELEASE 2 */ 06550002 * %HDRCP67='''60''X'; /* CP67 */ 06600002 * %HDRVS21='''81''X'; /* VS2 - RELEASE 1 */ 06650002 * %HDRVS22='''82''X'; /* VS2 - RELEASE 2 */ 06700002 * 2 HDRIS CHAR(1), /* RECORD INDEPENDENT SWITCHES */ 06750002 * 3 HDRISMR BIT(1), /* MULTIPLE RECORD RECORDING */ 06800002 * 3 HDRISNS BIT(1), /* NS MACHINE (NS CLOCK) */ 06850002 * 3 HDRTRUNC BIT(1), /* RECORD TRUNCATED (VS2/2) */ 06900002 * 3 * BIT(1), /* RESERVED */ 06950002 * 3 HDRISTM BIT(1), /* TIME MACRO USED */ 07000002 * 3 HDRISMP BIT(1), /* MULTIPROCESSING */ 07050002 * 3 HDRISR BIT(1), /* RELOCATE */ 07100002 * 3 HDRISEC BIT(1), /* EC MODE */ 07150002 * 2 HDRDS CHAR(3), /* RECORD DEPENDENT SWITCHES */ 07200002 * 3 HDRDS1 CHAR(1), /* FIRST BYTE OF SWITCHES - MEANING */ 07250002 * /* DEPENDENT ON RECORD TYPE */ 07300002 * 4 HDRDS10 BIT(1), /* SHORT RECORD (PER GC28-0772) @ZA27936*/ 07350000 * 4 HDRDS11 BIT(1), 07400002 * 4 HDRDS12 BIT(1), /*ERRORID PRESENT FOR SOFTWARE RECS @G17EP5W*/ 07420041 * 4 HDRDS13 BIT(1), /*ERRORID PRESENT FOR HARDWARE RECS @G17EP5W*/ 07450041 * 4 HDRDS14 BIT(1), 07550002 * 4 HDRDS15 BIT(1), 07600002 * 4 HDRDS16 BIT(1), 07650002 * 4 HDRDS17 BIT(1), 07700002 * 3 HDRDS2 CHAR(1), /* SECOND BYTE OF SWITCHES - USED BY MDR */ 07750002 * %HDRMDR1='''01''X'; /* 3330 */ 07800002 * %HDRMDR2='''02''X'; /* 2305-2 */ 07850002 * %HDRMDR4='''04''X'; /* 3211 */ 07900002 * %HDRMDR8='''08''X'; /* 2715 */ 07950002 * %HDRMDR12='''12''X'; /* 2305-1 */ 08000002 * %HDRMDA0='''F0''X'; /* 2946 AIRLINE DEVELOPMENT */ 08050002 * %HDRMDA1='''F1''X'; /* 2948 AIRLINE DEVELOPMENT */ 08100002 * %HDRMDA2='''F2''X'; /* 1006 AIRLINE DEVELOPMENT */ 08150002 * %HDRMDA3='''F3''X'; /* 2703 COMM LINE AIRLINE DEVELOPMENT */ 08200002 * %HDRMDA4='''F4''X'; /* 2969 COMM LINE AIRLINE DEVELOPMENT */ 08250002 * 3 HDRDS3 CHAR(1), /* THIRD BYTE OF SWITCHES - RESERVED */ 08300002 * 2 HDRCNT CHAR(1), /* RECORD COUNT */ 08350002 * 3 HDRCNTS BIT(4), /* SEQUENCE NUMBER OF PHYSICAL RECORD */ 08400002 * 3 HDRCNTT BIT(4), /* TOTAL NUMBER OF PHYSICAL RECORDS */ 08450002 * 2 * CHAR(1), /* RESERVED */ 08500002 * 2 HDRTM CHAR(8), /* DATE AND TIME */ 08550002 * 2 HDRCPID CHAR(8); /* CPU ID AND SERIAL NUMBER */ 08600002