4480 ****************************************************** ZOO00050 4481 ID6ID REG=R4 ZOO00060 4482+*,INVENTORY DETAIL RECORD (A-06-IND) 01-ID6ID 4483+*********************************************************************** 4484+* VER ! Objet de la modification ! Programmeur ! DATE ! ID * 4485+*------+----------------------------+---------------+----------+------* 4486+* 15 ! SCR#37331 Respect du ! D. NGUYEN ! 05/04/03 !DN1415* 4487+* ! contingentement pour les ! ! !DN1415* 4488+* ! ventes via Hermes. ! ! !DN1415* 4489+* ! Ajout de #ID6PCD ! ! !DN1415* 4490+*------+----------------------------+---------------+----------+------* 4491+* 14 ! SCR#30671 Placement par ! C. GRANGER ! 30/04/02 !CG1314* 4492+* ! Profil Tarifiare ! ! !CG1314* 4493+* ! Ajout d'un Spare et ID6PRF ! ! !CG1314* 4494+*------+----------------------------+---------------+----------+------* 4495+* 13 ! SCR#32621 Placement dans ! F. KASER ! 29/11/01 !FK1213* 4496+* ! les rames TRN RENOVE ! ! !FK1213* 4497+* ! Ajout : #ID6AVC et #ID6PMR ! ! !FK1213* 4498+*------+----------------------------+---------------+----------+------* 4499+* 0.12 ! SCR#25351 TGV MEDITERRANEE ! F. CALLARD ! 27/06/00 !FC1112* 4500+* ! AJOUT:#ID6VEP ! ! !FC1112* 4501+* ! ! ! ! * 4502+*------+----------------------------+---------------+----------+------* 4503+* 0.11 ! SCR#23681 SENS DE LA MARCHE! K. DUBOIS ! 03/04/00 !KD1110* 4504+* ! AJOUT:#ID6SDM ! ! !KD1110* 4505+* ! ! ! ! * 4506+*------+----------------------------+---------------+----------+------* 4507+* 0.10 ! SCR#1755 ! BAHAA FAIAD ! 05/26/98 !BF0910* 4508+* ! ADDED:#ID6CLB ! ! !BF0910* 4509+* ! #ID6PAN ! ! !BF0910* 4510+* ! #ID6BCA ! ! !BF0910* 4511+* ! ! ! ! * 4512+*------+----------------------------+---------------+----------+------* 4513+* 0.09 ! AUTO/MOTO SCR 6097 ! C DUEZ ! 03/11/97 ! .... * 4514+* ! ! ! ! * 4515+*------+----------------------------+---------------+----------+------* 4516+* 0.08 ! CREATION INDICATEUR POUR ! ! ! * 4517+* ! LES PRIX COMPLETS ! N HUYGHE ! 09SEP97 ! * 4518+* ! SCR1682 ! ! ! * 4519+*---------------------------------------------------------------------* 4520+* 0.07 ! NET NESTING TRANCHE ID6NET ! P CALMELS ! 19JUL96 ! .... * 4521+* ! ! ! ! * 4522+* 0.06 ! Preferred Inventory percent! P Stockwell ! 01/08/95 ! .... * 4523+* ! ! ! ! * 4524+* 0.05 ! INVENTORY ! I BOUDIER ! 04/07/95 ! 1100 * 4525+* ! ! ! ! * 4526+* 0.04 ! SEAT REACCOMMODATION ! I BOUDIER ! 04/02/95 ! 1025 * 4527+* ! ! ! ! * 4528+* 0.03 ! YIELD MANAGED ! R HOPE ! 25/11/94 ! 1399 * 4529+* ! ! ! ! * 4530+* 0.02 ! AGENCEMENT FOR TRN ! B COTTANCEAU ! 02/05/94 ! 1120 * 4531+* ! ! ! ! * 4532+* 0.01 ! INVENTORY ALERTS ! STEVE WRIGHT ! 01/10/92 ! 1120 * 4533+* ! ! ! ! * 4534+* 0.00 ! INVENTORY ALERTS ! STEVE WRIGHT ! 24/09/92 ! 0815 * 4535+* ! ! ! ! * 4536+*********************************************************************** 4537+*===================================================================== 4538+* R E C O R D I N V E N T A I R E D E T A I L L E 4539+* ETAT D'UNE TRANCHE AU JOUR LE JOUR (etat des resrvations...) 4540+*===================================================================== 000000 00000 00FFF 4541+ID6ID DSECT A-06-IND (INVENTORY DETAIL RECORD) 01-ID6ID 4542+*--------------------------------------------------------------------- 4543+* HEADER 4544+*--------------------------------------------------------------------- 000000 4545+ID6HDR DS 0CL16 RECORD HEADER. 01-ID6ID 000000 4546+ID6BID DS CL2 RECORD IDENTIFIER = 'ID'. 01-ID6ID 000002 4547+ID6CHK DS X RECORD CODE CHECK. 01-ID6ID 000003 4548+ID6CTL DS X CONTROL BYTE. 01-ID6ID 000004 4549+ID6PGM DS CL4 LAST PROGRAM WHICH MODIFIED THE RECORD. 01-ID6ID 000008 4550+ID6FCH DS F F/A OF NEXT CHAINED (OVERFLOW) RECORD. 01-ID6ID 00000C 4551+ID6BCH DS F F/A OF PREVIOUS RECORD IN CHAIN (NOT USED) 01-ID6ID 4552+* 4553+*--------------------------------------------------------------------- 4554+* Information of chainage about the other records 4555+*--------------------------------------------------------------------- 000010 4556+ID6ORR DS 0XL16 OVERFLOW RECORD ADDRESS REFERENCE SECTION 01-ID6ID 000010 4557+ DS F *** SPARE BYTES *** 01-ID6ID 000014 4558+ID6TCD DS F FILE ADDRESS OF THE TRANCHE CONFIGURATION 01-ID6ID 4559+* DATA RECORD FOR THIS SCHEDULE PERIOD AND 4560+* FREQUENCY. (REF. A-06-TCD) 4561+* SEE A.1 ROLE IN SYSTEM. 000018 4562+ID6INH DS F F/A OF INVENTORY HISTORY RECORD FOR THIS 01-ID6ID 4563+* TRANCHE/DATE 00001C 4564+ DS F *** SPARE BYTES *** 01-ID6ID 4565+* 4566+*===================================================================== 4567+* 4568+* Specific information in record premium 4569+* 4570+*===================================================================== 4571+* 000020 4572+ID6PRH DS 0XL20 THIS SECTION EXISTS ONLY IN THE PRIME IND. 01-ID6ID 4573+* IT IS RESERVED FOR CONTROL PROGRAM RECORD 4574+* HEADER REQUIREMENTS AND VISUAL AIDS. 000020 4575+ DS 0XL8 FIELDS USED IN THE A-06-INM BUT NOT IN 01-ID6ID 4576+* THE A-06-IND. 4577+*--------------------------------------------------------------------- 4578+* Type d'action Schedule Change 000020 4579+ID6ACC DS X SCHEDULE CHANGE ACTION CODE. 01-ID6ID 4580+*--------------------------------------------------------------------- 4581+* Field Change Indicators 000021 4582+ID6BTS DS X FIELD CHANGE INDICATORS. 01-ID6ID 000022 4583+ID6LSD DS H DISC DATE PRIOR TO SHORTEN/LENGTHEN. 01-ID6ID 000024 4584+ID6KMX DS F ADDRESS OF INM ON A-06-KMX. 01-ID6ID 4585+* 000028 4586+ID6SYS DS H PARS DATE ON WHICH THIS IND WAS CREATED. 01-ID6ID 00002A 4587+ID6IND DS 0CL10 EBCDIC EFF/DIS DATES FOR THIS IND. 01-ID6ID 4588+* THESE FIELDS ARE FOR VISUAL AID ONLY. 00002A 4589+ID6EDM DS CL5 TRANCHE DATE OF OPERATION. IN FORMAT 01-ID6ID 4590+* DDMMM 00002F 4591+ID6DDM DS CL5 DATE OF CREATION OF DETAIL RECORD. IN THE 01-ID6ID 4592+* FORMAT DDMMM. 4593+* 000034 00034 00010 4594+ ORG ID6HDR+L'ID6HDR 01-ID6ID 4595+* 4596+*===================================================================== 4597+* 4598+* Specific information in the record overflows 4599+* ( For a visual help only) 4600+*===================================================================== 000010 4601+ID6ORH DS 0XL16 OVERFLOW RECORD HEADER FOR VISUAL AID. 01-ID6ID 000010 4602+ID6ORC DS CL2 RESARAIL COMPANY CODE. 01-ID6ID 000012 4603+ID6ORT DS CL6 TRANCHE NUMBER IN EBCDIC FORMAT. 01-ID6ID 000018 4604+ DS XL2 NOT USED IN THE INVENTORY DETAIL. 01-ID6ID 00001A 4605+ DS XL5 NOT USED IN THE INVENTORY DETAIL. 01-ID6ID 00001F 4606+ DS XL1 *** SPARE BYTE *** 01-ID6ID 4607+* 4608+*--------------------------------------------------------------------- 4609+* Debut des donnees dans les overflows 000020 00020 00020 4610+ ORG ID6HDR+L'ID6HDR+L'ID6ORH 01-ID6ID 00020 4611+ID6OVD EQU * START OF DATA IN THE 01-ID6ID 4612+* OVERFLOW RECORD. 4613+* 4614+*--------------------------------------------------------------------- 4615+* Debut des donnees dans le prime 000020 00020 00034 4616+ ORG ID6HDR+L'ID6HDR+L'ID6ORR+L'ID6PRH 01-ID6ID 00034 4617+ID6PRD EQU * START OF DATA IN THE 01-ID6ID 4618+* PRIME RECORD. 4619+* 4620+*===================================================================== 4621+* 4622+* Information slice header (dominate only) 4623+* 4624+*===================================================================== 4625+* 000034 4626+ID6TRH DS 0XL178 TRANCHE HEADER SECTION, PRIME RECORD ONLY. 01-ID6ID 4627+* 000034 4628+ID6TCC DS CL2 RESARAIL COMPANY CODE OF THE OWNER OF THIS 01-ID6ID 4629+* A-06-IND. 000036 4630+ID6UID DS X HOST COMPANY PARTITION ORDINAL. 01-ID6ID 000037 4631+ID6TNB DS XL3 TRANCHE NUMBER IN BINARY FORMAT. 01-ID6ID 00003A 4632+ID6CON DS X TRANCHE CONTROL RESEAU. 01-ID6ID 4633+* THIS IDENTIFIES THE NETWORK OR RESEAU 4634+* WITHIN THE COMPANY THAT IS RESPONSIBLE 4635+* FOR, AND CONTROLS, THE OPERATION OF THE 4636+* TRANCHE. 00003B 4637+ID6TCR DS X TRANCHE CONTROL REGION. 01-ID6ID 4638+* THIS IDENTIFIES THE REGION WITHIN A 4639+* RESEAU WHICH IS RESPONSIBLE FOR THE 4640+* TRANCHE OPERATION. 00003C 4641+ID6DTE DS H INDEX DATE FOR THIS TRANCHE. THIS IS THE 01-ID6ID 4642+* PARS EQUIVALENT OF THE DATE ON WHICH THE 4643+* INVENTORY FOR THIS TRANCHE IS INDEXED. 4644+* THIS IS THE SAME AS THE DATE OF DEPARTURE 4645+* FROM THE LAST LEG. 4646+* NOTE THAT ID6DTE PLUS ID6DSC FROM THE 4647+* FIRST LEG EQUALS THE DATE OF DEPARTURE 4648+* OF THE FIRST LEG. 00003E 4649+ DS 4X SPARE BYTES USED IN INM 01-ID6ID 000042 4650+ID6RSI DS X RESERVATIONS STATUS INDICATOR. 01-ID6ID 4651+* THIS FIELD INDICATES THE GENERAL 4652+* STATUS OF RESERVATION REQUIREMENTS 4653+* FOR THE ENTIRE TRANCHE AND IS FOR 4654+* DISPLAY IN CITY PAIR AVAILABILITY. 4655+* THE RESERVATIONS STATUS FOR INDIVIDUAL 4656+* CLASSES OF SERVICE ON THIS TRANCHE MAY 4657+* BE DIFFERENT FROM THE STATUS INDICATED 4658+* IN THIS BYTE. THE RESERVATIONS STATUS 4659+* FOR BASE CLASSES OF SERVICE IS INDICATED 4660+* IN THE BASE CLASS OF SERVICE SECTIONS OF 4661+* THE INVENTORY RECORD 4662+* ONE, AND ONLY ONE, OF THE INDICATORS 4663+* WILL BE SET EQUAL TO 1 IN AN INVENTORY 4664+* RECORD. INVENTORY RECORDS ARE NOT 4665+* USED FOR NON-RESERVATIONS TRANCHES. 4666+* SEE ALSO ID6BC1. 00080 4667+#ID6MDY EQU X'80' = 1 - MANDATORY 01-ID6ID 00040 4668+#ID6REC EQU X'40' = 1 - RECOMMENDED 01-ID6ID 00020 4669+#ID6OPT EQU X'20' = 1 - OPTIONAL 01-ID6ID 00010 4670+#ID6MAN EQU X'10' = 1 - MANUAL 01-ID6ID 4671+* EQU X'08' **SPARE** 4672+* EQU X'04' **SPARE** 4673+* EQU X'02' **SPARE** 4674+* EQU X'01' **SPARE** 000043 4675+ID6ADI DS X AUTO/MOTO DIRECTION INDICATORS. 01-ID6ID 4676+* THE DIRECTION OF TRAVEL OF THE TRANCHE 4677+* IS INDICATED FOR THE AUTO/MOTO TRI- 4678+* COLOUR CALENDAR. ONLY ONE OF THESE 4679+* INDICATORS WILL BE SET IF AUTO/MOTO 4680+* SERVICE IS OFFERED ON THIS TRANCHE. 4681+* (NOTE: EFFECTIVELY, THIS IS A SPARE 4682+* BYTE AS AUTO/MOTO SERVICE WILL 4683+* REMAIN UNDER RESA CONTROL UNTIL 4684+* A POST-CRS PHASE.) 00080 4685+#ID6NOR EQU X'80' = 1 - DIRECTION 1 (NORTH - SOUTH) 01-ID6ID 4686+*#ID6EST&LC0 EQU X'40' RESERVED FOR EASTERLY DIRECTION SCR6097 00040 4687+#ID6EST EQU X'40' **SPARE** SCR6097 01-ID6ID 00020 4688+#ID6SUD EQU X'20' = 1 - DIRECTION 2 (SOUTH - NORTH) 01-ID6ID 00010 4689+#ID6OST EQU X'10' RESERVED FOR CROSS DIRECTION SCR6097 01-ID6ID 4690+*#ID6OST&LC0 EQU X'10' RESERVED FOR WESTERLY DIRECTION SCR6097 4691+* EQU X'08' **SPARE** 4692+* EQU X'04' **SPARE** 4693+* EQU X'02' **SPARE** 4694+* EQU X'01' **SPARE** 000044 4695+ID6PAR DS X IB040 01-ID6ID 00080 4696+#ID6REA EQU X'80' SEAT REACCOMMODATION IB040 01-ID6ID 000045 4697+ DS XL7 *** SPARE BYTES *** 01-ID6ID 00004C 4698+ID6TSP DS X TRANCHE OPEN-FOR-SALE PARAMETER 01-ID6ID 4699+* TABLE REFERENCE (A-06-TOSP). 4700+* THIS IS A PARAMETER WHICH REFERENCES 4701+* AN ITEM IN THE A-06-TOSP RECORD WHICH 4702+* DEFINES WHEN THE TRANCHE MAY BE 4703+* DISPLAYED IN AVAILABILITY/SOLD AND 4704+* ALSO THE PERIOD BEFORE DEPARTURE WHEN 4705+* SEAT RESERVATION REQUESTS MAY BE 4706+* ACCEPTED. 4707+* THE RANGE OF VALUES IS 0-15. 00004D 4708+ID6TEQ DS X TRANSPORTATION EQUIPMENT CODE 01-ID6ID 00004E 4709+ID6CCC DS H A COUNT OF THE NUMBER OF UPDATES TO THE 01-ID6ID 4710+* TRANCHE CONFIGURATION SINCE THE TRANCHE 4711+* WAS ORIGINALLY INTRODUCED TO RESARAIL. 4712+* THIS COUNT MUST BE MAINTAINED ACROSS 4713+* SCHEDULE CHANGES AND WILL BE UPDATED EACH 4714+* TIME A CONFIGURATION CHANGE OR EQUIPMENT 4715+* CHANGE IS MADE. THIS IS USED BY THE SEAT 4716+* ASSIGNMENT PACKAGE TO DETERMINE IF ANY 4717+* SEAT MAPS NEED TO BE MODIFIED OR 4718+* RE-BUILT. 000050 4719+ID6EQP DS X TRANCHE EQUIPMENT ORDINAL NUMBER. 01-ID6ID 4720+* THIS VALUE IS AN INDEX INTO THE EQUIPMENT 4721+* CODE TABLE (A-06-GEQP) AND IS FOR DISPLAY 4722+* PURPOSES ONLY. 000051 4723+ID6STC DS X SERVICE TYPE CODE. 01-ID6ID 4724+* THIS IS A ONE BYTE EBCDIC FIELD WHICH 4725+* FURTHER QUALIFIES THE TRANCHE EQUIPMENT 4726+* ORDINAL NUMBER ABOVE. FOR EXAMPLE, 4727+* ID6EQP MAY INDICATE THAT THIS TRANCHE IS 4728+* A TGV. ID6STC WILL DEFINE WHICH TYPE OF 4729+* TGV, I.E. SUD-EST, ATLANTIQUE, TRANS- 4730+* MANCHE, ETC. 000052 4731+ID6NDF DS X NET NUMBER OF TIMES THIS TRANCHE CROSSES 01-ID6ID 4732+* MIDNIGHT (2400) BETWEEN THE ORIGIN AND 4733+* THE DEPARTURE STATION OF THE LAST LEG. 4734+* IT IS ASSUMED THAT THIS IS ALWAYS A 4735+* POSITIVE NUMBER. 4736+*CG1314 DS XL5 *** SPARE BYTES *** 000053 4737+ DS XL4 *** SPARE BYTES *** CG1314 01-ID6ID 000057 4738+ID6PRF DS X Ordinal du Code Profil CG1314 01-ID6ID 000058 4739+ID6NLG DS H NUMBER OF LEGS THIS TRANCHE (MAX=#ID6MXL). 01-ID6ID 00005A 4740+ID6NBC DS H NUMBER OF BASE CLASSES OF SERVICE FOR 01-ID6ID 4741+* THIS TRANCHE (MAX=#ID6MXB). 00005C 4742+ID6NTC DS H TOTAL NUMBER OF BUCKETS FOR 01-ID6ID 4743+* THIS TRANCHE (MAX=#ID6MXN). 4744+* 00050 4745+#ID6MXL EQU 80 MAXIMUM NUMBER OF LEGS PER TRANCHE 01-ID6ID 00008 4746+#ID6MXB EQU 8 MAXIMUM NUMBER OF BASE CLASSES OF SERVICE 01-ID6ID 00010 4747+#ID6MXN EQU 16 MAXIMUM NUMBER OF NESTED BUCKETS PER BASE 01-ID6ID 4748+* CLASS OF SERVICE (INCLUDING THE BASE 4749+* CLASS OF SERVICE 0000F 4750+#ID6MXC EQU 15 MAXIMUM TOTAL NUMBER OF BUCKETS 01-ID6ID 4751+* 00005E 4752+ DS 4X *** SPARE BYTES *** 01-ID6ID 4753+*--------------------------------------------------------------------- 4754+* THE FOLLOWING ARE FIELDS ARE USED TO DETERMINE INFORMATION ABOUT 4755+* THE IND WHICH WILL VARY DEPENDING ON THE SIZE OF THE RECORD USED 4756+* TO STORE IT. THEY ARE TO BE USED IN ORDER TO MAKE THE CODE WHICH 4757+* ACCESSES THE IND INDEPENDENT OF THE RECORD SIZE. 4758+*--------------------------------------------------------------------- 000062 4759+ID6BLC DS H TOTAL NUMBER OF BYTES FOR ALL LEG-BUCKET 01-ID6ID 4760+* SECTIONS FOR ONE LEG 4761+* (NUMBER OF BUCKETS * L'ID6LCS) 000064 4762+ID6BSC DS H LENGTH OF A SEGMENT/CLASS OF SERVICE ITEM. 01-ID6ID 4763+* REFLECTS THE ABSENCE OF THE ID6SLS AND 4764+* ID6LSR IN VIRTUAL NESTED PARTITIONS. 000066 4765+ID6BDY DS H IND RECORD SIZE EXCLUDING ID6CHN 01-ID6ID 000068 4766+ID6LBC DS H DISP OF START OF LAST ID6BCS IN A RECORD. 01-ID6ID 00006A 4767+ID6LLC DS H DISP OF START OF LAST ID6LCS IN A RECORD. 01-ID6ID 00006C 4768+ID6LSH DS H DISP OF START OF LAST ID6SSH IN A RECORD. 01-ID6ID 00006E 4769+ID6LSC DS H DISP OF START OF LAST ID6SCS IN A RECORD. 01-ID6ID 000070 4770+ID6LCM DS H MAXIMUM NUMBER OF LEG/BUCKET SECTIONS 01-ID6ID 4771+* PER OVERFLOW RECORD. CALCULATED AS 4772+* (ID6BDY-L'ID6HDR)/L'ID6LCS 000072 4773+ID6SHM DS H MAXIMUM NUMBER OF SEGMENT HEADERS 01-ID6ID 4774+* SECTIONS PER OVERFLOW. CALCULATED AS 4775+* (ID6BDY-L'ID6HDR)/ID6BSC 000074 4776+ID6SCM DS H MAXIMUM NUMBER OF SEGMENT/CLASS OF SERVICE 01-ID6ID 4777+* SECTIONS PER OVERFLOW. CALCULATED AS 4778+* (ID6BDY-L'ID6HDR)/ID6BSC 4779+*--------------------------------------------------------------------- 4780+* THE FOLLOWING ARE POINTERS TO THE VARIOUS INVENTORY SECTIONS. 4781+* 4782+* THEY ARE STORED AS TWO ELEMENTS, A FOUR-BYTE FILE ADDRESS AND A 4783+* TWO-BYTE DISPLACEMENT INTO THE RECORD FROM THE START OF THE RECORD, 4784+* I.E. RELATIVE TO ID6HDR. 4785+* 4786+*--------------------------------------------------------------------- 4787+* 000076 4788+ID6SBC DS 0XL6 START OF THE FIRST LEG BASE CLASS OF 01-ID6ID 4789+* SERVICE SECTION 000076 4790+ID6SBR DS XL4 FILE ADDRESS 01-ID6ID 00007A 4791+ID6SBD DS XL2 DISPLACEMENT INTO RECORD. 01-ID6ID 4792+* 00007C 4793+ID6SLC DS 0XL6 START OF THE FIRST LEG BUCKET. 01-ID6ID 00007C 4794+ID6SLR DS XL4 FILE ADDRESS 01-ID6ID 000080 4795+ID6SLD DS XL2 DISPLACEMENT INTO RECORD. 01-ID6ID 4796+* 000082 4797+ID6BSH DS 0XL6 START OF THE FIRST SEGMENT HEADER SECTION. 01-ID6ID 000082 4798+ID6BSR DS XL4 FILE ADDRESS 01-ID6ID 000086 4799+ID6BSD DS XL2 DISPLACEMENT INTO RECORD. 01-ID6ID 4800+* 000088 4801+ID6TNS DS 0XL6 START DISPLACEMENT OF THE TRANCHE NAME 01-ID6ID 4802+* INFORMATION. 000088 4803+ID6TNR DS XL4 FILE ADDRESS 01-ID6ID 00008C 4804+ID6TND DS XL2 DISPLACEMENT INTO RECORD. 01-ID6ID 4805+* 00008E 4806+ID6AMO DS 0XL6 START OF THE AUTO/MOTO INFORMATION 01-ID6ID 4807+* SECTION. 00008E 4808+ID6AMR DS XL4 FILE ADDRESS 01-ID6ID 000092 4809+ID6AMD DS XL2 DISPLACEMENT INTO RECORD. 01-ID6ID 4810+* 000094 4811+ DS XL6 *** SPARE BYTES *** 01-ID6ID 4812+* 00009A 4813+ID6SSC DS 0XL6 START DISPLACEMENT OF SEGMENT/CLASS OF 01-ID6ID 4814+* SERVICE SECTION. 4815+* ?THE START OF THIS SECTION IS ALWAYS ON A? 4816+* ?FULLWORD BOUNDARY ? 00009A 4817+ID6SSR DS XL4 FILE ADDRESS 01-ID6ID 00009E 4818+ID6SSD DS XL2 DISPLACEMENT INTO RECORD. 01-ID6ID 4819+* 0000A0 4820+ID6NAB DS 0XL6 NEXT AVAILABLE BYTE DISPLACEMENT. 01-ID6ID 0000A0 4821+ID6NAR DS XL4 FILE ADDRESS 01-ID6ID 0000A4 4822+ID6NAD DS XL2 DISPLACEMENT INTO RECORD. 01-ID6ID 4823+* 0000A6 4824+ DS XL12 *** SPARE BYTES *** 01-ID6ID 4825+* 4826+*--------------------------------------------------------------------- 4827+* 0000B2 4828+ID6CWL DS 0XL3 AVAILABLE FOR FUTURE USE 01-ID6ID 4829+* 4830+* 0000B2 4831+ID6CW1 DS B 01-ID6ID 0000B3 4832+ID6CW2 DS B 01-ID6ID 0000B4 4833+ID6CW3 DS B 01-ID6ID 4834+* 0000B5 4835+ DS X *** SPARE BYTE *** 01-ID6ID 4836+* 0000B6 4837+ID6CFP DS 0XL32 FIRST POSTING INDICATORS. THESE ARE NOT 01-ID6ID 4838+* USED IN THE IND AND ALL ARE SET TO ZERO. 4839+* IN THE IND, THE CORRESPONDING INDICATOR 4840+* IS SET ON (=1) WHEN A POSTING MESSAGE IS 4841+* SENT TO THOSE SYSTEMS IN WHICH A FIRST 4842+* POSTING AVAILABILITY AGREEMENT STATUS IS 4843+* MAINTAINED. 0000B6 4844+ID6FP1 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4845+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4846+* 0-7. 0000B7 4847+ID6FP2 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4848+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4849+* 8-15. 0000B8 4850+ID6FP3 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4851+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4852+* 16-23. 0000B9 4853+ID6FP4 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4854+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4855+* 24-31. 0000BA 4856+ID6FP5 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4857+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4858+* 32-39. 0000BB 4859+ID6FP6 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4860+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4861+* 40-47. 0000BC 4862+ID6FP7 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4863+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4864+* 48-55. 0000BD 4865+ID6FP8 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4866+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4867+* 56-63. 0000BE 4868+ID6FP9 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4869+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4870+* 64-71. 0000BF 4871+ID6F10 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4872+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4873+* 72-79. 0000C0 4874+ID6F11 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4875+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4876+* 80-87. 0000C1 4877+ID6F12 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4878+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4879+* 88-95. 0000C2 4880+ID6F13 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4881+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4882+* 96-103. 0000C3 4883+ID6F14 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4884+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4885+* 104-111. 0000C4 4886+ID6F15 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4887+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4888+* 112-119. 0000C5 4889+ID6F16 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4890+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4891+* 120-127. 0000C6 4892+ID6F17 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4893+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4894+* 128-135. 0000C7 4895+ID6F18 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4896+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4897+* 136-143. 0000C8 4898+ID6F19 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4899+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4900+* 144-151. 0000C9 4901+ID6F20 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4902+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4903+* 152-159. 0000CA 4904+ID6F21 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4905+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4906+* 160-167. 0000CB 4907+ID6F22 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4908+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4909+* 168-175. 0000CC 4910+ID6F23 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4911+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4912+* 176-183. 0000CD 4913+ID6F24 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4914+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4915+* 184-191. 0000CE 4916+ID6F25 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4917+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4918+* 192-199. 0000CF 4919+ID6F26 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4920+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4921+* 200-207. 0000D0 4922+ID6F27 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4923+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4924+* 208-215. 0000D1 4925+ID6F28 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4926+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4927+* 216-223. 0000D2 4928+ID6F29 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4929+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4930+* 224-231. 0000D3 4931+ID6F30 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4932+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4933+* 232-239. 0000D4 4934+ID6F31 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4935+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4936+* 240-247. 0000D5 4937+ID6F32 DS B FIRST POSTING INDICATORS FOR THOSE CLASSES 01-ID6ID 4938+* OF SERVICE WHOSE ORDINAL EQUIVALENTS ARE 4939+* 248-255. 4940+* 0000D6 4941+ID6TH0 DS B TRANCHE HEADER BIT INDICATORS 01-ID6ID 00080 4942+#ID6PVT EQU X'80' TRANCHE IS PROVISIONAL. NO SALES OR 01-ID6ID 4943+* SEAT ASSIGNMENT PERMITTED. 00040 4944+#ID6CFR EQU X'40' TRANCHE CLOSED FOR FURTHER RESERVATIONS 01-ID6ID 4945+* (VIA VMTC ENTRY ) 00020 4946+#ID6RST EQU X'20' TRANCHE IS RESTRICTED (BY VMTR ENTRY). 01-ID6ID 4947+* RESERVATIONS RESTRICTED TO CERTAIN AGENT 00010 4948+#ID6CNX EQU X'10' TRANCHE OPERATION HAS BEEN CANCELLED. 01-ID6ID 4949+* (VIA VMTX ENTRY ) 00008 4950+#ID6SFE EQU X'08' IF SET EQUAL TO ONE, AT LEAST ONE SEGMENT 01-ID6ID 4951+* HEADER ITEM CONTAINS A MESSAGE NUMBER 4952+* CORRESPONDING TO MESSAGE TEXT WHICH IS 4953+* TO BE DISPLAYED IN RESPONSE TO A SEGMENT 4954+* SELL REQUEST OR TO A SECONDARY SCHEDULES 4955+* DISPLAY REQUEST WHEN THAT SEGMENT IS 4956+* INVOLVED. 00004 4957+#ID6CFA EQU X'04' TRANCHE CLOSED FOR AGENCEMENT 01-ID6ID 4958+* (VIA 4GS ENTRY ) 00002 4959+#ID6DTN EQU X'02' DIFFERENT TRAIN NUMBER. 01-ID6ID 4960+* AT LEAST ONE LEG OF THIS TRANCHE 4961+* OPERATES UNDER A TRAIN NUMBER THAT IS 4962+* NOT EQUAL TO THE TRANCHE NUMBER. 00001 4963+#ID6CTN EQU X'01' CHANGE IN TRAIN NUMBER. 01-ID6ID 4964+* NOT ALL LEGS OF THIS TRANCHE OPERATE 4965+* WITH THE SAME TRAIN NUMBER. 0000D7 4966+ID6TH1 DS B TRANCHE HEADER BIT INDICATORS 01-ID6ID 00080 4967+#ID6FXS EQU X'80' NOOP DUE TO SCHEDULE CHANGE. 01-ID6ID 00040 4968+#ID6FDD EQU X'40' DOUBLE-DATED TRANCHE. THIS INDICATOR IS 01-ID6ID 4969+* SET BY SCHEDULE CHANGE FOR THOSE 4970+* TRANCHES ON WHICH THE DEPARTURE DATE OF 4971+* ANY LEG IS DIFFERENT FROM THE TRANCHE 4972+* INDEXING DATE. 00020 4973+#ID6FWL EQU X'20' WAITLIST EXISTS FOR THIS TRANCHE. THIS 01-ID6ID 4974+* BIT IS NOT USED IN THE A-06-INM AND IS 4975+* ALWAYS SET TO ZERO. IN THE A-06-IND, 4976+* IT WILL BE SET WHEN THE FIRST PARTY IS 4977+* WAITLISTED ON THE TRANCHE. THE BIT IS 4978+* TESTED AT EACH CANCELLATION IN ORDER TO 4979+* DETERMINE IF WAITLIST REVIEW SHOULD BE 4980+* INITIATED. SEE ALSO ID6CWL. 00004 4981+#ID6NYM EQU X'04' THIS TRANCHE NOT YIELD MANAGED RH1194 01-ID6ID 4982+*ID6FVM&LC0 EQU X'10' SEGMENT LIMIT SALES INPUT VIA VMSL ENTRY. 4983+* THIS BIT IS NOT USED IN THE A-06-IND AND 4984+* IS ALWAYS SET TO ZERO. IN THE A-06-IND, 4985+* THIS INDICATOR WILL BE SET EVERY TIME A 4986+* VMSL ENTRY IS MADE TO THIS TRANCHE/DATE. 4987+* THIS INDICATOR WILL BE CHECKED BY DSC 4988+* SEGMENT LIMIT SALES CARRY-FWD PROCESSING. 4989+*ID6LSE&LC0 EQU X'08' SEGMENT LIMIT SALES EXISTS ON ONE OR MORE 4990+* SEGMENTS OF THIS TRANCHE/DATE. 4991+* EQU X'04' **SPARE** 4992+*ID6STB&LC0 EQU X'02' TRANCHE STUBBED BY 'GI' MANUAL ENTRY. 00001 4993+#ID6TRE EQU X'01' TRAFFIC RESTRICTION EXISTS ON AT LEAST ONE 01-ID6ID 4994+* SEGMENT FOR THIS TRANCHE/DATE. 4995+* 0000D8 4996+ID6TH2 DS B TRANCHE HEADER BIT INDICATORS 01-ID6ID 00080 4997+#ID6NET EQU X'80' TRANCHE MANAGED WITH NET NESTING 01-ID6ID 4998+* EQU X'40' **SPARE** (FLIFO APPLIES THIS LEG/SABRE) 00020 4999+#ID6COL EQU X'20' IF SET EQUAL TO ONE, THIS 06-IND HAS BEEN 01-ID6ID 5000+* MODIFIED SINCE THE LAST DATA COLLECTION. 5001+* EQU X'10' **SPARE** (FLAGSTOP INDICATOR/SABRE) 5002+* EQU X'08' **SPARE** (FLAGSTOP DOUBLE DATE/SABRE) 5003+* EQU X'04' **SPARE** 5004+* EQU X'02' **SPARE** 5005+* EQU X'01' **SPARE** 0000D9 5006+ID6BSI DS 0XL13 BOARDPOINT INDICATORS FOR SALESGUIDE 01-ID6ID 5007+* ONE BIT FOR EACH BOARDPOINT STATION. 5008+* THIS APPLIES TO NON-VN USERS ONLY. 0000D9 5009+ID6SI1 DS B SALESGUIDE INDICATOR FOR BRDPTS 1-8. 01-ID6ID 0000DA 5010+ID6SI2 DS B SALESGUIDE INDICATOR FOR BRDPTS 9-16. 01-ID6ID 0000DB 5011+ID6SI3 DS B SALESGUIDE INDICATOR FOR BRDPTS 17-24. 01-ID6ID 0000DC 5012+ID6SI4 DS B SALESGUIDE INDICATOR FOR BRDPTS 23-32. 01-ID6ID 0000DD 5013+ID6SI5 DS B SALESGUIDE INDICATOR FOR BRDPTS 33-40. 01-ID6ID 0000DE 5014+ID6SI6 DS B SALESGUIDE INDICATOR FOR BRDPTS 41-48. 01-ID6ID 0000DF 5015+ID6SI7 DS B SALESGUIDE INDICATOR FOR BRDPTS 49-56. 01-ID6ID 0000E0 5016+ID6SI8 DS B SALESGUIDE INDICATOR FOR BRDPTS 57-64. 01-ID6ID 0000E1 5017+ID6SI9 DS B SALESGUIDE INDICATOR FOR BRDPTS 65-72. 01-ID6ID 0000E2 5018+ID6SIA DS B SALESGUIDE INDICATOR FOR BRDPTS 73-80. 01-ID6ID 0000E3 5019+ DS B SPARE 01-ID6ID 0000E4 5020+ DS B SPARE 01-ID6ID 0000E5 5021+ DS B SPARE 01-ID6ID 5023+*--------------------------------------------------------------------- 5024+* 5025+* TRANCHE CONFIGURATION SECTION 5026+* 5027+*--------------------------------------------------------------------- 5028+* 0000E6 5029+ID6NBV DS H THE NUMBER OF COACHES DEFINED IN THIS 01-ID6ID 5030+* TRANCHE. THE MAXIMUM VALUE IS DEFINED BY 5031+* THE EQUATE, #ID6MNV. 5032+* 00014 5033+#ID6MNV EQU 20 THE MAXIMUM NUMBER OF COACHES THAT MAY BE 01-ID6ID 5034+* DEFINED IN THE TRANCHE CONFIGURATION. 5035+* THIS IS EQUIVALENT TO THE NUMBER OF 5036+* COACHES IN TWO TGV RAMES. 5037+* 0000E8 5038+ID6CR1 DS X NUMBER OF COACHES IN THE FIRST TGV RAME 01-ID6ID 5039+* CONFIGURATION. ZERO IF NOT A TGV. 5040+* 0000E9 5041+ID6TR1 DS X TGV RAME CONFIGURATION CODE. 01-ID6ID 5042+* IF THIS TRANCHE IS A TGV TRANCHE, THIS 5043+* BYTE WILL CONTAIN THE ORDINAL NUMBER OF 5044+* THE RAME CONFIGURATION CODE. 5045+* IF THIS IS A TRANCHE COMPOSED OF 5046+* INDIVIDUAL COACHES, THIS BYTE WILL BE 5047+* BINARY ZERO. 0000EA 5048+ID6TR2 DS X TGV RAME CONFIGURATION CODE. 01-ID6ID 5049+* IF THIS TRANCHE IS A TGV TRANCHE AND IT 5050+* HAS TWO RAMES, THIS BYTE WILL CONTAIN 5051+* THE ORDINAL NUMBER OF THE SECOND RAME 5052+* CONFIGURATION CODE. 5053+* IF THIS IS A TRANCHE COMPOSED OF 5054+* INDIVIDUAL COACHES OR IF THERE IS ONLY 5055+* ONE RAME IN THE TRANCHE, THIS BYTE WILL 5056+* BE BINARY ZERO. 5057+* 0000EB 5058+ID6CR2 DS X NUMBER OF COACHES IN THE SECOND TGV RAME 01-ID6ID 5059+* CONFIGURATION. ZERO IF TRANCHE IS NOT 5060+* A TGV OR IF THERE IS ONLY ONE RAME. 5061+* 0000EC 5062+ DS XL4 SPARES 01-ID6ID 5063+* 0000F0 5064+ID6DTA DS 0XL480 TRANCHE CONFIGURATION DATA 01-ID6ID 5065+* 0000F0 5066+ID6CIN DS 0XL24 EQUIPMENT CONFIGURATION DEFINITION FOR 01-ID6ID 5067+* ONE COACH. THIS FIELD WILL EXIST FOR 5068+* EACH COACH. 0000F0 5069+ID6VON DS H COACH EQUIPMENT TYPE ORDINAL NUMBER. 01-ID6ID 5070+* THIS IS A BINARY ORDINAL NUMBER WHICH 5071+* UNIQUELY DEFINES THE COACH. 0000F2 5072+ID6VC1 DS X FIRST CLASS OF SERVICE IN THIS COACH. 01-ID6ID 5073+* THIS IS THE ORDINAL NUMBER, AS CALCULATED 5074+* BY A-07-CLCVC, OF THE BASE CLASS OF 5075+* SERVICE IN THIS COACH. 0000F3 5076+ID6VC2 DS X SECOND CLASS OF SERVICE IN THIS COACH. 01-ID6ID 5077+* WHEN A COACH HAS MORE THAN ONE BASE CLASS 5078+* OF SERVICE (A MAXIMUM OF 2 IS PERMITTED), 5079+* THIS CONTAINS THE SECOND BASE CLASS OF 5080+* SERVICE IN THE SAME FORMAT AS ID6VC1. 5081+* IF ONLY ONE BASE IS SUPPORTED IN THE 5082+* COACH, THIS FIELD WILL BE BINARY ZEROES. 0000F4 5083+ID6VNB DS H COACH NUMBER. 01-ID6ID 5084+* THIS IS THE BINARY EQUIVALENT OF THE 5085+* COACH NUMBER THAT IS TO BE PRINTED ON THE 5086+* TICKETS. 0000F6 5087+ID6VTY DS CL1 COACH USAGE TYPE. 01-ID6ID 5088+* THIS IS A SINGLE CHARACTER THAT MAY BE 5089+* USED TO IDENTIFY ANY SPECIAL USAGE FOR A 5090+* COACH. IT IS NOT REQUIRED AND MAY BE 5091+* BLANK OR BINARY ZERO. 0000F7 5092+ID6UIC DS XL1 UIC COMPANY CODE. 01-ID6ID 5093+* THIS IS THE BINARY EQUIVALENT OF THE 5094+* TWO NUMERIC DIGIT UIC CODE OF THE 5095+* COMPANY THAT OWNS THIS COACH. 0000F8 5096+ID6MT1 DS XL1 MEAL TYPE 1 AVAILABLE THIS COACH 01-ID6ID 5097+* - SEE ID6MLI/#ID6BDC/LDC/DDC/SDC. 5098+* - SEE ID6MLI/#ID6BMS/LMS/DMS/SMS. 0000F9 5099+ID6MC1 DS XL1 COUNT OF MEALS AVAILABLE IN THIS COACH OF 01-ID6ID 5100+* MEAL TYPE 1. SEE ID6MT2 FOR MEAL TYPE. 0000FA 5101+ID6SS1 DS H START TIME OF MEAL SERVICE IN COACH FOR 01-ID6ID 5102+* MEAL TYPE 1. SEE ID6MT1 FOR MEAL TYPE. 0000FC 5103+ID6SE1 DS H END TIME OF MEAL SERVICE IN COACH FOR 01-ID6ID 5104+* MEAL TYPE 1. SEE ID6MT1 FOR MEAL TYPE. 0000FE 5105+ID6MT2 DS XL1 MEAL TYPE 2 AVAILABLE THIS COACH 01-ID6ID 5106+* - SEE ID6MLI/#ID6BDC/LDC/DDC/SDC. 5107+* - SEE ID6MLI/#ID6BMS/LMS/DMS/SMS. 0000FF 5108+ID6MC2 DS XL1 COUNT OF MEALS AVAILABLE IN THIS COACH OF 01-ID6ID 5109+* MEAL TYPE 2. SEE ID6MT2 FOR MEAL TYPE. 000100 5110+ID6SS2 DS H START TIME OF MEAL SERVICE IN COACH FOR 01-ID6ID 5111+* MEAL TYPE 2. SEE ID6MT2 FOR MEAL TYPE. 000102 5112+ID6SE2 DS H END TIME OF MEAL SERVICE IN COACH FOR 01-ID6ID 5113+* MEAL TYPE 2. SEE ID6MT2 FOR MEAL TYPE. 5114+* 000104 5115+ID6VI1 DS XL1 COACH INDICATOR BYTE 1. 01-ID6ID 00080 5116+#ID6VAS EQU X'80' = 0 - COACH IS OPEN TO SEAT ASSIGNMENT. 01-ID6ID 5117+* = 1 - COACH IS CLOSED TO SEAT ASSIGNMENT. 00040 5118+#ID6SSI EQU X'40' TC4CSC HAS A VALUE FOR SPECIAL SERVICE 01-ID6ID 5119+* EQU X'20' **SPARE** 5120+* EQU X'10' **SPARE** 5121+* EQU X'08' **SPARE** 5122+* EQU X'04' **SPARE** 5123+* EQU X'02' **SPARE** 5124+* EQU X'01' **SPARE** 000105 5125+ID6VI2 DS XL1 COACH INDICATOR BYTE 2. 01-ID6ID 5126+* THIS BYTE IS USED TO COMMUNICATE CHANGES 5127+* TO THE TRANCHE CONFIGURATION BETWEEN THE 5128+* INVENTORY AND SEAT ASSIGNMENT SYSTEMS. 5129+* IT IS ALWAYS ZERO IN THE FILE COPY OF 5130+* THE INVENTORY RECORD; THE INDICATORS ARE 5131+* SET ON AND OFF DURING THE TRANSACTION 5132+* WHICH AFFECTS THE CONFIGURATION. 00080 5133+#ID6VAD EQU X'80' = 1 - THIS COACH IS BEING ADDED TO THE 01-ID6ID 5134+* TRANCHE CONFIGURATION. 00040 5135+#ID6VDE EQU X'40' = 1 - THIS COACH IS BEING DELETED FROM 01-ID6ID 5136+* THE TRANCHE CONFIGURATION. 00020 5137+#ID6VCL EQU X'20' = 1 - THIS COACH IS BEING CLOSED TO 01-ID6ID 5138+* SEAT ASSIGNMENTS. 00010 5139+#ID6VOP EQU X'10' = 1 - THIS COACH IS BEING OPENED TO 01-ID6ID 5140+* SEAT ASSIGNMENTS. 00008 5141+#ID6VML EQU X'08' = 1 - POTENTIAL MEALS AT SEATS IS 01-ID6ID 5142+* BEING CHANGED FOR THIS COACH. 5143+* EQU X'04' **SPARE** 5144+* EQU X'02' **SPARE** 5145+* EQU X'01' **SPARE** 5146+* 000106 5147+ DS XL2 *** SPARE BYTES *** 01-ID6ID 5148+* 000108 5149+ DS XL456 REMAINING 19 COACHES 01-ID6ID 5151+*--------------------------------------------------------------------- 5152+* 5153+* LEG HEADER SECTION 5154+* 5155+*--------------------------------------------------------------------- 5156+* 0002D0 5157+ID6LLH DS 0CL40 LEG HEADER SECTION LABEL AND START 01-ID6ID 0002D0 5158+ID6BRD DS XL3 BOARDING STATION CODE FOR THIS LEG. THIS 01-ID6ID 5159+* IS THE UGB3 ORDINAL EQUIVALENT OF THE 5160+* FIVE CHARACTER STATION CODE. 0002D3 5161+ID6LH1 DS B LEG HEADER INDICATOR BYTE 1 01-ID6ID 00080 5162+#ID6LOX EQU X'80' = 1 - THE OPERATION OF THE TRANCHE FROM 01-ID6ID 5163+* THIS STATION HAS BEEN CANCELLED. 00040 5164+#ID6LIW EQU X'40' INHIBIT WAITLIST CLEARANCE FOR THIS LEG. 01-ID6ID 5165+* W/L CLEARANCE FOR PASSENGERS BOARDING 5166+* AT THE BOARDPOINT OF THIS LEG IS 5167+* INHIBITED. 5168+* SET AND RESET BY AGENT ENTRY 5169+* "VMIW-STOP/GO" 00020 5170+#ID6LEC EQU X'20' LEG EQUIPMENT CODE HAS BEEN CHANGED ON A 01-ID6ID 5171+* 'MODIFY' ACTION CODE. THIS INDICATOR 5172+* IS SET BY KXM6 WHEN PROCESSING THE LEG 5173+* HEADERS AND IS UNSET WHEN THE NEW 5174+* AUTHORISATION LEVELS HAVE BEEN 5175+* CALCULATED AND STORED IN THE LEG/BUCKET 5176+* SECTION AND THE AVAILABILITY LEVELS 5177+* ADJUSTED ACCORDINGLY. IT IS NEVER SET 5178+* ON IN THE FILE COPY OF THE A-06-IND 5179+* EQU X'10' ** SPARE ** 00008 5180+#ID6LIS EQU X'08' INHIBIT NORMAL SALES. SET BY 03-PPF OR 01-ID6ID 5181+* 03-PPL WHEN A PSGR LOAD MSG (PLM) IS 5182+* MADE FOR THE BOARDPOINT OF THIS LEG. 5183+* NOTE: SETTING THE INHIBIT INDICATOR FOR 5184+* THE PSGR NAME LIST (PNL) ENTRY NOOP'D 5185+* IN NOV 1982 AT THE REQUEST OF T&TS. 00004 5186+#ID6LIX EQU X'04' INHIBIT CANCELLATIONS. SET BY 03-PPC 01-ID6ID 5187+* A SUCCESSFUL POST DPTR COMPLETION 5188+* (PDC) ENTRY IS MADE FOR BOARDPOINT OF 5189+* THIS LEG. 00002 5190+#ID6LPC EQU X'02' POST DEPARTURE COMPLETION. SET WHEN A 01-ID6ID 5191+* SUCCESSFUL POST DPTR COMPLETION 5192+* (PDC) ENTRY IS MADE FOR BOARDPOINT OF 5193+* THIS LEG. 00001 5194+#ID6LLM EQU X'01' PASSENGER LOAD MESSAGE. SET WHEN A 01-ID6ID 5195+* SUCCESSFUL PSGR LOAD MSG (PLM) ENTRY IS 5196+* MADE FOR BOARDPOINT OF THIS LEG. 0002D4 5197+ID6LH2 DS B LEG HEADER INDICATOR BYTE 2 01-ID6ID 00080 5198+#ID6LNP EQU X'80' NON-PARS CONTROLLED. INVENTORY FOR A LEG 01-ID6ID 5199+* IS CONTROLLED BY PARS WHEN ALL LEGS 5200+* UPLINE OF THE LEG'S OFFPOINT ARE MECHAN- 5201+* IZED, WHICH IS INDICATED BY THE BIT BEIN 5202+* SET TO ZERO. AT PRESENT THIS BIT IS 5203+* ALWAYS SET TO ZERO. 00040 5204+#ID6LRR EQU X'40' ROUND ROBIN. THIS STATION APPEARS 01-ID6ID 5205+* AGAIN IN THE LINE-OF-TRAVEL **AS DPTR** 5206+* COPIED FROM 06-IND BY 03-NRE OR SET BY 5207+* FLAGSTOP PACKAGE. 5208+* ONLY TWO ACTIVE (NON-OVERFLOWN) 5209+* DUPLICATED CITIES SHOULD EXIST IN AN 5210+* 06-IND. ANY NBR OF OVERFLOWN DUPLICATE 5211+* CITIES MAY APPEAR. ONLY THE LAST OF THE 5212+* DUPLICATED CITIES WILL NOT HAVE THIS BIT 5213+* SET. 5214+* EQU X'20' **SPARE** 5215+* EQU X'10' **SPARE** 00008 5216+#ID6DTM EQU X'08' DEPARTURE TIME MODIFIED BY DYNAMIC SCHED 01-ID6ID 5217+* CHANGE - THIS INDICATOR WILL NEVER BE 5218+* FILED TO SYSTEM IND 00004 5219+#ID6ATM EQU X'04' ARRIVAL TIME MODIFIED BY DYNAMIC SCHED 01-ID6ID 5220+* CHANGE - THIS INDICATOR WILL NEVER BE 5221+* FILED TO SYSTEM IND 00002 5222+#ID6LAI EQU X'02' INVENTORY ALERTS ARE INHIBITED FOR THIS 01-ID6ID 5223+* LEG. 00001 5224+#ID6SOR EQU X'01' STOP ON REQUEST ONLY INDICATOR. THIS 01-ID6ID 5225+* INDICATOR IS SET TO ONE IF THE TRANCHE 5226+* STOPS ONLY UPON PASSENGER REQUEST. 0002D5 5227+ID6LH3 DS B LEG HEADER INDICATOR BYTE 3 01-ID6ID 00080 5228+#ID6PDT EQU X'80' DEPARTURE TIME IS PROVISIONAL ONLY 01-ID6ID 00040 5229+#ID6PAT EQU X'40' ARRIVAL TIME IS PROVISIONAL ONLY 01-ID6ID 5230+* EQU X'20' **SPARE** 5231+* EQU X'10' **SPARE** 5232+* EQU X'08' **SPARE** 5233+* EQU X'04' **SPARE** 5234+* EQU X'02' **SPARE** 5235+* EQU X'01' **SPARE** 0002D6 5236+ID6LH4 DS B LEG HEADER INDICATOR BYTE 4 01-ID6ID 5237+* EQU X'80' **SPARE** 5238+* EQU X'40' **SPARE** 5239+* EQU X'20' **SPARE** 5240+* EQU X'10' **SPARE** 5241+* EQU X'08' **SPARE** 5242+* EQU X'04' **SPARE** 5243+* EQU X'02' **SPARE** 5244+* EQU X'01' **SPARE** 0002D7 5245+ID6LEQ DS XL1 LEG EQUIPMENT QUALIFIER 01-ID6ID 0002D8 5246+ID6DTK DS CL1 DEPARTURE STATION TRACKING CODE. 01-ID6ID 0002D9 5247+ID6DTI DS CL2 DEPARTURE STATION TERMINAL CODE. THIS 01-ID6ID 5248+* CODE MUST MATCH THE TERMINAL CODES IN 5249+* CONNECTING TIME ITEMS (A-06-CTR). THE 5250+* TERMINAL CODES ARE NOT REQUIRED IF CTR 5251+* ITEMS DO NOT EXIST. 0002DB 5252+ DS XL1 *** SPARE BYTE *** 01-ID6ID 0002DC 5253+ID6ATK DS CL1 ARRIVAL STATION TRACKING CODE. 01-ID6ID 0002DD 5254+ID6ATI DS CL2 ARRIVAL STATION TERMINAL CODE. THIS 01-ID6ID 5255+* CODE MUST MATCH THE TERMINAL CODES IN 5256+* CONNECTING TIME ITEMS (A-06-CTR). THE 5257+* TERMINAL CODES ARE NOT REQUIRED IF CTR 5258+* ITEMS DO NOT EXIST. 0002DF 5259+ID6BDR DS XL3 BORDER CROSSING POINT. THIS IS THE UGB3 01-ID6ID 5260+* ORDINAL EQUIVALENT OF THE FIVE CHARACTER 5261+* CODE AT WHICH THE TRANCHE CROSSES AN 5262+* INTERNATIONAL BORDER ON THIS LEG. IF NO 5263+* BORDER IS CROSSED THIS LEG, THIS WILL BE 5264+* HEXADECIMAL ZEROS. 0002E2 5265+ID6DSC DS P DATE DISCREPANCY FOR THIS LEG. SIGNED 01-ID6ID 5266+* QUANTITY. IF MINUS N, THE DATE OF DPTR 5267+* FOR THIS LEG IS N DAYS BEFORE THE DPTR 5268+* OF THE LAST LEG OF THE TRANCHE (FIELD 5269+* ID6DTE). 0002E3 5270+ID6IDA DS P IN-TRANSIT DATE ADJUSTMENT. 01-ID6ID 5271+* SIGNED QUANTITY. THIS IS THE NUMBER OF 5272+* DAYS DIFFERENCE BETWEEN THE DEPARTURE AND 5273+* ARRIVAL DATES OF THIS LEG. IF THE 5274+* TRANCHE ARRIVES AT THE OFFPOINT STATION 5275+* THE NEXT DAY, THIS WILL CONTAIN X'1C'. 5276+* IF, DUE TO CROSSING A TIME ZONE, THE 5277+* TRANCHE ARRIVES THE DAY BEFORE DEPARTURE 5278+* FROM THE BOARDPOINT, THIS FIELD WILL 5279+* CONTAIN X'1D'. 0002E4 5280+ID6DPT DS H DPTR TIME FOR THIS LEG (LOCAL TIME). THE 01-ID6ID 5281+* TIME IS EXPRESSED IN MINUTES SINCE 5282+* MIDNIGHT AND RANGES FROM 0 THRU 1439. 0002E6 5283+ID6ARR DS H ARVL TIME FOR THIS LEG (LOCAL TIME). THE 01-ID6ID 5284+* TIME IS EXPRESSED IN MINUTES SINCE 5285+* MIDNIGHT AND RANGES FROM 1 THRU 1440. 0002E8 5286+ID6KML DS H DISTANCE OVER THIS LEG IN KILOMETRES. 01-ID6ID 0002EA 5287+ID6LCT DS 0XL6 THE COMPANY CODE AND TRAIN NUMBER UNDER 01-ID6ID 5288+* WHICH THIS TRANCHE OPERATES ON IT'S 5289+* DEPARTURE FOR THIS LEG IF DIFFERENT TO 5290+* THE TRANCHE NUMBER. IF THE TRANCHE 5291+* AND TRAIN NUMBERS ARE EQUAL, THIS FIELD 5292+* WILL BE BINARY ZEROES. 0002EA 5293+ID6LCC DS CL2 RESARAIL COMPANY CODE. 01-ID6ID 0002EC 5294+ID6LTN DS XL4 TRAIN NUMBER IN BINARY. 01-ID6ID 5295+* 5296+*------------------------------------------------------------------- 5297+* Types de service (niveau du leg) 0002F0 5298+ID6TSV DS 0XL3 LEG SERVICE INDICATORS, FOR SERVICES 01-ID6ID 5299+* PROVIDED ON THE TRIP ON THIS LEG. 5300+* 0002F0 5301+ID6TS1 DS X LEG SERVICE INDICATORS 1 01-ID6ID 00080 5302+#ID6BAR EQU X'80' BAR 01-ID6ID 00040 5303+#ID6CYL EQU X'40' BICYCLE TRANSPORT 01-ID6ID 00020 5304+#ID6FAM EQU X'20' FAMILY COMPARTMENT 01-ID6ID 00010 5305+#ID6PHN EQU X'10' TELEPHONE 01-ID6ID 00008 5306+#ID6AMB EQU X'08' AMBULANTE 01-ID6ID 00004 5307+#ID6VDO EQU X'04' VIDEO 01-ID6ID 00002 5308+#ID6ENF EQU X'02' ENFANT 01-ID6ID 00001 5309+#ID6JEU EQU X'01' JEUNE VOYAGEUR SERVICE (JVS) 01-ID6ID 5310+* 0002F1 5311+ID6TS2 DS X LEG SERVICE INDICATORS 2 01-ID6ID 00080 5312+#ID6HDP EQU X'80' HANDICAPPED PASSENGER SERVICE 01-ID6ID 00040 5313+#ID6CIN EQU X'40' CINEMA BAR 01-ID6ID 00020 5314+#ID6GRL EQU X'20' GRILL EXPRESS 01-ID6ID 00010 5315+#ID6CAB EQU X'10' CABINE 8 01-ID6ID 00008 5316+#ID6NUR EQU X'08' NURSERY 01-ID6ID 00004 5317+#ID6SVA EQU X'04' SERVICE AFFAIRES 01-ID6ID 00002 5318+#ID6AMO EQU X'02' AUTO/MOTO SERVICE 01-ID6ID 00001 5319+#ID6VOR EQU X'01' VOITURE RESTAURANT 01-ID6ID 5320+* 0002F2 5321+ID6TS3 DS X LEG SERVICE INDICATORS 3 01-ID6ID 00080 5322+#ID6MAS EQU X'80' MEALS AT SEATS 01-ID6ID 00040 5323+#ID6CLB EQU X'40' CLUB SPANISH AVE BF0910 01-ID6ID 5324+*ID6PAN&LC0 EQU X'20' PANORAMIQUE BF0910 00010 5325+#ID6VEP EQU X'10' VEP VELO FC1112 01-ID6ID 00008 5326+#ID6AVC EQU X'08' AVC AVeugle avec Chien FK1213 01-ID6ID 00004 5327+#ID6PMR EQU X'04' PMR Personne à mobilité réduite FK1213 01-ID6ID 5328+* EQU X'02' **SPARE** 5329+* EQU X'01' **SPARE** 5330+* 0002F3 5331+ DS XL5 *** SPARE BYTES *** 01-ID6ID 0002F8 002F8 00000 5332+ ORG ID6HDR 01-ID6ID 5333+*--------------------------------------------------------------------- 5334+* 5335+* Terminating station section and length 5336+* 5337+*--------------------------------------------------------------------- 000000 5338+ID6TRM DS 0XL4 TERMINATING STATION SECTION AND LENGTH. 01-ID6ID 5339+* 000000 5340+ID6TAR DS XL3 TERMINATING STATION CODE. 01-ID6ID 000003 5341+ID6TA1 DS B TERMINATING STATION INDICATORS. 01-ID6ID 5342+* THIS BYTE OVERLAYS ID6LH1. 5343+* EQU X'80' **SPARE** 5344+* EQU X'40' **SPARE** 5345+* EQU X'20' **SPARE** 5346+* EQU X'10' **SPARE** 5347+* EQU X'08' **SPARE** 5348+* EQU X'04' **SPARE** 5349+* EQU X'02' **SPARE** 5350+* EQU X'01' **SPARE** 000004 00004 00000 5351+ ORG ID6HDR 01-ID6ID 5352+*--------------------------------------------------------------------- 5353+* 5354+* Leg/base class of service section and length 5355+* 5356+*--------------------------------------------------------------------- 000000 5357+ID6BCS DS 0CL10 LEG/BASE CLASS OF SERVICE SECTION AND 01-ID6ID 5358+* LENGTH 5359+* 5360+* THERE IS ONE SECTION FOR EACH COMBINATION OF BASE CLASS CODE 5361+* AND LEG. THEY ARE ORDER BY LEG IN THE SAME SEQUENCE AS THE LEG 5362+* HEADER SECTION AND, WITHIN LEG, BY BASE CLASS OF SERVICE CODE 5363+* 000000 5364+ID6BCL DS C CLASS CODE FOR THIS BASE CLASS OF SERVICE 01-ID6ID 5365+* THE ALPHABETIC CHARACTERS ARE THE 5366+* STANDARD CLASS OF SERVICE ONE-LETTER 5367+* CODES. TWO CHARACTER CODES ARE STORED 5368+* AS THE ORDINAL NUMBER EQUIVALENT AS 5369+* DETERMINED BY A-07-CLCVC. 5370+* THE BASE CLASS OF SERVICE CONFIGURATION 5371+* IS THE SAME OVER ALL LEGS OF THE TRANCHE. 000001 5372+ID6BCN DS X BUCKET NUMBER OF THIS BASE CLASS OF 01-ID6ID 5373+* SERVICE IN THE LEG BUCKET SECTION 000002 5374+ID6NNC DS X NUMBER OF NESTED BUCKETS ASSOCIATED WITH 01-ID6ID 5375+* THIS BASE CLASS OF SERVICE INCLUDING 5376+* THE BASE CLASS OF SERVICE, VALUES RANGE 5377+* FROM 1 TO A LIMIT SET BY #ID6MXN. 000003 5378+ID6BC1 DS X BASE CLASS OF SERVICE INDICATORS 01-ID6ID 5379+* THIS FIELD INDICATES THE RESERVATIONS 5380+* REQUIREMENTS FOR ALL CLASSES OF SERVICE 5381+* INDEXED INTO THIS BASE. THE SETTINGS 5382+* IN THIS BYTE MAY BE DIFFERENT TO THOSE 5383+* IN ID6RSI WHICH INDICATE THE GENERAL 5384+* STATUS OF RESERVATION REQUIREMENTS FOR 5385+* THE TRANCHE ALTHOUGH, USUALLY, THEY WILL 5386+* BE THE SAME. 5387+* ONE, AND ONLY ONE, INDICATOR WILL BE SET 5388+* FOR EACH BASE. 5389+* SEE ALSO ID6RSI. 5390+* NOTE: THE SETTINGS OF BITS 0-3 IN THIS 5391+* BYTE ARE THE SAME AS ID6RSI(0-3). 5392+* THE SAME EQUATES MAY BE USED FOR 5393+* ID6RSI AND ID6BC1. THEY ARE 5394+* REPEATED HERE (COMMENTED OUT) FOR 5395+* REFERENCE ONLY. 5396+*#ID6MDY&LC0 EQU X'80' = 1 - MANDATORY 5397+*#ID6REC&LC0 EQU X'40' = 1 - RECOMMENDED 5398+*#ID6OPT&LC0 EQU X'20' = 1 - OPTIONAL 5399+*#ID6MAN&LC0 EQU X'10' = 1 - MANUAL 5400+* EQU X'08' **SPARE** 5401+* EQU X'04' **SPARE** 5402+* EQU X'02' **SPARE** 5403+* EQU X'01' **SPARE** 000004 5404+ID6ACT DS H ACTUAL SEATING CAPACITY FOR THIS LEG/ 01-ID6ID 5405+* BASE CLASS OF SERVICE FOR THE EQUIPMENT 5406+* TYPE USED. MAY BE ANY NON-NEGATIVE 5407+* NUMBER. MODIFIED BY VMAC/VNAC (03-VML). 000006 5408+ID6BSS DS H BASE CLASS OF SERVICE SEATS SOLD. THIS 01-ID6ID 5409+* REFLECTS THE TOTAL NUMBER OF SEATS SOLD 5410+* IN THIS BASE CLASS AND ALL OF THE 5411+* BUCKETS NESTED INTO IT FOR THIS 5412+* TRANCHE. 000008 5413+ID6WTH DS H WITHHELD SEATS. THIS NUMBER REFLECTS THE 01-ID6ID 5414+* NUMBER OF SEATS NOT RELEASED FOR SALE 5415+* DUE TO SPECIFIC COACH OR COMPARTMENT 5416+* BLOCKING (EG POLICE, CUSTOMS). 00000A 0000A 00000 5417+ ORG ID6HDR 01-ID6ID 5418+*--------------------------------------------------------------------- 5419+* 5420+* LEG/BUCKET SECTION 5421+* 5422+* THIS SECTION IS ORGANIZED BY LEG IN THE SAME ORDER AS THE LEG 5423+* HEADER SECTION. ALL BUCKETS ASSOCIATED WITH EACH LEG ARE 5424+* GROUPED TOGETHER. NESTED BUCKETS ARE STORED IMMEDIATELY 5425+* FOLLOWING THE BUCKET OF THE BASE CLASS OF SERVICE IN 5426+* ASCENDING ORDER BY VIRTUAL INDEX. 5427+* 5428+* FOR NON-VN USERS, THE ORDER OF THE BUCKETS WITHIN A NESTED 5429+* GROUP IS BY DECREASING REVENUE POTENTIAL. 5430+* 5431+*--------------------------------------------------------------------- 000000 5432+ID6LCS DS 0CL14 LEG/BUCKET SECTION LABEL AND LENGTH. 01-ID6ID 000000 5433+ID6CLC DS C CLASS CODE FOR THIS BUCKET. FOR 01-ID6ID 5434+* FOR VN USERS, THIS FIELD IS THE BASE 5435+* CLASS CODE. FOR NON-VN PARTITIONS, 5436+* THIS IS THE BOOKING CLASS FOR THE BUCKET. 5437+* (THE LEG BASE CLASS OF SERVICE CONFIG. IS 5438+* THE SAME OVER ALL LEGS OF THE TRANCHE.) 000001 5439+ID6BCP DS X BASE CLASS OF SERVICE SECTION NUMBER 01-ID6ID 5440+* RELATIVE TO START OF BASE CLASS OF 5441+* SERVICE SECTION FOR THIS LEG (STARTS 5442+* WITH 1 ) INTO WHICH THIS BUCKET IS 5443+* NESTED. SEE ID6LC2, BITS 6+7 000002 5444+ID6LC1 DS B LEG/BUCKET INDICATORS 01-ID6ID 5445+* EQU X'80' CURRENTLY NOT IN USE. SW10/92 00040 5446+#ID6CSI EQU X'40' SPOILAGE INDICATOR. SET TO ONE SW10/92 01-ID6ID 5447+* WHEN SEATS AVAILABLE ON THIS LEG SW10/92 5448+* BUCKET ARE EQUAL TO OR LESS THAN SW10/92 5449+* ZERO AT ANY TIME MORE THAN THE SW10/92 5450+* NUMBER OF MINUTES IN GLOBAL SW10/92 5451+* @SPLGE. SET TO ZERO IF SEATS SW10/92 5452+* AVAILABLE ARE GREATER THAN ZERO SW10/92 5453+* MORE THAN 24 HOURS BEFORE SW10/92 5454+* DEPARTURE. SW10/92 5455+* (THIS BIT IS NOT USED IN THE INM SW10/92 5456+* AND IS ALWAYS SET TO ZERO.) SW10/92 00020 5457+#ID6CCL EQU X'20' CLOSED INDICATOR. SET TO ONE IF SW10/92 01-ID6ID 5458+* SEATS AVAILABLE FOR THIS LEG/ SW10/92 5459+* BUCKET BECOME EQUAL TO OR LESS SW10/92 5460+* THAN ZERO AT ANY TIME. THIS BIT SW10/92 5461+* IS NEVER RESET. SW10/92 5462+* (THIS BIT IS NOT USED IN THE INM SW10/92 5463+* AND IS ALWAYS SET TO ZERO.) SW10/92 00010 5464+#ID6CLP EQU X'10' POSTED INDICATOR. SET TO ONE SW10/92 01-ID6ID 5465+* WHEN SEATS AVAILABLE ARE LESS SW10/92 5466+* THAN OR EQUAL TO THE POSTING SW10/92 5467+* LEVEL IN THE MICRO-HOST TABLE SW10/92 5468+* (06-MHS, MH2CLL). THIS BIT IS SW10/92 5469+* SET TO ZERO WHEN THE SEATS SW10/92 5470+* AVAILABLE ARE EQUAL TO OR SW10/92 5471+* GREATER THAN THE LEVEL IN SW10/92 00008 5472+#ID6CRI EQU X'08' RE-OPENED INDICATOR. SET TO ONE SW10/92 01-ID6ID 5473+* WHEN SEATS AVAILABLE ARE GREATER SW10/92 5474+* THAN OR EQUAL TO THE RE-OPEN SW10/92 5475+* LEVEL IN THE MICRO-HOST TABLE. SW10/92 5476+* EQU X'04' CURRENTLY NOT IN USE. 5477+*********************************************************************** 5478+*NOTE: THE DEFINITION OF THE NEXT TWO BITS HAS CHANGED. THEY WILL BE * 5479+* SET AS DEFINED, INDEPENDENT OF ANY NESTED COMPARTMENT INDICAT- * 5480+* ORS. SEE ID6BCP AND ID6LC2(6,7). * 5481+*********************************************************************** 00002 5482+#ID6CDM EQU X'02' BITS 6-7 DUPLICATE COMPARTMENT (CLASS) 01-ID6ID 00001 5483+#ID6CDP EQU X'01' INDICATORS. 01-ID6ID 5484+* IF BIT 7=1, THE NEXT HIGHER NUMBERED 5485+* COMPARTMENT HAS THE SAME CLASS CODE AS 5486+* THIS COMPARTMENT. 5487+* IF BIT 6=1, THE NEXT LOWER NUMBERED 5488+* COMPARTMENT HAS THE SAME CLASS CODE AS 5489+* AS THIS COMPARTMENT. 5490+* BOTH BITS MAY BE ON, INDICATING THAT 5491+* THIS COMPARTMENT CLASS IS DUPED BOTH 5492+* HIGHER AND LOWER. 000003 5493+ID6LC2 DS B BIT INDICATORS 01-ID6ID 00080 5494+#ID6CAS EQU X'80' INVENTORY ALERT HAS BEEN SENT FOR SW09/92 01-ID6ID 5495+* THIS CLASS (CLASS/VIRTUAL INDEX SW09/92 5496+* FOR VN USERS). SW09/92 5497+* EQU X'40' CURRENTLY NOT IN USE. 5498+* EQU X'20' CURRENTLY NOT IN USE. 5499+* EQU X'10' CURRENTLY NOT IN USE. 5500+* EQU X'08' CURRENTLY NOT IN USE. 5501+* EQU X'04' CURRENTLY NOT IN USE. 00002 5502+#ID6CNI EQU X'02' THE PREVIOUS BUCKET IS A PART OF 01-ID6ID 5503+* THIS NESTED GROUP. 00001 5504+#ID6CBC EQU X'01' THE NEXT HIGHER NUMBERED BUCKET 01-ID6ID 5505+* IS A CONTINUATION OF THIS NESTED GROUP. 5506+* BKT # 1 2 3 4 5 6 7 8 5507+* ID6BCL F F C Y Y Y Y Y 5508+* ID6BCP 1 1 3 4 4 4 4 4 5509+* VIRT INDEX 0 1 0 0 1 2 3 4 5510+* ID6LC2(6,7) 01 10 00 01 11 11 11 10 5511+* NEST --> <-- --- --> <-> <-> <-> <-- 000004 5512+ID6LC3 DS B LEG/BUCKET INDICATORS 01-ID6ID 00080 5513+#ID6VAU EQU X'80' THE VALUE IN BITS 3-15 IS THE MOST CURRENT 01-ID6ID 5514+* VM/VNAU MANUAL ADJ MADE UNLESS #ID6CBM IS 5515+* ON. IN THAT CASE ID6AUT IS MOST CURRENT & 5516+* IT WILL BE MOVED TO ID6ADJ IF DICTATED BY 5517+* ID6SRC. 00040 5518+#ID6CBM EQU X'40' THIS L/B AUTH HAS BEEN CHANGED. SET BY VM/ 01-ID6ID 5519+* VNAU (A-03-VMA/VNA). TESTED/RESET BY FLP. 5520+* IF ON, FLP NIGHTLY UPDATE (NBD) WILL RE- 5521+* EVALUATE ID6ADJ CAUSING THE BOOKING LEVEL 5522+* TO BE SCALED TO A VALUE REFLECTING THE 5523+* DESIRED BOOKING PERCENTAGE OR ID6ADJ WILL 5524+* RECEIVE THE VALUE FROM ID6AUT. 00020 5525+#ID6TLP EQU X'20' THE VALUE IN BITS 3-15 WAS CALCULATED BY 01-ID6ID 5526+* TLP (03-NBD) AND IS NOT TO BE USED BY 5527+* MANAGEMENT REPORTS AS FINAL CAPACITY. 00010 5528+#ID6CSH EQU X'10' THE WINDOW FOR RECORDING SPOILAGE SW10/92 01-ID6ID 5529+* IN HISTORY HAS BEEN OPENED. SW10/92 00008 5530+#ID6CIW EQU X'08' WAITLIST CLEARANCE INHIBITED. SW10/92 01-ID6ID 5531+* EQU X'04' **SPARE** 5532+* EQU X'02' **SPARE** 5533+* EQU X'01' **SPARE** 000005 5534+ID6SRC DS C AUTHORISATION UPDATE SOURCE CODE A - Z 01-ID6ID 000C8 5535+#ID6BCA EQU C'H' UPDATE BY SEAT FOR BEDS COUCH AVL BF0910 01-ID6ID 5536+*--------- 000006 5537+ID6SAV DS H LEG SEATS AVAILABLE IN THIS LEG/BUCKET 01-ID6ID 5538+* CALCULATED USING ACTUAL CAPACITY AND 5539+* PARAMETERS IN THE SEAT AUTHORIZATION 5540+* TABLE (A-06-KEQ) (THRESHOLD ONLY) 5541+* (ID6TH2,#ID6NET WILL BE 'OFF' FOR 5542+* THRESHOLD NESTING) 000008 00008 00006 5543+ ORG ID6SAV 01-ID6ID 000006 5544+ID6SOL DS H NUMBER OF SOLD SEATS(NET NESTING ONLY) 01-ID6ID 5545+* (ID6TH2,#ID6NET WILL BE 'ON' FOR 'NET') 5546+*--------- 000008 5547+ID6AUT DS H AUTHORISED CAPACITY. THE NUMBER OF SEATS 01-ID6ID 5548+* AUTHORISED FOR SALE ON THIS L/B. 5549+* MAY BE ANY NON-NEGATIVE NUMBER. 00000A 5550+ID6ADJ DS H ADJUSTED AUTHORISED CAPACITY. 01-ID6ID 5551+* NORMALLY EQUAL TO ID6AUT IN THE IND. 5552+* IN THE IND, THE CONTENTS OF ID6AUT ARE 5553+* STORED HERE BEFORE ANY UPDATE MADE BY 5554+* DINAMO. UPDATES VIA AGENT VMAU/VNAU DO 5555+* NOT ALTER THIS FIELD. 00000C 5556+ID6PFC DS X Preferred Inventory percentage 0.06 01-ID6ID 00000D 5557+ DS X *** SPARE BYTE *** 0.06 01-ID6ID 00000E 0000E 00000 5558+ ORG ID6HDR 01-ID6ID 5559+* 5560+*--------------------------------------------------------------------- 5561+* 5562+* SEGMENT HEADER SECTION. 5563+* 5564+* THIS SECTION IS ORGANIZED BY SEGMENT IN ORDER BY BOARDPOINT 5565+* AS LISTED IN THE LEG HEADER. THE ORDER OF THE SEGMENTS FOR A 5566+* BOARD POINT IS FROM SHORTEST TO LONGEST. 5567+* 5568+*--------------------------------------------------------------------- 000000 5569+ID6SSH DS 0CL16 SEGMENT HEADER SECTION. 01-ID6ID 000000 5570+ID6SMN DS H SEGMENT NUMBER - SAME AS ID6SGN 01-ID6ID 5571+* SMN = ((((2 * ID6NLG) - II2LEG + 2) 5572+* * (II2LEG - 1)) / 2) + II2LGS 000002 5573+ID6KMS DS H SEGMENT DISTANCE IN KILOMETRES. 01-ID6ID 000004 5574+ID6SUP DS B SUPPLEMENT INDICATORS FOR THIS SEGMENT. 01-ID6ID 000F0 5575+#ID6NSP EQU X'F0' = 0000 NO SUPPL. APPLIES FOR THIS TRAIN. 01-ID6ID 00080 5576+#ID6TGV EQU X'80' = 0 - NON-TGV SERVICE. 01-ID6ID 5577+* = 1 - TGV SERVICE. 00070 5578+#ID6SLV EQU X'70' IF ID6SUP/#ID6TGV = 1, THESE 3 BITS 01-ID6ID 5579+* CONTAIN THE SUPPLEMENT LEVEL FOR TGVs. 5580+* (BINARY VALUES 1 TO 4 FOR PHASE CRS) 5581+* 00020 5582+#ID6NTN EQU X'20' IF ID6SUP/#ID6TGV = 0, THIS BIT INDICA- 01-ID6ID 5583+* TES A NORMAL SUPPLEMENT (NON TGV). 00010 5584+#ID6NTR EQU X'10' IF ID6SUP/#ID6TGV = 0, THIS BIT INDICA- 01-ID6ID 5585+* TES A REDUCED SUPPLEMENT (NON TGV). 5586+* EQU X'08' **SPARE** 5587+* EQU X'04' **SPARE** 5588+* EQU X'02' **SPARE** 5589+* EQU X'01' **SPARE** 000005 5590+ID6TRC DS C ALPHA TRAFFIC RESTRICTION CODE 01-ID6ID 000006 5591+ID6SGI DS X SEGMENT INDICATORS. 01-ID6ID 00080 5592+#ID6OSD EQU X'80' OVER-RIDING SEGMENT DISTANCE INDICATOR. 01-ID6ID 5593+* THE DISTANCE FOR THIS SEGMENT IS NOT 5594+* EQUAL TO THE SUM OF THE DISTANCES FOR 5595+* EACH LEG WHICH COMPRISE THE SEGMENT. 00040 5596+#ID6AUM EQU X'40' AUTO/MOTO SERVICE IS AVAILABLE ON THIS 01-ID6ID 5597+* SEGMENT. 00020 5598+#ID6SCF EQU X'20' SNCF COMPLETE FARE INDICATOR SCR1682 NH0997 01-ID6ID 00010 5599+#ID6SDM EQU X'10' SENS DE LA MARCHE ACCEPTE KD1110 01-ID6ID 00008 5600+#ID6PCD EQU X'08' PRIX COMPLETS DOMESTIQUES HERMES DN1415 01-ID6ID 5601+* EQU X'04' **SPARE** 5602+* EQU X'02' **SPARE** 5603+* EQU X'01' **SPARE** 000007 5604+ID6MLI DS X MEAL SERVICE CODE INDICATORS. 01-ID6ID 00080 5605+#ID6BDC EQU X'80' BREAKFAST IS AVAILABLE IN THE DINING CAR 01-ID6ID 00040 5606+#ID6LDC EQU X'40' LUNCH IS AVAILABLE IN THE DINING CAR 01-ID6ID 00020 5607+#ID6DDC EQU X'20' DINNER IS AVAILABLE IN THE DINING CAR 01-ID6ID 00010 5608+#ID6SDC EQU X'10' SNACK IS AVAILABLE IN THE DINING CAR 01-ID6ID 00008 5609+#ID6BMS EQU X'08' BREAKFAST IS AVAILABLE AT SEATS 01-ID6ID 00004 5610+#ID6LMS EQU X'04' LUNCH IS AVAILABLE AT SEATS 01-ID6ID 00002 5611+#ID6DMS EQU X'02' DINNER IS AVAILABLE AT SEATS 01-ID6ID 00001 5612+#ID6SMS EQU X'01' SNACK IS AVAILABLE AT SEATS 01-ID6ID 000008 5613+ID6SM1 DS H FIRST MESSAGE NUMBER. 01-ID6ID 5614+* THIS IS A BINARY NUMBER WHICH CORRESPONDS 5615+* TO MESSAGE TEXT IN THE SCHEDULES DATABASE 5616+* MESSAGE TABLES. ZERO IF NO MESSAGE 5617+* APPLIES TO THIS SEGMENT. (IF NON-ZERO, 5618+* THE MESSAGE CORRESPONDING TO THIS NUMBER 5619+* WILL BE DISPLAYED TO AN AGENT IN RESPONSE 5620+* TO A SEGMENT SELL REQUEST AND ALSO IN A 5621+* SECONDARY CITY PAIR DISPLAY. 00000A 5622+ID6SM2 DS H SECOND MESSAGE NUMBER. 01-ID6ID 5623+* SAME AS ID6SM1 ABOVE. 00000C 5624+ DS XL1 *** SPARE BYTE *** 01-ID6ID 00000D 5625+ID6SCP DS 0XL3 POINTER TO SEGMENT/CLASS OF SERVICE 01-ID6ID 5626+* SECTION FOR THIS SEGMENT. IF ZERO, THEN 5627+* NO SEG/CLASS OF SERVICE SECTION EXISTS 5628+* FOR THIS SEGMENT. 00000D 5629+ID6SCR DS X RECORD NUMBER IN CHAIN IN WHICH THE FIRST 01-ID6ID 5630+* SEGMENT/CLASS OF SERVICE ITEM IS LOCATED. 00000E 5631+ID6SCD DS XL2 DISPLACEMENT INTO THE RECORD AT WHICH THE 01-ID6ID 5632+* FIRST SEGMENT/CLASS OF SERVICE ITEM IS 5633+* LOCATED. 000010 00010 00000 5634+ ORG ID6HDR 01-ID6ID 5635+* 5636+*--------------------------------------------------------------------- 5637+* 5638+* TRANCHE NAME SECTION. 5639+* 5640+* THIS SECTION CONTAINS THE NAME OF THE TRANCHE IF ONE EXISTS. 5641+* IF THERE IS NO NAME, THIS FIELD WILL NOT EXIST. 5642+* 5643+*--------------------------------------------------------------------- 000000 5644+ID6TNI DS 0CL30 TRANCHE NAME ITEM. 01-ID6ID 5645+* IF THERE IS NO NAME, THIS FIELD WILL 5646+* NOT EXIST. 000000 00000 00000 5647+ ORG ID6HDR 01-ID6ID 5648+* 5649+*--------------------------------------------------------------------- 5650+* 5651+* AUTO/MOTO DATA SECTION. 5652+* 5653+* THIS SECTION DEFINES ANY SERVICE RELATING TO THE CARRIAGE OF 5654+* AUTOMOBILES, MOTORCYCLES, ETC. ON THIS TRANCHE. IF THIS 5655+* SERVICE IS NOT PROVIDED, THIS SECTION WILL NOT EXIST. 5656+* 5657+* THE SECTION MAY BE SPLIT ACROSS RECORDS. HOWEVER, A SINGLE 5658+* ITEM MAY NOT BE SPLIT ACROSS RECORDS. 5659+* 5660+*--------------------------------------------------------------------- 000000 5661+ID6AMS DS 0C AUTO/MOTO SECTION (VARIABLE LENGTH) 01-ID6ID 5662+* 000000 5663+ID6NMS DS H NUMBER OF MINIMUM SEGMENTS OVER WHICH 01-ID6ID 5664+* AUTO/MOTO SERVICE IS AVAILABLE. 000002 5665+ID6MSI DS 0XL40 MINIMUM SEGMENT ITEM. 01-ID6ID 5666+*SCR6097 ONE ITEM WILL NOT BE SPLIT ACROSS TWO 5667+*SCR6097 RECORDS. 5668+*ID6MSI&LC0 DS 0XL24 MINIMUM SEGMENT ITEM. 5669+* ONE ITEM WILL NOT BE SPLIT ACROSS TWO 5670+* RECORDS. 000002 5671+ID6MSG DS XL10 MINIMUM SEGMENT. THE BRD AND OFF PTS OF 01-ID6ID 5672+*SCR6097 THE MINIMUM SEGMENT IN UGB3 ORDINAL 5673+* NUMBER FORMAT. 5674+*ID6MSG&LC0 DS XL6 MINIMUM SEGMENT. THE BRD AND OFF PTS OF 5675+* THE MINIMUM SEGMENT IN UGB3 ORDINAL 5676+* NUMBER FORMAT. 00000C 5677+ID6MLU DS XL10 LOADING AND UNLOADING POINTS. 01-ID6ID 5678+*SCR6097 THE UGB3 ORDINAL NUMBERS OF THE DELIVERY 5679+* (LOADING) AND PICK-UP (UNLOADING) POINTS 5680+* FOR THIS SEGMENT. 5681+*ID6MLU&LC0 DS XL6 LOADING AND UNLOADING POINTS. 5682+*SCR6097 THE UGB3 ORDINAL NUMBERS OF THE DELIVERY 5683+* (LOADING) AND PICK-UP (UNLOADING) POINTS 5684+* FOR THIS SEGMENT. 000016 5685+ID6MSD DS CL2 DATE DISCREPANCY BETWEEN START OF VEHICUL 01-ID6ID 5686+*SCR6097 DELIVERY PERIOD AND DATE OF PASSENGER 5687+* DEPARTURE. '00' FOR SAME DAY OR '-1' FOR 5688+* THE DAY BEFORE. 000018 5689+ID6MDS DS XL4 STARTING TIME FOR DELIVERY OF VEHICLES TO 01-ID6ID 5690+*SCR6097 THE LOADING POINT (MAY CONTAIN ANY VALUE 5691+*SCR6097 FROM 0 TO 1439). 00001C 5692+ID6MDE DS XL4 ENDING TIME FOR DELIVERY OF VEHICLES TO 01-ID6ID 5693+*SCR6097 THE LOADING POINT (MAY CONTAIN ANY VALUE 5694+*SCR6097 FROM 1 TO 1440). 5695+*ID6MDS&LC0 DS XL2 STARTING TIME FOR DELIVERY OF VEHICLES T 5696+*SCR6097 THE LOADING POINT (MAY CONTAIN ANY VALUE 5697+*SCR6097 FROM 0 TO 1439). 5698+*ID6MDE&LC0 DS XL2 ENDING TIME FOR DELIVERY OF VEHICLES TO 5699+*SCR6097 THE LOADING POINT (MAY CONTAIN ANY VALUE 5700+*SCR6097 FROM 1 TO 1440). 000020 5701+ID6MED DS CL2 DATE DISCREPANCY BETWEEN START OF VEHICUL 01-ID6ID 5702+*SCR6097 COLLECTION PERIOD AND DATE OF PASSENGER 5703+* ARRIVAL. '00' FOR SAME DAY OR '-1' FOR 5704+* THE DAY AFTER. 000022 5705+ID6MPS DS XL4 STARTING TIME FOR PICK-UP OF VEHICLES 01-ID6ID 5706+*SCR6097 FROM THE UNLOADING POINT (MAY CONTAIN 5707+*SCR6097 ANY VALUE FROM 0 TO 1439). 000026 5708+ID6MPE DS XL4 ENDING TIME FOR PICK-UP OF VEHICLES FROM 01-ID6ID 5709+*SCR6097 THE UNLOADING POINT (MAY CONTAIN ANY 5710+*SCR6097 VALUE FROM 1 TO 1440). 5711+*ID6MPS&LC0 DS XL2 STARTING TIME FOR PICK-UP OF VEHICLES 5712+*SCR6097 FROM THE UNLOADING POINT (MAY CONTAIN 5713+*SCR6097 ANY VALUE FROM 0 TO 1439). 5714+*ID6MPE&LC0 DS XL2 ENDING TIME FOR PICK-UP OF VEHICLES FROM 5715+*SCR6097 THE UNLOADING POINT (MAY CONTAIN ANY 5716+*SCR6097 VALUE FROM 1 TO 1440). 00002A 0002A 00000 5717+ ORG ID6HDR 01-ID6ID 5718+* 5719+*--------------------------------------------------------------------- 5720+* 5721+* SEGMENT/CLASS OF SERVICE SECTION. 5722+* 5723+* THIS SECTION IS ORGANIZED BY SEGMENT IN RANDOM ORDER 5724+* ALL CLASS OF SERVICE ITEMS FOR A SEGMENT ARE TOGETHER IN ORDER 5725+* BY BOOKING CLASS AND VIRTUAL INDEX. 5726+* 5727+* FOR NON-VN USERS, THE ORDER OF THE ITEMS IS THE SAME AS 5728+* IN THE BASE CLASS OF SERVICE SECTION. 5729+* 5730+* THESE SECTIONS ARE BUILT AS REQUIRED SUCH AS WHEN A SEAT IS 5731+* SOLD. FOR NON-VN USERS USING SEGMENT LIMIT SALES, THESE 5732+* SECTIONS WILL BE BUILT FOR ALL SEGMENT CLASSES HAVING SLS 5733+* IN EFFECT. THE SLS FIELDS WILL NOT EXIST IN VN INDS. 5734+* (SEE ID6BSC) 5735+* 5736+* NOTE: FOR THE INITIAL CRS IMPLEMENTATION, SEGMENT/CLASS OF 5737+* SERVICE ITEMS WILL BE CREATED FOR ONLY THE SEGMENT/BASE 5738+* CLASS AND THE VIRTUAL INDEX (ID6VIX) WILL ALWAYS BE ZERO. 5739+* I.E. THE BOOKED CLASS WILL ALWAYS BE CONVERTED TO THE 5740+* BASE CLASS BEFORE CREATING A NEW SEGMENT- CLASS OF SERVICE 5741+* ITEM IF ONE DOES NOT ALREADY EXIST. ID6CCB WILL ALWAYS 5742+* CONTAIN THE BASE CLASS OF SERVICE CODE AND ID6VIX WILL 5743+* ALWAYS BE ZERO UNTIL A POST-CRS PHASE. 5744+* 5745+*--------------------------------------------------------------------- 000000 5746+ID6SCS DS 0CL14 SEGMENT CLASS OF SERVICE ITEM 01-ID6ID 5747+* NOTE: DO NOT USE THE LENGTH ATTRIBUTE FOR 5748+* THIS SECTION SINCE IT MAY BE 5749+* DIFFERENT BETWEEN VIRTUAL NESTING 5750+* AND STANDARD NESTING USERS. REFER 5751+* TO ID6BSC FOR THE LENGTH OF EACH 5752+* ITEM IN THIS SECTION. 5753+* NOTE: TWO HALFWORD FIELDS ARE COMMENTED 5754+* OUT AT THE END OF THIS SECTION. 5755+* THEY ARE FOR STANDARD NESTING USERS 5756+* ONLY AND ARE NOT USED IN RESARAIL 5757+* AT THIS TIME. 000000 5758+ID6SGN DS H SEGMENT NUMBER - SAME AS ID6SMN 01-ID6ID 5759+* SGN = ((((2 * ID6NLG) - II2LEG + 2) 5760+* * (II2LEG - 1)) / 2) + II2LGS 000002 5761+ID6CCB DS C BOOKING CLASS CODE - VN PARTITIONS 01-ID6ID 5762+* FOR NON-VN PARTITIONS, THIS IS THE 5763+* CLASS CODE APPROPRIATE FOR THIS SEGMENT 5764+* CLASS ITEM. IT IS THE CLASS CODE 5765+* WHICH WILL TO BE STORED IN THE BAS 5766+* FOR NON-VIRTUAL NESTED PARTITIONS. 5767+* THESE SECTIONS WILL BE BUILT AT SCHEDULE 5768+* CHANGE TIME IF THE CLASS DOES NOT MATCH 5769+* THE LEG/CMPT SECTION BOOKING CLASS CODE. 000003 5770+ID6VIX DS X VIRTUAL INDEX (RELATIVE CMPT FOR NON-VN) 01-ID6ID 000004 5771+ID6SBN DS X BASE CLASS OF SERVICE ITEM IN BASE CLASS 01-ID6ID 5772+* OF SERVICE SECTION 000005 5773+ID6SCI DS X SEGMENT CLASS ITEM INDICATORS. 01-ID6ID 00080 5774+#ID6SLS EQU X'80' SEGMENT LIMIT SALES HAS BEEN SW10/92 01-ID6ID 5775+* REACHED. SET BY A-03-NGA AND SW10/92 5776+* UNSET BY VMSL ENTRY. SW10/92 5777+* EQU X'40' CURRENTLY NOT IN USE. 5778+* EQU X'20' CURRENTLY NOT IN USE. 5779+* EQU X'10' **SPARE** 5780+* EQU X'08' **SPARE** 5781+* EQU X'04' **SPARE** 5782+* EQU X'02' **SPARE** 5783+* EQU X'01' **SPARE** 000006 5784+ DS H *** SPARE BYTES *** 01-ID6ID 000008 5785+ID6SSS DS H SEATS SOLD COUNT FOR THIS SEGMENT/CLASS/ 01-ID6ID 5786+* VIRTUAL INDEX. 00000A 5787+ID6WLI DS H PASSENGER WAITLIST COUNT FOR THIS SEGMENT/ 01-ID6ID 5788+* CLASS/VIRTUAL INDEX. 00000C 5789+ DS X *** SPARE BYTE *** 01-ID6ID 00000D 5790+ DS X *** RESERVED FOR FUTURE USAGE BY STANDARD 01-ID6ID 5791+* NESTING USERS *** 5792+*--------------------------------------------------------------------- 5793+* * * * * * * END OF SEGMENT/CLASS SECTION FOR CRS PHASE * * * * * * * 5794+*--------------------------------------------------------------------- 5795+* 5796+* NOTE: 5797+* 5798+* THE FOLLOWING FIVE BYTES WILL BE INCLUDED IN THE DSECT WHEN 5799+* SUPPORT FOR STANDARD NESTING IS ADDED TO RESARAIL. (THE FIRST 5800+* OF THESE FIVE BYTES WILL REPLACE THE LAST BYTE CURRENTLY DEFINED 5801+* IN THE SEGMENT/CLASS SECTION.) 5802+* 5803+*ID6LSF&LC0 DS B LIMIT SALES FREQUENCY. IF ID6SLS IS NOT 5804+* EQUAL X'FFFF', THIS WILL INDICATE THE 5805+* DAYS (BASED ON TRANCHE ORIGIN) TO WHICH 5806+* THE LIMIT SALES APPLIES. THIS BYTE IS 5807+* INITIALIZED TO X'FE' UNLESS LIMIT SALES 5808+* DOES NOT APPLY TO ALL DAYS. 5809+* 0 = SUNDAY 5810+* 1 = MONDAY 5811+* 2 = TUESDAY 5812+* 3 = WEDNESDAY 5813+* 4 = THURSDAY 5814+* 5 = FRIDAY 5815+* 6 = SATURDAY 5816+* EQU X'01' **SPARE** 5817+* 5818+*ID6SLS&LC0 DS H SEGMENT LIMIT SALES. THE NBR IN THIS FLD 5819+* IS THE NBR OF SEATS ALLOWED FOR SALE ON 5820+* THIS S/C. ID6SLS - ID6SLD = NUMBER OF 5821+* SEATS LEFT FOR SALE THIS SEG CPT. EQUAL 5822+* TO X'FFFF' IF NONE. MODIFIED BY VMSL (03 5823+* -VMS) ENTRY OR SCHEDULE CHANGE MINOR UP- 5824+* DATE. S/C WILL NOT MODIFY IF LESS THAN 5825+* X'FFFF'. 5826+*ID6LSR&LC0 DS H LIMIT SALES TIME REMOVAL. 5827+* NUMBER OF HOURS PRIOR TO DEPARTURE THAT 5828+* SEGMENT LIMIT SALES WILL BE REMOVED. 5829+* EQUAL TO X'FFFF' IF NOT APPLICABLE (USE 5830+* PARTITION UNIQUE VALUE IN @RNZLS). 5831+* 5832+*--------------------------------------------------------------------- 5833+* 5834+* DEFINITION OF CHAIN RECORD NUMBER FIELD. 5835+* 5836+*--------------------------------------------------------------------- 5837+* 5838+*ID6BDY&LC0 EQU #L2SZE-L'ID6CHN&LC0 IND 1K REC SIZE EXCLUDING ID6CHN 5839+* ORG ID6HDR&LC0.+#ID6BDY&LC0. 5840+*D6CHN&LC0 DS X RECORD CHAIN NUMBER SECTION LABEL. (1K) 5841+* ALWAYS SET TO ZERO FOR THE PRIME (FIRST) 5842+* 06-IND RECORD. THIS BYTE WILL CONTAIN 5843+* THE RECORD NBR ON ALL OVERFLOW RECORDS, 5844+* I.E. N FOR THE NTH OVERFLOW RECORD. 00FFE 5845+#ID6BDY EQU #L4SZE-L'ID6CHN IND 4K REC SIZE EXCLUDING ID6CHN 01-ID6ID 00000E 0000E 00FFE 5846+ ORG ID6HDR+#ID6BDY 01-ID6ID 000FFE 5847+ID6CHN DS X RECORD CHAIN NUMBER SECTION LABEL. (4K) 01-ID6ID 5848+* ALWAYS SET TO ZERO FOR THE PRIME (FIRST) 5849+* 06-IND RECORD. THIS BYTE WILL CONTAIN 5850+* THE RECORD NBR ON ALL OVERFLOW RECORDS, 5851+* I.E. N FOR THE NTH OVERFLOW RECORD. 5852+* 000008 00000 00017 5853+$IS$ CSECT 01-ID6ID R:4 00000 5854+ USING ID6ID,R4 01-ID6ID 5855 ****************************************************** ZOO00070 000008 5856 LTORG ZOO00080