Here is an ATTRIBUTE report for a simple COBOL
program. The program's source code can be
viewed here, in
the DISPLAY function.
Note that the attributes for the data in the COPY member
is also reported. Reporting of COPY member attributes
can be turned off, if you choose.
SV RELEASE: C306M1C FUNCTION: WHERE
VBASE: O : ADPRBH1.ZEX.VBASE DATE: 06/14/2003
SYSLIB: O : ADPRBH1.ZEX.SOURCE TIME: 11:15
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.ATTRIBUT TITLE='ATT: '
@SV MEM=E*
@SV LAN=CBL
@SV
@SV
@SV CAT=WEBATT01 (ATLIST)
@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
ATTRIBUTES ATT: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 1
USER MEMBER PROGRAM LV DATA LOGICAL PICTURE/REDEFINES N RECORD
CODES NAME IDENT NO NAME LENGTH FROM-TO FORMAT VALUE OCCUR Y NUMBER
---------- ---------- -------- -- ------------------------------ ----- ------------ ------ -------------------- ----- - ------
C EUROCUR EUROCUR 01 INPUT-RECORD 80 1-80 GROUP 000030
C EUROCUR EUROCUR 05 INPUT-COMMENT 1 1 ALPNUM X(01) 000031
C EUROCUR EUROCUR 05 INPUT-COUNTRY-NAME 20 2-21 ALPNUM X(20) 000032
C EUROCUR EUROCUR 05 INPUT-CURRENCY-CODE 2 22-23 ALPNUM X(02) 000033
C EUROCUR EUROCUR 05 FILLER 1 24 ALPNUM X(01) 000034
C EUROCUR EUROCUR 05 INPUT-CURRENCY-NAME 10 25-34 ALPNUM X(10) 000035
C EUROCUR EUROCUR 05 INPUT-CURRENCY-IN-DOLLAR 12 35-46 NUMERC 9(6)V9(6) 000036
C EUROCUR EUROCUR 05 FILLER 1 47 ALPNUM X(01) 000037
C EUROCUR EUROCUR 05 INPUT-DOLLAR-IN-CURRENCY 12 48-59 NUMERC 9(6)V9(6) 000038
C EUROCUR EUROCUR 05 FILLER 21 60-80 ALPNUM X(21) 000039
C EUROCUR EUROCUR 01 PRINT-RECORD 133 1-133 GROUP 000045
C EUROCUR EUROCUR 05 FILLER 133 1-133 ALPNUM X(133) 000046
C EUROCUR EUROCUR 01 SYSTEM-DATE 6 1-6 GROUP 000051
C EUROCUR EUROCUR 05 DATE-FIELDS 6 1-6 GROUP 000052
C EUROCUR EUROCUR 07 YEAR 2 1-2 NUMERC 99 000053
C EUROCUR EUROCUR 07 MONTH 2 3-4 NUMERC 99 000054
C EUROCUR EUROCUR 07 DEY 2 5-6 NUMERC 99 000055
C EUROCUR EUROCUR 01 FORMATTED-SYSTEM-DATE 8 1-8 GROUP 000057
C EUROCUR EUROCUR 05 DATE-FIELDS 8 1-8 GROUP 000058
C EUROCUR EUROCUR 07 MONTH 2 1-2 NUMERC 99 000059
C EUROCUR EUROCUR 07 DASH-1 1 3 ALPNUM X 000060
VALUE= -
C EUROCUR EUROCUR 07 DEY 2 4-5 NUMERC 99 000061
C EUROCUR EUROCUR 07 DASH-2 1 6 ALPNUM X 000062
VALUE= -
C EUROCUR EUROCUR 07 YEAR 2 7-8 NUMERC 99 000063
C EUROCUR EUROCUR 01 SYSTEM-TIME 8 1-8 GROUP 000066
C EUROCUR EUROCUR 05 TIME-FIELDS 6 1-6 GROUP 000067
C EUROCUR EUROCUR 07 HOURS 2 1-2 NUMERC 99 000068
C EUROCUR EUROCUR 07 MINUTES 2 3-4 NUMERC 99 000069
C EUROCUR EUROCUR 07 SECONDS 2 5-6 NUMERC 99 000070
C EUROCUR EUROCUR 05 UNTIME-FIELDS 2 7-8 GROUP 000071
C EUROCUR EUROCUR 07 HUNDREDTHS-OF-SECONDS 2 7-8 NUMERC 99 000072
C EUROCUR EUROCUR 01 FORMATTED-SYSTEM-TIME 8 1-8 GROUP 000074
C EUROCUR EUROCUR 05 TIME-FIELDS 8 1-8 GROUP 000075
C EUROCUR EUROCUR 07 HOURS 2 1-2 NUMERC 99 000076
C EUROCUR EUROCUR 07 FILLER 1 3 ALPNUM X 000077
VALUE= :
C EUROCUR EUROCUR 07 MINUTES 2 4-5 NUMERC 99 000078
C EUROCUR EUROCUR 07 FILLER 1 6 ALPNUM X 000079
VALUE= :
C EUROCUR EUROCUR 07 SECONDS 2 7-8 NUMERC 99 000080
C EUROCUR EUROCUR 01 HEADINGS 660 1-660 GROUP 000087
C EUROCUR EUROCUR 03 HD1 132 1-132 GROUP 000088
C EUROCUR EUROCUR 05 HD1-DATE 8 1-8 ALPNUM X(08) 000089
C EUROCUR EUROCUR 05 FILLER 2 9-10 ALPNUM X(02) 000090
VALUE= BLANK
C EUROCUR EUROCUR 05 HD1-TIME 8 11-18 ALPNUM X(08) 000091
C EUROCUR EUROCUR 05 FILLER 34 19-52 ALPNUM X(34) 000092
VALUE= BLANK
C EUROCUR EUROCUR 05 FILLER 13 53-65 ALPNUM X(13) 000093
VALUE= FOREIGN MOOLA
C EUROCUR EUROCUR 05 FILLER 39 66-104 ALPNUM X(39) 000094
VALUE= BLANK
ATTRIBUTES ATT: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 2
USER MEMBER PROGRAM LV DATA LOGICAL PICTURE/REDEFINES N RECORD
CODES NAME IDENT NO NAME LENGTH FROM-TO FORMAT VALUE OCCUR Y NUMBER
---------- ---------- -------- -- ------------------------------ ----- ------------ ------ -------------------- ----- - ------
C EUROCUR EUROCUR 05 FILLER 10 105-114 ALPNUM X(10) 000095
VALUE= COMPILED:
C EUROCUR EUROCUR 05 HD1-COMPILED 8 115-122 ALPNUM X(08) 000096
VALUE= 12/45/78
C EUROCUR EUROCUR 05 FILLER 2 123-124 ALPNUM X(02) 000097
VALUE= BLANK
C EUROCUR EUROCUR 05 FILLER 5 125-129 ALPNUM X(05) 000098
VALUE= PAGE
C EUROCUR EUROCUR 05 HD1-PAGE 2 130-131 DISPLY Z9 000099
C EUROCUR EUROCUR 05 FILLER 1 132 ALPNUM X(01) 000100
VALUE= .
C EUROCUR EUROCUR 03 HD2 132 133-264 GROUP 000111
C EUROCUR EUROCUR 05 FILLER 37 133-169 ALPNUM X(37) 000112
VALUE= BLANK
C EUROCUR EUROCUR 05 FILLER 16 170-185 ALPNUM X(16) 000113
VALUE= FOREIGN CURRENCY
C EUROCUR EUROCUR 05 FILLER 3 186-188 ALPNUM X(03) 000114
VALUE= BLANK
C EUROCUR EUROCUR 05 FILLER 16 189-204 ALPNUM X(16) 000115
VALUE= DOLLARS IN
C EUROCUR EUROCUR 05 FILLER 13 205-217 ALPNUM X(13) 000116
VALUE= BLANK
C EUROCUR EUROCUR 05 FILLER 16 218-233 ALPNUM X(16) 000117
VALUE= FOREIGN CURRENCY
C EUROCUR EUROCUR 05 FILLER 3 234-236 ALPNUM X(03) 000118
VALUE= BLANK
C EUROCUR EUROCUR 05 FILLER 16 237-252 ALPNUM X(16) 000119
VALUE= EUROS IN
C EUROCUR EUROCUR 05 FILLER 11 253-263 ALPNUM X(11) 000120
VALUE= BLANK
C EUROCUR EUROCUR 05 FILLER 1 264 ALPNUM X(01) 000121
VALUE= .
C EUROCUR EUROCUR 03 HD3 132 265-396 GROUP 000122
C EUROCUR EUROCUR 05 FILLER 17 265-281 ALPNUM X(17) 000123
VALUE= COUNTRY
C EUROCUR EUROCUR 05 FILLER 2 282-283 ALPNUM X(02) 000124
VALUE= CD
C EUROCUR EUROCUR 05 FILLER 1 284 ALPNUM X(01) 000125
VALUE= BLANK
C EUROCUR EUROCUR 05 FILLER 10 285-294 ALPNUM X(10) 000126
VALUE= CURRENCY
C EUROCUR EUROCUR 05 FILLER 7 295-301 ALPNUM X(07) 000127
VALUE= BLANK
C EUROCUR EUROCUR 05 FILLER 16 302-317 ALPNUM X(16) 000128
VALUE= IN DOLLARS
C EUROCUR EUROCUR 05 FILLER 3 318-320 ALPNUM X(03) 000129
VALUE= BLANK
C EUROCUR EUROCUR 05 FILLER 16 321-336 ALPNUM X(16) 000130
VALUE= FOREIGN CURRENCY
C EUROCUR EUROCUR 05 FILLER 13 337-349 ALPNUM X(13) 000131
VALUE= BLANK
C EUROCUR EUROCUR 05 FILLER 16 350-365 ALPNUM X(16) 000132
VALUE= IN EUROS
ATTRIBUTES ATT: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 3
USER MEMBER PROGRAM LV DATA LOGICAL PICTURE/REDEFINES N RECORD
CODES NAME IDENT NO NAME LENGTH FROM-TO FORMAT VALUE OCCUR Y NUMBER
---------- ---------- -------- -- ------------------------------ ----- ------------ ------ -------------------- ----- - ------
C EUROCUR EUROCUR 05 FILLER 3 366-368 ALPNUM X(03) 000133
VALUE= BLANK
C EUROCUR EUROCUR 05 FILLER 16 369-384 ALPNUM X(16) 000134
VALUE= FOREIGN CURRENCY
C EUROCUR EUROCUR 05 FILLER 11 385-395 ALPNUM X(11) 000135
VALUE= BLANK
C EUROCUR EUROCUR 05 FILLER 1 396 ALPNUM X(01) 000136
VALUE= .
C EUROCUR EUROCUR 03 HD4 132 397-528 GROUP 000137
C EUROCUR EUROCUR 05 FILLER 17 397-413 ALPNUM X(17) 000138
VALUE= ----------------
C EUROCUR EUROCUR 05 FILLER 2 414-415 ALPNUM X(02) 000139
VALUE= --
C EUROCUR EUROCUR 05 FILLER 1 416 ALPNUM X(01) 000140
VALUE= BLANK
C EUROCUR EUROCUR 05 FILLER 10 417-426 ALPNUM X(10) 000141
VALUE= ----------
C EUROCUR EUROCUR 05 FILLER 7 427-433 ALPNUM X(07) 000142
VALUE= BLANK
C EUROCUR EUROCUR 05 FILLER 16 434-449 ALPNUM X(16) 000143
VALUE= ----------------
C EUROCUR EUROCUR 05 FILLER 3 450-452 ALPNUM X(03) 000144
VALUE= BLANK
C EUROCUR EUROCUR 05 FILLER 16 453-468 ALPNUM X(16) 000145
VALUE= ----------------
C EUROCUR EUROCUR 05 FILLER 13 469-481 ALPNUM X(13) 000146
VALUE= BLANK
C EUROCUR EUROCUR 05 FILLER 16 482-497 ALPNUM X(16) 000147
VALUE= ----------------
C EUROCUR EUROCUR 05 FILLER 3 498-500 ALPNUM X(03) 000148
VALUE= BLANK
C EUROCUR EUROCUR 05 FILLER 16 501-516 ALPNUM X(16) 000149
VALUE= ----------------
C EUROCUR EUROCUR 05 FILLER 11 517-527 ALPNUM X(11) 000150
VALUE= BLANK
C EUROCUR EUROCUR 05 FILLER 1 528 ALPNUM X(01) 000151
VALUE= .
C EUROCUR EUROCUR 03 D-TAIL 132 529-660 GROUP 000153
C EUROCUR EUROCUR 05 REPORT-COUNTRY-NAME 16 529-544 ALPNUM X(16) 000154
VALUE= BLANK
C EUROCUR EUROCUR 05 FILLER 1 545 ALPNUM X(01) 000155
VALUE= BLANK
C EUROCUR EUROCUR 05 REPORT-CURRENCY-CODE 2 546-547 ALPNUM X(02) 000156
VALUE= BLANK
C EUROCUR EUROCUR 05 FILLER 1 548 ALPNUM X(01) 000157
VALUE= BLANK
C EUROCUR EUROCUR 05 REPORT-CURRENCY-NAME 10 549-558 ALPNUM X(10) 000158
VALUE= BLANK
C EUROCUR EUROCUR 05 FILLER 7 559-565 ALPNUM X(07) 000159
VALUE= BLANK
C EUROCUR EUROCUR 05 FILLER 2 566-567 ALPNUM X(02) 000160
VALUE= BLANK
C EUROCUR EUROCUR 05 REPORT-CURRENCY-IN-DOLLAR 12 568-580 DISPLY Z(6).9(6) 000161
C EUROCUR EUROCUR 05 FILLER 1 581 ALPNUM X(01) 000162
VALUE= BLANK
ATTRIBUTES ATT: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 4
USER MEMBER PROGRAM LV DATA LOGICAL PICTURE/REDEFINES N RECORD
CODES NAME IDENT NO NAME LENGTH FROM-TO FORMAT VALUE OCCUR Y NUMBER
---------- ---------- -------- -- ------------------------------ ----- ------------ ------ -------------------- ----- - ------
C EUROCUR EUROCUR 05 FILLER 3 582-584 ALPNUM X(03) 000163
VALUE= BLANK
C EUROCUR EUROCUR 05 FILLER 2 585-586 ALPNUM X(02) 000164
VALUE= BLANK
C EUROCUR EUROCUR 05 REPORT-DOLLAR-IN-CURRENCY 12 587-599 DISPLY Z(6).9(6) 000165
C EUROCUR EUROCUR 05 FILLER 1 600 ALPNUM X(01) 000166
VALUE= BLANK
C EUROCUR EUROCUR 05 FILLER 13 601-613 ALPNUM X(13) 000167
VALUE= BLANK
C EUROCUR EUROCUR 05 FILLER 2 614-615 ALPNUM X(02) 000168
VALUE= BLANK
C EUROCUR EUROCUR 05 REPORT-CURRENCY-IN-EUROS 12 616-628 DISPLY Z(6).9(6) 000169
C EUROCUR EUROCUR 05 FILLER 1 629 ALPNUM X(01) 000170
VALUE= BLANK
C EUROCUR EUROCUR 05 FILLER 3 630-632 ALPNUM X(03) 000171
VALUE= BLANK
C EUROCUR EUROCUR 05 FILLER 2 633-634 ALPNUM X(02) 000172
VALUE= BLANK
C EUROCUR EUROCUR 05 REPORT-EUROS-IN-CURRENCY 12 635-647 DISPLY Z(6).9(6) 000173
C EUROCUR EUROCUR 05 FILLER 1 648 ALPNUM X(01) 000174
VALUE= BLANK
C EUROCUR EUROCUR 05 FILLER 11 649-659 ALPNUM X(11) 000175
VALUE= BLANK
C EUROCUR EUROCUR 05 FILLER 1 660 ALPNUM X(01) 000176
VALUE= .
C EUROCUR EUROCUR 01 TABLE-OF-EXCHANGE-RATES 324 1-324 GROUP C000180
C EUROCUR EUROCUR 03 TABLE-CODES 54 1-54 GROUP C000181
C EUROCUR EUROCUR 05 FILLER 2 1-2 ALPNUM X(2) C000182
VALUE= AS
C EUROCUR EUROCUR 05 FILLER 2 3-4 ALPNUM X(2) C000183
VALUE= AU
C EUROCUR EUROCUR 05 FILLER 2 5-6 ALPNUM X(2) C000184
VALUE= BE
C EUROCUR EUROCUR 05 FILLER 2 7-8 ALPNUM X(2) C000185
VALUE= BR
C EUROCUR EUROCUR 05 FILLER 2 9-10 ALPNUM X(2) C000186
VALUE= CA
C EUROCUR EUROCUR 05 FILLER 2 11-12 ALPNUM X(2) C000187
VALUE= DE
C EUROCUR EUROCUR 05 FILLER 2 13-14 ALPNUM X(2) C000188
VALUE= EU
C EUROCUR EUROCUR 05 FILLER 2 15-16 ALPNUM X(2) C000189
VALUE= FI
C EUROCUR EUROCUR 05 FILLER 2 17-18 ALPNUM X(2) C000190
VALUE= FR
C EUROCUR EUROCUR 05 FILLER 2 19-20 ALPNUM X(2) C000191
VALUE= GE
C EUROCUR EUROCUR 05 FILLER 2 21-22 ALPNUM X(2) C000192
VALUE= GR
C EUROCUR EUROCUR 05 FILLER 2 23-24 ALPNUM X(2) C000193
VALUE= IR
C EUROCUR EUROCUR 05 FILLER 2 25-26 ALPNUM X(2) C000194
VALUE= IT
C EUROCUR EUROCUR 05 FILLER 2 27-28 ALPNUM X(2) C000195
VALUE= KO
ATTRIBUTES ATT: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 5
USER MEMBER PROGRAM LV DATA LOGICAL PICTURE/REDEFINES N RECORD
CODES NAME IDENT NO NAME LENGTH FROM-TO FORMAT VALUE OCCUR Y NUMBER
---------- ---------- -------- -- ------------------------------ ----- ------------ ------ -------------------- ----- - ------
C EUROCUR EUROCUR 05 FILLER 2 29-30 ALPNUM X(2) C000196
VALUE= LX
C EUROCUR EUROCUR 05 FILLER 2 31-32 ALPNUM X(2) C000197
VALUE= ME
C EUROCUR EUROCUR 05 FILLER 2 33-34 ALPNUM X(2) C000198
VALUE= NE
C EUROCUR EUROCUR 05 FILLER 2 35-36 ALPNUM X(2) C000199
VALUE= NO
C EUROCUR EUROCUR 05 FILLER 2 37-38 ALPNUM X(2) C000200
VALUE= NZ
C EUROCUR EUROCUR 05 FILLER 2 39-40 ALPNUM X(2) C000201
VALUE= PO
C EUROCUR EUROCUR 05 FILLER 2 41-42 ALPNUM X(2) C000202
VALUE= PR
C EUROCUR EUROCUR 05 FILLER 2 43-44 ALPNUM X(2) C000203
VALUE= SP
C EUROCUR EUROCUR 05 FILLER 2 45-46 ALPNUM X(2) C000204
VALUE= SW
C EUROCUR EUROCUR 05 FILLER 2 47-48 ALPNUM X(2) C000205
VALUE= SZ
C EUROCUR EUROCUR 05 FILLER 2 49-50 ALPNUM X(2) C000206
VALUE= TA
C EUROCUR EUROCUR 05 FILLER 2 51-52 ALPNUM X(2) C000207
VALUE= UK
C EUROCUR EUROCUR 05 FILLER 2 53-54 ALPNUM X(2) C000208
VALUE= US
C EUROCUR EUROCUR 03 TABLE-FACTORS 270 55-324 GROUP C000209
C EUROCUR EUROCUR 05 FILLER 10 55-64 NUMERC 9(4)V9(6) C000210
VALUE= 1.76635
C EUROCUR EUROCUR 05 FILLER 10 65-74 NUMERC 9(4)V9(6) C000211
VALUE= 13.7603
C EUROCUR EUROCUR 05 FILLER 10 75-84 NUMERC 9(4)V9(6) C000212
VALUE= 40.3399
C EUROCUR EUROCUR 05 FILLER 10 85-94 NUMERC 9(4)V9(6) C000213
VALUE= 1.27972
C EUROCUR EUROCUR 05 FILLER 10 95-104 NUMERC 9(4)V9(6) C000214
VALUE= 1.62747
C EUROCUR EUROCUR 05 FILLER 10 105-114 NUMERC 9(4)V9(6) C000215
VALUE= 7.53931
C EUROCUR EUROCUR 05 FILLER 10 115-124 NUMERC 9(4)V9(6) C000216
VALUE= 1.00000
C EUROCUR EUROCUR 05 FILLER 10 125-134 NUMERC 9(4)V9(6) C000217
VALUE= 5.94573
C EUROCUR EUROCUR 05 FILLER 10 135-144 NUMERC 9(4)V9(6) C000218
VALUE= 6.55957
C EUROCUR EUROCUR 05 FILLER 10 145-154 NUMERC 9(4)V9(6) C000219
VALUE= 1.95583
C EUROCUR EUROCUR 05 FILLER 10 155-164 NUMERC 9(4)V9(6) C000220
VALUE= 328.359
C EUROCUR EUROCUR 05 FILLER 10 165-174 NUMERC 9(4)V9(6) C000221
VALUE= .787564
C EUROCUR EUROCUR 05 FILLER 10 175-184 NUMERC 9(4)V9(6) C000222
VALUE= 1936.27
C EUROCUR EUROCUR 05 FILLER 10 185-194 NUMERC 9(4)V9(6) C000223
VALUE= 1544.96
ATTRIBUTES ATT: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 6
USER MEMBER PROGRAM LV DATA LOGICAL PICTURE/REDEFINES N RECORD
CODES NAME IDENT NO NAME LENGTH FROM-TO FORMAT VALUE OCCUR Y NUMBER
---------- ---------- -------- -- ------------------------------ ----- ------------ ------ -------------------- ----- - ------
C EUROCUR EUROCUR 05 FILLER 10 195-204 NUMERC 9(4)V9(6) C000224
VALUE= 40.8800
C EUROCUR EUROCUR 05 FILLER 10 205-214 NUMERC 9(4)V9(6) C000225
VALUE= 9.84235
C EUROCUR EUROCUR 05 FILLER 10 215-224 NUMERC 9(4)V9(6) C000226
VALUE= 2.20371
C EUROCUR EUROCUR 05 FILLER 10 225-234 NUMERC 9(4)V9(6) C000227
VALUE= 8.37049
C EUROCUR EUROCUR 05 FILLER 10 235-244 NUMERC 9(4)V9(6) C000228
VALUE= 2.09041
C EUROCUR EUROCUR 05 FILLER 10 245-254 NUMERC 9(4)V9(6) C000229
VALUE= 202.385
C EUROCUR EUROCUR 05 FILLER 10 255-264 NUMERC 9(4)V9(6) C000230
VALUE= 200.482
C EUROCUR EUROCUR 05 FILLER 10 265-274 NUMERC 9(4)V9(6) C000231
VALUE= 166.386
C EUROCUR EUROCUR 05 FILLER 10 275-284 NUMERC 9(4)V9(6) C000232
VALUE= 8.77306
C EUROCUR EUROCUR 05 FILLER 10 285-294 NUMERC 9(4)V9(6) C000233
VALUE= 1.65461
C EUROCUR EUROCUR 05 FILLER 10 295-304 NUMERC 9(4)V9(6) C000234
VALUE= 37.7768
C EUROCUR EUROCUR 05 FILLER 10 305-314 NUMERC 9(4)V9(6) C000235
VALUE= .661787
C EUROCUR EUROCUR 05 FILLER 10 315-324 NUMERC 9(4)V9(6) C000236
VALUE= 1.10750
C EUROCUR EUROCUR 01 TBL-OF-EXCHANGE-RATES 324 1-324 GROUP TABLE-OF-EXCHANGE-RATES RC000238
C EUROCUR EUROCUR 03 TBL-CODE 2 1-2 ALPNUM X(2) 27 C000239
C EUROCUR EUROCUR 03 TBL-FACTOR 10 55-64 NUMERC 9(4)V9(6) 27 C000241
C EUROCUR EUROCUR 01 STUFF 34 1-34 GROUP 000245
C EUROCUR EUROCUR 03 SWITCHES 12 1-12 GROUP 000246
C EUROCUR EUROCUR 05 EOF-SWITCH 1 1 ALPNUM X(1) 000247
VALUE= E
C EUROCUR EUROCUR 05 FILE-STATUS 1 2 ALPNUM X(1) 000248
8C EUROCUR EUROCUR 88 ITS-END-OF-FILE 1 2 VALUE= E 000248
C EUROCUR EUROCUR 05 K-01 5 3-7 NUMERC 9(1)V9(4) 000250
VALUE= .01
C EUROCUR EUROCUR 05 K-02 5 8-12 NUMERC 9(1)V9(4) 000251
VALUE= .02
C EUROCUR EUROCUR 03 HEADING-STUFF 8 13-20 GROUP 000253
C EUROCUR EUROCUR 05 PAGE-LENGTH 2 13-14 NUMERC 9(2) 000254
VALUE= 60
C EUROCUR EUROCUR 05 PAGE-NUMBER 2 15-16 NUMERC 9(2) 000255
VALUE= 0
C EUROCUR EUROCUR 05 LINE-NUMBER 4 17-20 NUMERC 9(4) 000256
VALUE= 999
C EUROCUR EUROCUR 03 EURO-WORK-AREAS 14 21-34 GROUP 000258
C EUROCUR EUROCUR 05 EC-WORK 12 21-27 PACKED 9(6)V9(6) 000259
C EUROCUR EUROCUR 05 EC-ROUND 12 28-34 PACKED 9(6)V9(6) 000260
PM@ATT-M04 WEBATT01 REPLACED IN PMLIB AS: ATLIST
--------------------
ATTRIBUTES ATT: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 7
USER MEMBER PROGRAM LV DATA LOGICAL PICTURE/REDEFINES N RECORD
CODES NAME IDENT NO NAME LENGTH FROM-TO FORMAT VALUE OCCUR Y NUMBER
---------- ---------- -------- -- ------------------------------ ----- ------------ ------ -------------------- ----- - ------
PM@000-10 NORMAL EOJ CPU HRS:00 MIN:00 SEC:02.18
--------------------