The RECORD function prints a Record Layout Report of the DATA division (or equivalent,) or for selected portions of it.
SV RELEASE: C306M1C FUNCTION: WHERE
VBASE: O : ADPRBH1.ZEX.VBASE DATE: 06/14/2003
SYSLIB: O : ADPRBH1.ZEX.SOURCE TIME: 11:21
ALTLIB: N : *** NOT ALLOCATED *** EXEC: BACKGROUND
COPYLIB: O : ADPRBH1.ZEX.COPY TAPE: D00110
C2COPY: O : ADPRBH1.ZEX.COPY2 USERID: ADPRBH1H
P1PROC: O : ADPRBH1.ZEX.PROC
P2PROC: N : *** NOT ALLOCATED ***
JOBCNTL: O : ADPRBH1.ZEX.JOB
OUTLIB: O : ADPRBH1.ZEX.OUTLIB
PMHELP: N : *** NOT ALLOCATED ***
S1SCEN: N : *** NOT ALLOCATED ***
S2SCEN: N : *** NOT ALLOCATED ***
L1LOAD: I : ADPRBH1.ZEX.LOAD
L2LOAD: N : *** NOT ALLOCATED ***
@SV INPUT:
@SV.RECORD TITLE='REC: '
@SV MEM=E*
@SV LAN=CBL
@SV
@SV CAT=WEBREC01
@SV ERR=GO,PMR=NO
WHERE MESSAGES: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 1
MAXIMUM DATA-NAMES PER RECORD WITH THIS CORESIZE IS 10110
START: EMPLFN
PM@PDX-05 MEMBER IN THIS LANGUAGE IS NOT PROCESSED SEE EMPLFN
--------------------
START: EUROCUR
RECORD NAME: INPUT-RECORD REC: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 2
MEMBER NAME: EUROCUR
-----------------------------------------------------------------------------------------------------------------------------------
I====I==========================================I=============I=======I========I
I LV I D A T A N A M E I FROM-TO I LENTH I FORMAT I
I====I==========================================I=============I=======I========I
I 01 I INPUT-RECORD I 1-80 I 80 I GROUP I 000030
I----I------------------------------------------I-------------I-------I--------I
I 05 I INPUT-COMMENT I 1 I 1 I ALPNUM I 000031 X(01)
I----I------------------------------------------I-------------I-------I--------I
I 05 I INPUT-COUNTRY-NAME I 2-21 I 20 I ALPNUM I 000032 X(20)
I----I------------------------------------------I-------------I-------I--------I
I 05 I INPUT-CURRENCY-CODE I 22-23 I 2 I ALPNUM I 000033 X(02)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 24 I 1 I ALPNUM I 000034 X(01)
I----I------------------------------------------I-------------I-------I--------I
I 05 I INPUT-CURRENCY-NAME I 25-34 I 10 I ALPNUM I 000035 X(10)
I----I------------------------------------------I-------------I-------I--------I
I 05 I INPUT-CURRENCY-IN-DOLLAR I 35-46 I 12 I NUMERC I 000036 9(6)V9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 47 I 1 I ALPNUM I 000037 X(01)
I----I------------------------------------------I-------------I-------I--------I
I 05 I INPUT-DOLLAR-IN-CURRENCY I 48-59 I 12 I NUMERC I 000038 9(6)V9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 60-80 I 21 I ALPNUM I 000039 X(21)
I----I------------------------------------------I-------------I-------I--------I
RECORD NAME: PRINT-RECORD REC: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 3
MEMBER NAME: EUROCUR
-----------------------------------------------------------------------------------------------------------------------------------
I====I==========================================I=============I=======I========I
I LV I D A T A N A M E I FROM-TO I LENTH I FORMAT I
I====I==========================================I=============I=======I========I
I 01 I PRINT-RECORD I 1-133 I 133 I GROUP I 000045
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 1-133 I 133 I ALPNUM I 000046 X(133)
I----I------------------------------------------I-------------I-------I--------I
RECORD NAME: SYSTEM-DATE REC: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 4
MEMBER NAME: EUROCUR
-----------------------------------------------------------------------------------------------------------------------------------
I====I==========================================I=============I=======I========I
I LV I D A T A N A M E I FROM-TO I LENTH I FORMAT I
I====I==========================================I=============I=======I========I
I 01 I SYSTEM-DATE I 1-6 I 6 I GROUP I 000051
I----I------------------------------------------I-------------I-------I--------I
I 05 I DATE-FIELDS I 1-6 I 6 I GROUP I 000052
I----I------------------------------------------I-------------I-------I--------I
I 07 I YEAR I 1-2 I 2 I NUMERC I 000053 99
I----I------------------------------------------I-------------I-------I--------I
I 07 I MONTH I 3-4 I 2 I NUMERC I 000054 99
I----I------------------------------------------I-------------I-------I--------I
I 07 I DEY I 5-6 I 2 I NUMERC I 000055 99
I----I------------------------------------------I-------------I-------I--------I
RECORD NAME: FORMATTED-SYSTEM-DATE REC: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 5
MEMBER NAME: EUROCUR
-----------------------------------------------------------------------------------------------------------------------------------
I====I==========================================I=============I=======I========I
I LV I D A T A N A M E I FROM-TO I LENTH I FORMAT I
I====I==========================================I=============I=======I========I
I 01 I FORMATTED-SYSTEM-DATE I 1-8 I 8 I GROUP I 000057
I----I------------------------------------------I-------------I-------I--------I
I 05 I DATE-FIELDS I 1-8 I 8 I GROUP I 000058
I----I------------------------------------------I-------------I-------I--------I
I 07 I MONTH I 1-2 I 2 I NUMERC I 000059 99
I----I------------------------------------------I-------------I-------I--------I
I 07 I DASH-1 I 3 I 1 I ALPNUM I 000060 X
I----I------------------------------------------I-------------I-------I--------I
I 07 I DEY I 4-5 I 2 I NUMERC I 000061 99
I----I------------------------------------------I-------------I-------I--------I
I 07 I DASH-2 I 6 I 1 I ALPNUM I 000062 X
I----I------------------------------------------I-------------I-------I--------I
I 07 I YEAR I 7-8 I 2 I NUMERC I 000063 99
I----I------------------------------------------I-------------I-------I--------I
RECORD NAME: SYSTEM-TIME REC: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 6
MEMBER NAME: EUROCUR
-----------------------------------------------------------------------------------------------------------------------------------
I====I==========================================I=============I=======I========I
I LV I D A T A N A M E I FROM-TO I LENTH I FORMAT I
I====I==========================================I=============I=======I========I
I 01 I SYSTEM-TIME I 1-8 I 8 I GROUP I 000066
I----I------------------------------------------I-------------I-------I--------I
I 05 I TIME-FIELDS I 1-6 I 6 I GROUP I 000067
I----I------------------------------------------I-------------I-------I--------I
I 07 I HOURS I 1-2 I 2 I NUMERC I 000068 99
I----I------------------------------------------I-------------I-------I--------I
I 07 I MINUTES I 3-4 I 2 I NUMERC I 000069 99
I----I------------------------------------------I-------------I-------I--------I
I 07 I SECONDS I 5-6 I 2 I NUMERC I 000070 99
I----I------------------------------------------I-------------I-------I--------I
I 05 I UNTIME-FIELDS I 7-8 I 2 I GROUP I 000071
I----I------------------------------------------I-------------I-------I--------I
I 07 I HUNDREDTHS-OF-SECONDS I 7-8 I 2 I NUMERC I 000072 99
I----I------------------------------------------I-------------I-------I--------I
RECORD NAME: FORMATTED-SYSTEM-TIME REC: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 7
MEMBER NAME: EUROCUR
-----------------------------------------------------------------------------------------------------------------------------------
I====I==========================================I=============I=======I========I
I LV I D A T A N A M E I FROM-TO I LENTH I FORMAT I
I====I==========================================I=============I=======I========I
I 01 I FORMATTED-SYSTEM-TIME I 1-8 I 8 I GROUP I 000074
I----I------------------------------------------I-------------I-------I--------I
I 05 I TIME-FIELDS I 1-8 I 8 I GROUP I 000075
I----I------------------------------------------I-------------I-------I--------I
I 07 I HOURS I 1-2 I 2 I NUMERC I 000076 99
I----I------------------------------------------I-------------I-------I--------I
I 07 I FILLER I 3 I 1 I ALPNUM I 000077 X
I----I------------------------------------------I-------------I-------I--------I
I 07 I MINUTES I 4-5 I 2 I NUMERC I 000078 99
I----I------------------------------------------I-------------I-------I--------I
I 07 I FILLER I 6 I 1 I ALPNUM I 000079 X
I----I------------------------------------------I-------------I-------I--------I
I 07 I SECONDS I 7-8 I 2 I NUMERC I 000080 99
I----I------------------------------------------I-------------I-------I--------I
RECORD NAME: HEADINGS REC: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 8
MEMBER NAME: EUROCUR
-----------------------------------------------------------------------------------------------------------------------------------
I====I==========================================I=============I=======I========I
I LV I D A T A N A M E I FROM-TO I LENTH I FORMAT I
I====I==========================================I=============I=======I========I
I 01 I HEADINGS I 1-660 I 660 I GROUP I 000087
I----I------------------------------------------I-------------I-------I--------I
I 03 I HD1 I 1-132 I 132 I GROUP I 000088
I----I------------------------------------------I-------------I-------I--------I
I 05 I HD1-DATE I 1-8 I 8 I ALPNUM I 000089 X(08)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 9-10 I 2 I ALPNUM I 000090 X(02)
I----I------------------------------------------I-------------I-------I--------I
I 05 I HD1-TIME I 11-18 I 8 I ALPNUM I 000091 X(08)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 19-52 I 34 I ALPNUM I 000092 X(34)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 53-65 I 13 I ALPNUM I 000093 X(13)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 66-104 I 39 I ALPNUM I 000094 X(39)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 105-114 I 10 I ALPNUM I 000095 X(10)
I----I------------------------------------------I-------------I-------I--------I
I 05 I HD1-COMPILED I 115-122 I 8 I ALPNUM I 000096 X(08)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 123-124 I 2 I ALPNUM I 000097 X(02)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 125-129 I 5 I ALPNUM I 000098 X(05)
I----I------------------------------------------I-------------I-------I--------I
I 05 I HD1-PAGE I 130-131 I 2 I DISPLY I 000099 Z9
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 132 I 1 I ALPNUM I 000100 X(01)
I----I------------------------------------------I-------------I-------I--------I
I 03 I HD2 I 133-264 I 132 I GROUP I 000111
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 133-169 I 37 I ALPNUM I 000112 X(37)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 170-185 I 16 I ALPNUM I 000113 X(16)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 186-188 I 3 I ALPNUM I 000114 X(03)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 189-204 I 16 I ALPNUM I 000115 X(16)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 205-217 I 13 I ALPNUM I 000116 X(13)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 218-233 I 16 I ALPNUM I 000117 X(16)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 234-236 I 3 I ALPNUM I 000118 X(03)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 237-252 I 16 I ALPNUM I 000119 X(16)
I----I------------------------------------------I-------------I-------I--------I
RECORD NAME: HEADINGS REC: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 9
MEMBER NAME: EUROCUR
-----------------------------------------------------------------------------------------------------------------------------------
I----I------------------------------------------I-------------I-------I--------I
I LV I D A T A N A M E I FROM-TO I LENTH I FORMAT I
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 253-263 I 11 I ALPNUM I 000120 X(11)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 264 I 1 I ALPNUM I 000121 X(01)
I----I------------------------------------------I-------------I-------I--------I
I 03 I HD3 I 265-396 I 132 I GROUP I 000122
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 265-281 I 17 I ALPNUM I 000123 X(17)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 282-283 I 2 I ALPNUM I 000124 X(02)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 284 I 1 I ALPNUM I 000125 X(01)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 285-294 I 10 I ALPNUM I 000126 X(10)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 295-301 I 7 I ALPNUM I 000127 X(07)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 302-317 I 16 I ALPNUM I 000128 X(16)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 318-320 I 3 I ALPNUM I 000129 X(03)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 321-336 I 16 I ALPNUM I 000130 X(16)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 337-349 I 13 I ALPNUM I 000131 X(13)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 350-365 I 16 I ALPNUM I 000132 X(16)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 366-368 I 3 I ALPNUM I 000133 X(03)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 369-384 I 16 I ALPNUM I 000134 X(16)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 385-395 I 11 I ALPNUM I 000135 X(11)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 396 I 1 I ALPNUM I 000136 X(01)
I----I------------------------------------------I-------------I-------I--------I
I 03 I HD4 I 397-528 I 132 I GROUP I 000137
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 397-413 I 17 I ALPNUM I 000138 X(17)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 414-415 I 2 I ALPNUM I 000139 X(02)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 416 I 1 I ALPNUM I 000140 X(01)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 417-426 I 10 I ALPNUM I 000141 X(10)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 427-433 I 7 I ALPNUM I 000142 X(07)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 434-449 I 16 I ALPNUM I 000143 X(16)
I----I------------------------------------------I-------------I-------I--------I
RECORD NAME: HEADINGS REC: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 10
MEMBER NAME: EUROCUR
-----------------------------------------------------------------------------------------------------------------------------------
I----I------------------------------------------I-------------I-------I--------I
I LV I D A T A N A M E I FROM-TO I LENTH I FORMAT I
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 450-452 I 3 I ALPNUM I 000144 X(03)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 453-468 I 16 I ALPNUM I 000145 X(16)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 469-481 I 13 I ALPNUM I 000146 X(13)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 482-497 I 16 I ALPNUM I 000147 X(16)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 498-500 I 3 I ALPNUM I 000148 X(03)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 501-516 I 16 I ALPNUM I 000149 X(16)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 517-527 I 11 I ALPNUM I 000150 X(11)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 528 I 1 I ALPNUM I 000151 X(01)
I----I------------------------------------------I-------------I-------I--------I
I 03 I D-TAIL I 529-660 I 132 I GROUP I 000153
I----I------------------------------------------I-------------I-------I--------I
I 05 I REPORT-COUNTRY-NAME I 529-544 I 16 I ALPNUM I 000154 X(16)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 545 I 1 I ALPNUM I 000155 X(01)
I----I------------------------------------------I-------------I-------I--------I
I 05 I REPORT-CURRENCY-CODE I 546-547 I 2 I ALPNUM I 000156 X(02)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 548 I 1 I ALPNUM I 000157 X(01)
I----I------------------------------------------I-------------I-------I--------I
I 05 I REPORT-CURRENCY-NAME I 549-558 I 10 I ALPNUM I 000158 X(10)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 559-565 I 7 I ALPNUM I 000159 X(07)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 566-567 I 2 I ALPNUM I 000160 X(02)
I----I------------------------------------------I-------------I-------I--------I
I 05 I REPORT-CURRENCY-IN-DOLLAR I 568-580 I 13 I DISPLY I 000161 Z(6).9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 581 I 1 I ALPNUM I 000162 X(01)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 582-584 I 3 I ALPNUM I 000163 X(03)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 585-586 I 2 I ALPNUM I 000164 X(02)
I----I------------------------------------------I-------------I-------I--------I
I 05 I REPORT-DOLLAR-IN-CURRENCY I 587-599 I 13 I DISPLY I 000165 Z(6).9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 600 I 1 I ALPNUM I 000166 X(01)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 601-613 I 13 I ALPNUM I 000167 X(13)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 614-615 I 2 I ALPNUM I 000168 X(02)
I----I------------------------------------------I-------------I-------I--------I
RECORD NAME: HEADINGS REC: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 11
MEMBER NAME: EUROCUR
-----------------------------------------------------------------------------------------------------------------------------------
I----I------------------------------------------I-------------I-------I--------I
I LV I D A T A N A M E I FROM-TO I LENTH I FORMAT I
I----I------------------------------------------I-------------I-------I--------I
I 05 I REPORT-CURRENCY-IN-EUROS I 616-628 I 13 I DISPLY I 000169 Z(6).9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 629 I 1 I ALPNUM I 000170 X(01)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 630-632 I 3 I ALPNUM I 000171 X(03)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 633-634 I 2 I ALPNUM I 000172 X(02)
I----I------------------------------------------I-------------I-------I--------I
I 05 I REPORT-EUROS-IN-CURRENCY I 635-647 I 13 I DISPLY I 000173 Z(6).9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 648 I 1 I ALPNUM I 000174 X(01)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 649-659 I 11 I ALPNUM I 000175 X(11)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 660 I 1 I ALPNUM I 000176 X(01)
I----I------------------------------------------I-------------I-------I--------I
RECORD NAME: TABLE-OF-EXCHANGE-RATES REC: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 12
MEMBER NAME: EUROCUR
-----------------------------------------------------------------------------------------------------------------------------------
I====I==========================================I=============I=======I========I
I LV I D A T A N A M E I FROM-TO I LENTH I FORMAT I
I====I==========================================I=============I=======I========I
I 01 I TABLE-OF-EXCHANGE-RATES I 1-324 I 324 I GROUP I 000180C
I----I------------------------------------------I-------------I-------I--------I
I 03 I TABLE-CODES I 1-54 I 54 I GROUP I 000181C
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 1-2 I 2 I ALPNUM I 000182C X(2)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 3-4 I 2 I ALPNUM I 000183C X(2)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 5-6 I 2 I ALPNUM I 000184C X(2)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 7-8 I 2 I ALPNUM I 000185C X(2)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 9-10 I 2 I ALPNUM I 000186C X(2)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 11-12 I 2 I ALPNUM I 000187C X(2)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 13-14 I 2 I ALPNUM I 000188C X(2)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 15-16 I 2 I ALPNUM I 000189C X(2)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 17-18 I 2 I ALPNUM I 000190C X(2)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 19-20 I 2 I ALPNUM I 000191C X(2)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 21-22 I 2 I ALPNUM I 000192C X(2)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 23-24 I 2 I ALPNUM I 000193C X(2)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 25-26 I 2 I ALPNUM I 000194C X(2)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 27-28 I 2 I ALPNUM I 000195C X(2)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 29-30 I 2 I ALPNUM I 000196C X(2)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 31-32 I 2 I ALPNUM I 000197C X(2)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 33-34 I 2 I ALPNUM I 000198C X(2)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 35-36 I 2 I ALPNUM I 000199C X(2)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 37-38 I 2 I ALPNUM I 000200C X(2)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 39-40 I 2 I ALPNUM I 000201C X(2)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 41-42 I 2 I ALPNUM I 000202C X(2)
I----I------------------------------------------I-------------I-------I--------I
RECORD NAME: TABLE-OF-EXCHANGE-RATES REC: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 13
MEMBER NAME: EUROCUR
-----------------------------------------------------------------------------------------------------------------------------------
I----I------------------------------------------I-------------I-------I--------I
I LV I D A T A N A M E I FROM-TO I LENTH I FORMAT I
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 43-44 I 2 I ALPNUM I 000203C X(2)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 45-46 I 2 I ALPNUM I 000204C X(2)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 47-48 I 2 I ALPNUM I 000205C X(2)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 49-50 I 2 I ALPNUM I 000206C X(2)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 51-52 I 2 I ALPNUM I 000207C X(2)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 53-54 I 2 I ALPNUM I 000208C X(2)
I----I------------------------------------------I-------------I-------I--------I
I 03 I TABLE-FACTORS I 55-324 I 270 I GROUP I 000209C
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 55-64 I 10 I NUMERC I 000210C 9(4)V9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 65-74 I 10 I NUMERC I 000211C 9(4)V9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 75-84 I 10 I NUMERC I 000212C 9(4)V9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 85-94 I 10 I NUMERC I 000213C 9(4)V9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 95-104 I 10 I NUMERC I 000214C 9(4)V9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 105-114 I 10 I NUMERC I 000215C 9(4)V9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 115-124 I 10 I NUMERC I 000216C 9(4)V9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 125-134 I 10 I NUMERC I 000217C 9(4)V9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 135-144 I 10 I NUMERC I 000218C 9(4)V9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 145-154 I 10 I NUMERC I 000219C 9(4)V9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 155-164 I 10 I NUMERC I 000220C 9(4)V9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 165-174 I 10 I NUMERC I 000221C 9(4)V9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 175-184 I 10 I NUMERC I 000222C 9(4)V9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 185-194 I 10 I NUMERC I 000223C 9(4)V9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 195-204 I 10 I NUMERC I 000224C 9(4)V9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 205-214 I 10 I NUMERC I 000225C 9(4)V9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 215-224 I 10 I NUMERC I 000226C 9(4)V9(6)
I----I------------------------------------------I-------------I-------I--------I
RECORD NAME: TABLE-OF-EXCHANGE-RATES REC: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 14
MEMBER NAME: EUROCUR
-----------------------------------------------------------------------------------------------------------------------------------
I----I------------------------------------------I-------------I-------I--------I
I LV I D A T A N A M E I FROM-TO I LENTH I FORMAT I
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 225-234 I 10 I NUMERC I 000227C 9(4)V9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 235-244 I 10 I NUMERC I 000228C 9(4)V9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 245-254 I 10 I NUMERC I 000229C 9(4)V9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 255-264 I 10 I NUMERC I 000230C 9(4)V9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 265-274 I 10 I NUMERC I 000231C 9(4)V9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 275-284 I 10 I NUMERC I 000232C 9(4)V9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 285-294 I 10 I NUMERC I 000233C 9(4)V9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 295-304 I 10 I NUMERC I 000234C 9(4)V9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 305-314 I 10 I NUMERC I 000235C 9(4)V9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILLER I 315-324 I 10 I NUMERC I 000236C 9(4)V9(6)
I----I------------------------------------------I-------------I-------I--------I
RECORD NAME: TBL-OF-EXCHANGE-RATES REC: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 15
MEMBER NAME: EUROCUR
-----------------------------------------------------------------------------------------------------------------------------------
I====I==========================================I=============I=======I========I
I LV I D A T A N A M E I FROM-TO I LENTH I FORMAT I
I====I==========================================I=============I=======I========I
I 01 I TBL-OF-EXCHANGE-RATES I 1-324 I 324 I GROUP I 000238C REDEF: TABLE-OF-EXCHANGE-RATES
I----I------------------------------------------I-------------I-------I--------I
I 03 I TBL-CODE I 1-2 I 2 I ALPNUM I 000239C X(2) OCCURS: 27
I----I------------------------------------------I-------------I-------I--------I
I 03 I TBL-FACTOR I 55-64 I 10 I NUMERC I 000241C 9(4)V9(6) OCCURS: 27
I----I------------------------------------------I-------------I-------I--------I
RECORD NAME: STUFF REC: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 16
MEMBER NAME: EUROCUR
-----------------------------------------------------------------------------------------------------------------------------------
I====I==========================================I=============I=======I========I
I LV I D A T A N A M E I FROM-TO I LENTH I FORMAT I
I====I==========================================I=============I=======I========I
I 01 I STUFF I 1-34 I 34 I GROUP I 000245
I----I------------------------------------------I-------------I-------I--------I
I 03 I SWITCHES I 1-12 I 12 I GROUP I 000246
I----I------------------------------------------I-------------I-------I--------I
I 05 I EOF-SWITCH I 1 I 1 I ALPNUM I 000247 X(1)
I----I------------------------------------------I-------------I-------I--------I
I 05 I FILE-STATUS I 2 I 1 I ALPNUM I 000248 X(1)
I----I------------------------------------------I-------------I-------I--------I
I 88 I ITS-END-OF-FILE I 2 I 1 I VALUE= I 000249 E
I----I------------------------------------------I-------------I-------I--------I
I 05 I K-01 I 3-7 I 5 I NUMERC I 000250 9(1)V9(4)
I----I------------------------------------------I-------------I-------I--------I
I 05 I K-02 I 8-12 I 5 I NUMERC I 000251 9(1)V9(4)
I----I------------------------------------------I-------------I-------I--------I
I 03 I HEADING-STUFF I 13-20 I 8 I GROUP I 000253
I----I------------------------------------------I-------------I-------I--------I
I 05 I PAGE-LENGTH I 13-14 I 2 I NUMERC I 000254 9(2)
I----I------------------------------------------I-------------I-------I--------I
I 05 I PAGE-NUMBER I 15-16 I 2 I NUMERC I 000255 9(2)
I----I------------------------------------------I-------------I-------I--------I
I 05 I LINE-NUMBER I 17-20 I 4 I NUMERC I 000256 9(4)
I----I------------------------------------------I-------------I-------I--------I
I 03 I EURO-WORK-AREAS I 21-34 I 14 I GROUP I 000258
I----I------------------------------------------I-------------I-------I--------I
I 05 I EC-WORK I 21-27 I 7 I PACKED I 000259 9(6)V9(6)
I----I------------------------------------------I-------------I-------I--------I
I 05 I EC-ROUND I 28-34 I 7 I PACKED I 000260 9(6)V9(6)
I----I------------------------------------------I-------------I-------I--------I
DNLIST: DATA NAMES REC: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 1
RPT USER MEMBER PROGRAM OR DATA XREF *=RESULT
LINE CODES NAME IDENT NO NAME DTRANS=T LINE DIV GROUP
1--------- 11-------- 21------ -- 31----------------------------61------- 71 ------
1 EUROCUR EUROCUR INPUT-RECORD 000030
2 EUROCUR EUROCUR INPUT-COMMENT 000031
3 EUROCUR EUROCUR INPUT-COUNTRY-NAME 000032
4 EUROCUR EUROCUR INPUT-CURRENCY-CODE 000033
5 EUROCUR EUROCUR FILLER 000034
6 EUROCUR EUROCUR INPUT-CURRENCY-NAME 000035
7 EUROCUR EUROCUR INPUT-CURRENCY-IN-DOLLAR 000036
8 EUROCUR EUROCUR FILLER 000037
9 EUROCUR EUROCUR INPUT-DOLLAR-IN-CURRENCY 000038
10 EUROCUR EUROCUR FILLER 000039
11 EUROCUR EUROCUR PRINT-RECORD 000045
12 EUROCUR EUROCUR FILLER 000046
13 EUROCUR EUROCUR SYSTEM-DATE 000051
14 EUROCUR EUROCUR DATE-FIELDS 000052
15 EUROCUR EUROCUR YEAR 000053
16 EUROCUR EUROCUR MONTH 000054
17 EUROCUR EUROCUR DEY 000055
18 EUROCUR EUROCUR FORMATTED-SYSTEM-DATE 000057
19 EUROCUR EUROCUR DATE-FIELDS 000058
20 EUROCUR EUROCUR MONTH 000059
21 EUROCUR EUROCUR DASH-1 000060
22 EUROCUR EUROCUR DEY 000061
23 EUROCUR EUROCUR DASH-2 000062
24 EUROCUR EUROCUR YEAR 000063
25 EUROCUR EUROCUR SYSTEM-TIME 000066
26 EUROCUR EUROCUR TIME-FIELDS 000067
27 EUROCUR EUROCUR HOURS 000068
28 EUROCUR EUROCUR MINUTES 000069
29 EUROCUR EUROCUR SECONDS 000070
30 EUROCUR EUROCUR UNTIME-FIELDS 000071
31 EUROCUR EUROCUR HUNDREDTHS-OF-SECONDS 000072
32 EUROCUR EUROCUR FORMATTED-SYSTEM-TIME 000074
33 EUROCUR EUROCUR TIME-FIELDS 000075
34 EUROCUR EUROCUR HOURS 000076
35 EUROCUR EUROCUR FILLER 000077
36 EUROCUR EUROCUR MINUTES 000078
37 EUROCUR EUROCUR FILLER 000079
38 EUROCUR EUROCUR SECONDS 000080
39 EUROCUR EUROCUR HEADINGS 000087
40 EUROCUR EUROCUR HD1 000088
41 EUROCUR EUROCUR HD1-DATE 000089
42 EUROCUR EUROCUR FILLER 000090
43 EUROCUR EUROCUR HD1-TIME 000091
44 EUROCUR EUROCUR FILLER 000092
45 EUROCUR EUROCUR FILLER 000093
46 EUROCUR EUROCUR FILLER 000094
47 EUROCUR EUROCUR FILLER 000095
48 EUROCUR EUROCUR HD1-COMPILED 000096
49 EUROCUR EUROCUR FILLER 000097
50 EUROCUR EUROCUR FILLER 000098
51 EUROCUR EUROCUR HD1-PAGE 000099
52 EUROCUR EUROCUR FILLER 000100
53 EUROCUR EUROCUR HD2 000111
54 EUROCUR EUROCUR FILLER 000112
55 EUROCUR EUROCUR FILLER 000113
DNLIST: DATA NAMES REC: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 2
RPT USER MEMBER PROGRAM OR DATA XREF *=RESULT
LINE CODES NAME IDENT NO NAME DTRANS=T LINE DIV GROUP
1--------- 11-------- 21------ -- 31----------------------------61------- 71 ------
56 EUROCUR EUROCUR FILLER 000114
57 EUROCUR EUROCUR FILLER 000115
58 EUROCUR EUROCUR FILLER 000116
59 EUROCUR EUROCUR FILLER 000117
60 EUROCUR EUROCUR FILLER 000118
61 EUROCUR EUROCUR FILLER 000119
62 EUROCUR EUROCUR FILLER 000120
63 EUROCUR EUROCUR FILLER 000121
64 EUROCUR EUROCUR HD3 000122
65 EUROCUR EUROCUR FILLER 000123
66 EUROCUR EUROCUR FILLER 000124
67 EUROCUR EUROCUR FILLER 000125
68 EUROCUR EUROCUR FILLER 000126
69 EUROCUR EUROCUR FILLER 000127
70 EUROCUR EUROCUR FILLER 000128
71 EUROCUR EUROCUR FILLER 000129
72 EUROCUR EUROCUR FILLER 000130
73 EUROCUR EUROCUR FILLER 000131
74 EUROCUR EUROCUR FILLER 000132
75 EUROCUR EUROCUR FILLER 000133
76 EUROCUR EUROCUR FILLER 000134
77 EUROCUR EUROCUR FILLER 000135
78 EUROCUR EUROCUR FILLER 000136
79 EUROCUR EUROCUR HD4 000137
80 EUROCUR EUROCUR FILLER 000138
81 EUROCUR EUROCUR FILLER 000139
82 EUROCUR EUROCUR FILLER 000140
83 EUROCUR EUROCUR FILLER 000141
84 EUROCUR EUROCUR FILLER 000142
85 EUROCUR EUROCUR FILLER 000143
86 EUROCUR EUROCUR FILLER 000144
87 EUROCUR EUROCUR FILLER 000145
88 EUROCUR EUROCUR FILLER 000146
89 EUROCUR EUROCUR FILLER 000147
90 EUROCUR EUROCUR FILLER 000148
91 EUROCUR EUROCUR FILLER 000149
92 EUROCUR EUROCUR FILLER 000150
93 EUROCUR EUROCUR FILLER 000151
94 EUROCUR EUROCUR D-TAIL 000153
95 EUROCUR EUROCUR REPORT-COUNTRY-NAME 000154
96 EUROCUR EUROCUR FILLER 000155
97 EUROCUR EUROCUR REPORT-CURRENCY-CODE 000156
98 EUROCUR EUROCUR FILLER 000157
99 EUROCUR EUROCUR REPORT-CURRENCY-NAME 000158
100 EUROCUR EUROCUR FILLER 000159
101 EUROCUR EUROCUR FILLER 000160
102 EUROCUR EUROCUR REPORT-CURRENCY-IN-DOLLAR 000161
103 EUROCUR EUROCUR FILLER 000162
104 EUROCUR EUROCUR FILLER 000163
105 EUROCUR EUROCUR FILLER 000164
106 EUROCUR EUROCUR REPORT-DOLLAR-IN-CURRENCY 000165
107 EUROCUR EUROCUR FILLER 000166
108 EUROCUR EUROCUR FILLER 000167
109 EUROCUR EUROCUR FILLER 000168
110 EUROCUR EUROCUR REPORT-CURRENCY-IN-EUROS 000169
DNLIST: DATA NAMES REC: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 3
RPT USER MEMBER PROGRAM OR DATA XREF *=RESULT
LINE CODES NAME IDENT NO NAME DTRANS=T LINE DIV GROUP
1--------- 11-------- 21------ -- 31----------------------------61------- 71 ------
111 EUROCUR EUROCUR FILLER 000170
112 EUROCUR EUROCUR FILLER 000171
113 EUROCUR EUROCUR FILLER 000172
114 EUROCUR EUROCUR REPORT-EUROS-IN-CURRENCY 000173
115 EUROCUR EUROCUR FILLER 000174
116 EUROCUR EUROCUR FILLER 000175
117 EUROCUR EUROCUR FILLER 000176
118 EUROCUR EUROCUR TABLE-OF-EXCHANGE-RATES 000180 C
119 EUROCUR EUROCUR TABLE-CODES 000181 C
120 EUROCUR EUROCUR FILLER 000182 C
121 EUROCUR EUROCUR FILLER 000183 C
122 EUROCUR EUROCUR FILLER 000184 C
123 EUROCUR EUROCUR FILLER 000185 C
124 EUROCUR EUROCUR FILLER 000186 C
125 EUROCUR EUROCUR FILLER 000187 C
126 EUROCUR EUROCUR FILLER 000188 C
127 EUROCUR EUROCUR FILLER 000189 C
128 EUROCUR EUROCUR FILLER 000190 C
129 EUROCUR EUROCUR FILLER 000191 C
130 EUROCUR EUROCUR FILLER 000192 C
131 EUROCUR EUROCUR FILLER 000193 C
132 EUROCUR EUROCUR FILLER 000194 C
133 EUROCUR EUROCUR FILLER 000195 C
134 EUROCUR EUROCUR FILLER 000196 C
135 EUROCUR EUROCUR FILLER 000197 C
136 EUROCUR EUROCUR FILLER 000198 C
137 EUROCUR EUROCUR FILLER 000199 C
138 EUROCUR EUROCUR FILLER 000200 C
139 EUROCUR EUROCUR FILLER 000201 C
140 EUROCUR EUROCUR FILLER 000202 C
141 EUROCUR EUROCUR FILLER 000203 C
142 EUROCUR EUROCUR FILLER 000204 C
143 EUROCUR EUROCUR FILLER 000205 C
144 EUROCUR EUROCUR FILLER 000206 C
145 EUROCUR EUROCUR FILLER 000207 C
146 EUROCUR EUROCUR FILLER 000208 C
147 EUROCUR EUROCUR TABLE-FACTORS 000209 C
148 EUROCUR EUROCUR FILLER 000210 C
149 EUROCUR EUROCUR FILLER 000211 C
150 EUROCUR EUROCUR FILLER 000212 C
151 EUROCUR EUROCUR FILLER 000213 C
152 EUROCUR EUROCUR FILLER 000214 C
153 EUROCUR EUROCUR FILLER 000215 C
154 EUROCUR EUROCUR FILLER 000216 C
155 EUROCUR EUROCUR FILLER 000217 C
156 EUROCUR EUROCUR FILLER 000218 C
157 EUROCUR EUROCUR FILLER 000219 C
158 EUROCUR EUROCUR FILLER 000220 C
159 EUROCUR EUROCUR FILLER 000221 C
160 EUROCUR EUROCUR FILLER 000222 C
161 EUROCUR EUROCUR FILLER 000223 C
162 EUROCUR EUROCUR FILLER 000224 C
163 EUROCUR EUROCUR FILLER 000225 C
164 EUROCUR EUROCUR FILLER 000226 C
165 EUROCUR EUROCUR FILLER 000227 C
DNLIST: DATA NAMES REC: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 4
RPT USER MEMBER PROGRAM OR DATA XREF *=RESULT
LINE CODES NAME IDENT NO NAME DTRANS=T LINE DIV GROUP
1--------- 11-------- 21------ -- 31----------------------------61------- 71 ------
166 EUROCUR EUROCUR FILLER 000228 C
167 EUROCUR EUROCUR FILLER 000229 C
168 EUROCUR EUROCUR FILLER 000230 C
169 EUROCUR EUROCUR FILLER 000231 C
170 EUROCUR EUROCUR FILLER 000232 C
171 EUROCUR EUROCUR FILLER 000233 C
172 EUROCUR EUROCUR FILLER 000234 C
173 EUROCUR EUROCUR FILLER 000235 C
174 EUROCUR EUROCUR FILLER 000236 C
175 EUROCUR EUROCUR TBL-OF-EXCHANGE-RATES 000238 C
176 EUROCUR EUROCUR TBL-CODE 000239 C
177 EUROCUR EUROCUR TBL-FACTOR 000241 C
178 EUROCUR EUROCUR STUFF 000245
179 EUROCUR EUROCUR SWITCHES 000246
180 EUROCUR EUROCUR EOF-SWITCH 000247
181 EUROCUR EUROCUR FILE-STATUS 000248
182 EUROCUR EUROCUR ITS-END-OF-FILE 000249
183 EUROCUR EUROCUR K-01 000250
184 EUROCUR EUROCUR K-02 000251
185 EUROCUR EUROCUR HEADING-STUFF 000253
186 EUROCUR EUROCUR PAGE-LENGTH 000254
187 EUROCUR EUROCUR PAGE-NUMBER 000255
188 EUROCUR EUROCUR LINE-NUMBER 000256
189 EUROCUR EUROCUR EURO-WORK-AREAS 000258
190 EUROCUR EUROCUR EC-WORK 000259
191 EUROCUR EUROCUR EC-ROUND 000260
PM@XRF-M04 WEBREC01 REPLACED IN PMLIB AS: DNLIST
--------------------
PM@000-10 NORMAL EOJ CPU HRS:00 MIN:00 SEC:03.01
--------------------