4480 ****************************************************** ZOO00050 4481 PD1PD REG=R4 ZOO00060 4482+* Mise a jour pour le SCR 6097 SB1097 4483+* remplacer les eq : pd1t30,pd1tl1,pd1tl2, par pd1rvl,pd1rau,sp1 SB1097 4484+* ADD PD1CPT, PD9CPT comp.nbr PO0996 4485+* ADD #PD1TAF- Train affluence CD0295 4486+* ADD PD1PNS - NOSHOW PAX DLW1093 4487+* ADD #PD1RAC (REACCOMM SEG) LF0893 4488+* ADD #PD1SMM ("MM" SEGMENT) LF0893 4489+* 000000 00000 0041F 4490+PD1PD DSECT A-06-PNID 01-PD1PD 00019 4491+#PD1MAX EQU (L'PD1RDA/L'PD1ITM) # OF PNID ITEMS P/RECORD 01-PD1PD 000000 4492+PD1HDR DS 0XL12 STANDARD RECORD HEADER NO BACK CHAIN 01-PD1PD 000000 4493+PD1BID DS CL2 BASIC ID = PD 01-PD1PD 000002 4494+PD1CHK DS X RECORD CODE CHECK 01-PD1PD 000003 4495+PD1CTL DS X CONTROL BYTE 01-PD1PD 000004 4496+PD1PGM DS F PROGRAM LAST FILING RECORD 01-PD1PD 000008 4497+PD1FCH DS F FORWARD CHAIN ADDRESS 01-PD1PD 00000C 4498+PD1INX DS H LOCATION INDEX (NEXT AVAIL SLOT) 01-PD1PD 00000E 4499+PD1ID1 DS B CONTROL BYTE 01-PD1PD 00080 4500+#PD1NCI EQU X'80' TRANCHE INITIALIZED FOR NCI 01-PD1PD 4501+* (CURRENTLY NOT USED) 00040 4502+#PD1PWL EQU X'40' PRIORITY WAITLIST IS CREATED 01-PD1PD 4503+* (CURRENTLY NOT USED) 00020 4504+#PD1NPL EQU X'20' NON-PRIORITY WAITLIST IS CREATED 01-PD1PD 4505+* (CURRENTLY NOT USED) 4506+* EQU X'10' SPARE 4507+* EQU X'08' SPARE 4508+* EQU X'04' SPARE 4509+* EQU X'02' SPARE 4510+* EQU X'01' SPARE 00000F 4511+ DS X SPARE BYTE 01-PD1PD 000010 4512+PD1WLP DS F PRIORITY WAITLIST FILE ADDRESS 01-PD1PD 000014 4513+PD1WLN DS F NON-PRIORITY WAITLIST FILE ADDR 01-PD1PD 000018 4514+PD1PNL DS F PASSENGER NAME LIST (PNL) 01-PD1PD 00001C 4515+PD1TRC DS CL6 TRANCHE NUMBER (EBCDIC) 01-PD1PD 000022 4516+PD1DAT DS H PARS EQUIVALENT OF THE DATE OF 01-PD1PD 4517+* DEPARTURE OF THE LAST SEGMENT 4518+* (INVENTORY INDEX DATE) 000024 4519+PD1DTE DS CL5 BCD DATE OF DEPARTURE OF THE LAST 01-PD1PD 4520+* SEGMENT IN DDMMM FORMAT 000029 4521+PD1ALP DS X ALPHA GROUP NUMBER 01-PD1PD 00002A 4522+ DS XL6 SPARE BYTES 01-PD1PD 000030 4523+PD1RDA DS XL1000 PNID RECORD DATA AREA 01-PD1PD 00418 4524+#PD1LIM EQU * LIMIT OF THE PNID RECORD DATA AREA 01-PD1PD 000418 4525+ DS XL7 SPARE BYTES AT THE END OF RECORD 01-PD1PD 00041F 0041F 00030 4526+ ORG PD1RDA ALIGN TO THE PNID REC DATA AREA 01-PD1PD 000030 4527+PD1ITM DS 0XL40 PASSENGER NAME INDEX DETAIL ITEM 01-PD1PD 000030 4528+PD1ID3 DS B CONTROL BYTE 01-PD1PD 00080 4529+#PD1CXL EQU X'80' ITEM CANCELLED FROM THE PNI 01-PD1PD 4530+* X'40' Spare 4531+* X'20' Spare 4532+* X'10' SPARE 00008 4533+#PD1TRN EQU X'08' NAME IS TRUNCATED 01-PD1PD 00004 4534+#PD1COR EQU X'04' CORPORATE NAME 01-PD1PD 00002 4535+#PD1PRI EQU X'02' PRIME NAME 01-PD1PD 00001 4536+#PD1FAC EQU X'01' FACTS OR SUPPLEMENTARY INFO EXISTS 01-PD1PD 000031 4537+PD1ID4 DS B CONTROL BYTE 01-PD1PD 00080 4538+#PD1RVL EQU X'80' Reservation voiture lit SB1097 01-PD1PD 00040 4539+#PD1RAU EQU X'40' Reservation auto SB1097 01-PD1PD 4540+*#PD1SP1&LC0 EQu X'20' Spare SB1097 00010 4541+#PD1INB EQU X'10' INBOUND CONNECTION 01-PD1PD 00008 4542+#PD1RAC EQU X'08' REACCOMMODATED SEGMENT 01-PD1PD 4543+*#PD1SP2&LC0 EQU X'04' spare sb1097 4544+* (old pd1taf train afluence) 00002 4545+#PD1OTB EQU X'02' OUTBOUND CONNECTION 01-PD1PD 4546+* EQU X'01' SPARE 000032 4547+PD1SP3 DS B INDICATOR BYTE 01-PD1PD 4548+* EQU X'80' SPARE 4549+* EQU X'40' SPARE 4550+* EQU X'20' SPARE 4551+* EQU X'10' SPARE 4552+* EQU X'08' SPARE 00004 4553+#PD1SMM EQU X'04' "MM" (WHEELCHAIR) SEGMENT 01-PD1PD 00002 4554+#PD1SPM EQU X'02' SPECIAL MEAL 01-PD1PD 00001 4555+#PD1PRS EQU X'01' RESERVED SEAT 01-PD1PD 000033 4556+PD1CPT DS X COMPARTMENT NUMBER+1.SET IN A-06-PNIW 01-PD1PD 000034 4557+PD1COS DS X CLASS OF SERVICE 01-PD1PD 000035 4558+PD1ADD DS XL4 PNR ADDRESS 01-PD1PD 000039 4559+PD1PRC DS X RECORD CODE CHECK 01-PD1PD 00003A 4560+PD1NAM DS CL12 PASSENGER NAME (PADDED WITH BLANKS) 01-PD1PD 000046 4561+PD1BPT DS XL3 BOARDPOINT CITY CODE 01-PD1PD 000049 4562+PD1OPT DS XL3 OFFPOINT CITY CODE 01-PD1PD 00004C 4563+PD1NUA DS B NUMBER IN SURNAME 01-PD1PD 00004D 4564+PD1NPT DS B NUMBER IN PARTY 01-PD1PD 00004E 4565+PD1TNB DS BL3 BINARY TRAIN NUMBER 01-PD1PD 000051 4566+PD1EXS DS B NUMBER OF EXTRA SEATS BLOCKED 01-PD1PD 000052 4567+PD1BDT DS H PARS BOOKING DATE 01-PD1PD 000054 4568+PD1BCX DS H PARS CANCELLATION DATE 01-PD1PD 000056 4569+PD1PNS DS H NBR OF NO-SHOW PAX 01-PD1PD 000058 00058 00000 4570+ ORG PD1BID 01-PD1PD 000000 4571+PD9ITM DS 0XL(L'PD1ITM) 01-PD1PD 000000 4572+PD9ID3 DS B CONTROL BYTE 01-PD1PD 000001 4573+PD9ID4 DS B CONTROL BYTE 01-PD1PD 000002 4574+PD9SP3 DS B INDICATOR BYTE 01-PD1PD 000003 4575+PD9CPT DS X COMPARTMENT NUMBER+1 01-PD1PD 000004 4576+PD9COS DS X CLASS OF SERVICE 01-PD1PD 000005 4577+PD9ADD DS XL4 PNR ADDRESS 01-PD1PD 000009 4578+PD9PRC DS X PNR RECORD CODE CHECK 01-PD1PD 00000A 4579+PD9NAM DS CL12 PASSENGER NAME (PADDED WITH BLANKS) 01-PD1PD 000016 4580+PD9BPT DS XL3 BOARDPOINT CITY CODE 01-PD1PD 000019 4581+PD9OPT DS XL3 OFFPOINT CITY CODE 01-PD1PD 00001C 4582+PD9NUA DS B NUMBER IN SURNAME 01-PD1PD 00001D 4583+PD9NPT DS B NUMBER IN PARTY 01-PD1PD 00001E 4584+PD9TNB DS BL3 TRAIN NUMBER (OR BINARY ZEROS) 01-PD1PD 000021 4585+PD9EXS DS B NUMBER OF EXTRA SEATS BLOCKED 01-PD1PD 000022 4586+PD9BDT DS H PARS BOOKING DATE 01-PD1PD 000024 4587+PD9BCX DS H PARS CANCELLATION DATE 01-PD1PD 000026 4588+PD9PNS DS H NBR OF NO-SHOW PAX 01-PD1PD 000008 00000 00017 4589+$IS$ CSECT 01-PD1PD R:4 00000 4590+ USING PD1PD,R4 01-PD1PD 4591 ****************************************************** ZOO00070