4480 ****************************************************** ZOO00050 4481 IC0GC REG=R4 ZOO00060 4482+*,INVENTORY GROUP COUNTER (A-06-IGC) 01-IC0GC 4483+*,PETER STOCKWELL 14 DECEMBER 1994 01-IC0GC 000000 00000 00F91 4484+IC0GC DSECT A-06-ICG (INVENTORY DETAIL RECORD) 01-IC0GC 000000 4485+IC0HDR DS 0CL16 RECORD HEADER. 01-IC0GC 000000 4486+IC0BID DS CL2 RECORD IDENTIFIER = 'IC'. 01-IC0GC 000002 4487+IC0CHK DS X RECORD CODE CHECK. 01-IC0GC 000003 4488+IC0CTL DS X CONTROL BYTE. 01-IC0GC 000004 4489+IC0PGM DS CL4 UNUSED 01-IC0GC 000008 4490+IC0FCH DS F UNUSED 01-IC0GC 00000C 4491+IC0BCH DS F UNUSED 01-IC0GC 4492+* 000010 4493+IC0RGS DS 10F REGISTER SAVE AREA 01-IC0GC 000038 00038 00010 4494+ ORG IC0RGS 01-IC0GC 000010 4495+IC0R14 DS F REGISTER 14 01-IC0GC 000014 4496+IC0R15 DS F REGISTER 15 01-IC0GC 000018 4497+IC0R00 DS F REGISTER 0 01-IC0GC 00001C 4498+IC0R01 DS F REGISTER 1 01-IC0GC 000020 4499+IC0R02 DS F REGISTER 2 01-IC0GC 000024 4500+IC0R03 DS F REGISTER 3 01-IC0GC 000028 4501+IC0R04 DS F REGISTER 4 01-IC0GC 00002C 4502+IC0R05 DS F REGISTER 5 01-IC0GC 000030 4503+IC0R06 DS F REGISTER 6 01-IC0GC 000034 4504+IC0R07 DS F REGISTER 7 01-IC0GC 4505+* 000038 4506+IC0SW0 DS X SWITCH WORKAREA BYTE 0 01-IC0GC 000039 4507+IC0SW1 DS X SWITCH WORKAREA BYTE 1 01-IC0GC 00003A 4508+IC0SW2 DS X SWITCH WORKAREA BYTE 2 01-IC0GC 00003B 4509+IC0SW3 DS X SWITCH WORKAREA BYTE 3 01-IC0GC 00003C 4510+IC0SW4 DS X SWITCH WORKAREA BYTE 4 01-IC0GC 00003D 4511+IC0SW5 DS X SWITCH WORKAREA BYTE 5 01-IC0GC 00003E 4512+IC0SW6 DS X SWITCH WORKAREA BYTE 6 01-IC0GC 00003F 4513+IC0SW7 DS X SWITCH WORKAREA BYTE 7 01-IC0GC 4514+* 000040 4515+IC0HW0 DS H HALFWORD WORKAREA 0 01-IC0GC 000042 4516+IC0HW1 DS H HALFWORD WORKAREA 1 01-IC0GC 000044 4517+IC0HW2 DS H HALFWORD WORKAREA 2 01-IC0GC 000046 4518+IC0HW3 DS H HALFWORD WORKAREA 3 01-IC0GC 000048 4519+IC0HW4 DS H HALFWORD WORKAREA 4 01-IC0GC 00004A 4520+IC0HW5 DS H HALFWORD WORKAREA 5 01-IC0GC 00004C 4521+IC0HW6 DS H HALFWORD WORKAREA 6 01-IC0GC 00004E 4522+IC0HW7 DS H HALFWORD WORKAREA 7 01-IC0GC 4523+* 000050 4524+IC0FW0 DS F FULLWORD WORKAREA 0 01-IC0GC 000054 4525+IC0FW1 DS F FULLWORD WORKAREA 1 01-IC0GC 000058 4526+IC0FW2 DS F FULLWORD WORKAREA 2 01-IC0GC 00005C 4527+IC0FW3 DS F FULLWORD WORKAREA 3 01-IC0GC 4528+* 000060 4529+IC0DW0 DS D DOUBLEWORD WORKAREA 0 01-IC0GC 000068 4530+IC0DW1 DS D DOUBLEWORD WORKAREA 1 01-IC0GC 4531+* 000070 4532+IC0TCC DS CL2 BCD COMPANY CODE 01-IC0GC 000072 4533+IC0ORT DS CL6 BCD TRANCHE NUMBER 01-IC0GC 000078 4534+IC0TNB DS F BINARY TRANCHE NUMBER 01-IC0GC 00007C 4535+IC0DTE DS H BINARY TRANCHE DATE 01-IC0GC 00007E 4536+ DS X SPARE 01-IC0GC 00007F 4537+IC0TH1 DS X COPY OF ID6ID VALUES 01-IC0GC 00080 4538+#IC0FXS EQU X'80' NOOP DUE TO SCHEDULE CHANGE. 01-IC0GC 00040 4539+#IC0FDD EQU X'40' DOUBLE-DATED TRANCHE. THIS INDICATOR IS 01-IC0GC 4540+* SET BY SCHEDULE CHANGE FOR THOSE 4541+* TRANCHES ON WHICH THE DEPARTURE DATE OF 4542+* ANY LEG IS DIFFERENT FROM THE TRANCHE 4543+* INDEXING DATE. 4544+* EQU X'20' UNUSED 00004 4545+#IC0NYM EQU X'04' THIS TRANCHE NOT YIELD MANAGED 01-IC0GC 4546+* EQU X'10' NOTUSED 4547+* EQU X'08' NOTUSED 4548+* EQU X'02' NOTUSED 00001 4549+#IC0TRE EQU X'01' TRAFFIC RESTRICTION EXISTS ON AT LEAST ONE 01-IC0GC 4550+* SEGMENT FOR THIS TRANCHE/DATE. 4551+* 000080 4552+IC0EDM DS CL5 BCD TRANCHE DATE DDMMM 01-IC0GC 000085 4553+IC0STC DS C SERVICE TYPE OF TRANCHE (D'AFFLUENCE ETC) 01-IC0GC 000086 4554+IC0NLG DS H NUMBER OF LEGS IN TRANCHE 01-IC0GC 000088 4555+IC0NBC DS H NUMBER OF BASE CLASSES IN TRANCHE 01-IC0GC 00008A 4556+ DS XL6 SPARE 01-IC0GC 4557+* 000090 4558+IC0LLH DS 0XL48 LEG/BASE CLASS ITEM 01-IC0GC 000090 4559+IC0BRD DS XL3 BOARD POINT OF LEG 01-IC0GC 000093 4560+ DS X SPARE 01-IC0GC 000094 4561+IC0LBC DS 0XL32 RESERVED FOR 8 BASE CLASSES 01-IC0GC 000094 4562+IC0BCS DS 0XL4 ONE BASE CLASS SECTION 01-IC0GC 000094 4563+IC0BCL DS C BASE CLASS CODE 01-IC0GC 000095 4564+ DS X SPARE 01-IC0GC 000096 4565+IC0BSS DS H ACCUMULATED GROUP VALUES 01-IC0GC 000098 4566+ DS 7XL4 SPACE FOR 7 MORE CLASSES 01-IC0GC 0000B4 4567+ DS XL12 SPARE 01-IC0GC 0000C0 4568+ DS 79XL48 ROOM FOR 79 MORE LEGS 01-IC0GC 000F90 4569+IC0END DS X 1ST UNUSED DATA BYTE 01-IC0GC 000F91 00F91 00000 4570+ ORG IC0HDR GO BACK TO BEGINNING 01-IC0GC 000000 4571+IC9LLH DS 0XL48 LEG/BASE CLASS ITEM 01-IC0GC 000000 4572+IC9BRD DS XL3 BOARD POINT OF LEG 01-IC0GC 000003 4573+ DS X SPARE 01-IC0GC 000004 4574+IC9LBC DS 0XL32 RESERVED FOR 8 BASE CLASSES 01-IC0GC 000004 4575+IC9BCS DS 0XL4 ONE BASE CLASS SECTION 01-IC0GC 000004 4576+IC9BCL DS C BASE CLASS CODE 01-IC0GC 000005 4577+ DS X SPARE 01-IC0GC 000006 4578+IC9BSS DS H ACCUMULATED GROUP VALUES 01-IC0GC 000008 4579+ DS 7XL4 SPACE FOR 7 MORE CLASSES 01-IC0GC 000024 4580+ DS XL12 SPARE 01-IC0GC 000030 00030 00000 4581+ ORG IC0HDR GO BACK TO BEGINNING 01-IC0GC 000000 4582+IC9TRM DS 0XL3 ENDING CITY CODE 01-IC0GC 000008 00000 00017 4583+$IS$ CSECT 01-IC0GC R:4 00000 4584+ USING IC0GC,R4 01-IC0GC 4585 ****************************************************** ZOO00070