All,
Given the following key definitions in an external logical file:
A UNIQUE
A R IOICITMR PFILE(VIOICITM)
*
A K ICIFCMP
A K ICIFLOC
A K ICITCMP
A K ICIFLOC <===== Note: This was a mistake - duplicate of key
#2
A K ICITITM

Spool file list from CRTLF:

Fi
SEQNBR
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
le
1800 UNIQUE

1900 R IOICITMR PFILE(VIOICITM)

2100 K ICIFCMP

2200 K ICIFLOC

2300 K ICITCMP

2400 K ICIFLOC

2500 K ICITITM

* * * * * E N D O F E X P A N D E D S O U R C E *
* * * *
5761SS1 V6R1M0 080215 Data Description
T37MODS/VIOICITM2
Message Summary

Total Informational Warning Error Severe

(0-9) (10-19) (20-29) (30-99)

0 0 0 0 0


Note: *NO* messages listed.

Key fields as shown in DSPFD *ACCPTH
Number of key fields . . . . . . . . . . . : 5
Record format . . . . . . . . . . . . . . . : IOICITMR
Key field . . . . . . . . . . . . . . . . : ICIFCMP
Sequence . . . . . . . . . . . . . . . : Ascending
Sign specified . . . . . . . . . . . . : SIGNED
Zone/digit specified . . . . . . . . . : *NONE
Alternative collating sequence . . . . : No
Key field . . . . . . . . . . . . . . . . : ICIFLOC
Sequence . . . . . . . . . . . . . . . : Ascending
Sign specified . . . . . . . . . . . . : UNSIGNED
Zone/digit specified . . . . . . . . . : *NONE
Alternative collating sequence . . . . : No
Key field . . . . . . . . . . . . . . . . : ICITCMP
Sequence . . . . . . . . . . . . . . . : Ascending
Sign specified . . . . . . . . . . . . : SIGNED
Zone/digit specified . . . . . . . . . : *NONE
Alternative collating sequence . . . . : No
Key field . . . . . . . . . . . . . . . . : ICIFLOC
Sequence . . . . . . . . . . . . . . . : Ascending

Sign specified . . . . . . . . . . . . : UNSIGNED
Zone/digit specified . . . . . . . . . : *NONE
Alternative collating sequence . . . . : No
Key field . . . . . . . . . . . . . . . . : ICITITM
Sequence . . . . . . . . . . . . . . . : Ascending
Sign specified . . . . . . . . . . . . : UNSIGNED
Zone/digit specified . . . . . . . . . : *NONE
Alternative collating sequence . . . . : No

Use DFU to check data:
WORK WITH DATA IN A FILE Mode . . . . : CHANGE
Format . . . . : IOICITMR File . . . . : VIOICITM2

From Company:
To Company:
From Location:
To Item Number:
Note: Keys are *not* in the order shown in the file.

Shouldn't the CRTLF failed?
Or at least issued a warning?

V6R1.

TIA

Jeff Young
Sr. Programmer Analyst

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].