Rambhupal.chaudari
New User
Joined: 30 Mar 2007
Posts: 25
Location: Hyderabad
|
|
|
|
Hi,
Am using sort utility with input file of variable length records.
I just want to copy records which satisfy condition.
Below is my Sysin,
Here When i use the below sysin with out option VLSHRT am getting RC=16. when i use below sysin with the option the job executing successfully.
| Code: |
//SYSIN DD *
OPTION VLSHRT
SORT FIELDS=COPY
INCLUDE COND=((5,3,CH,EQ,C'C03'),AND,
(26,4,CH,EQ,C'5100',OR,
26,4,CH,EQ,C'5200',OR,
26,4,CH,EQ,C'5201',OR,
26,4,CH,EQ,C'5202'))
/*
|
however when i use outrec along the above sysin am getting RC=0016, even though am using option VLSHRT.
| Code: |
//SYSIN DD *
OPTION VLSHRT
SORT FIELDS=COPY
INCLUDE COND=(((5,3,CH,EQ,C'C02',OR,
5,3,CH,EQ,C'C04'),AND,
(22,4,CH,EQ,C'5100',OR,
22,4,CH,EQ,C'5200',OR,
22,4,CH,EQ,C'5201',OR,
22,4,CH,EQ,C'5202')),OR,
((5,3,CH,EQ,C'C03'),AND,
(26,4,CH,EQ,C'5100',OR,
26,4,CH,EQ,C'5200',OR,
26,4,CH,EQ,C'5201',OR,
26,4,CH,EQ,C'5202')))
OUTREC FIELDS=(8,4)
/*
|
| Code: |
ICE201I E RECORD TYPE IS V - DATA STARTS IN POSITION 5
ICE150I 0 VLSHRT NOT USED FOR SORT, MERGE, INCLUDE, OMIT OR SUM STATEMENT FIELDS
ICE126A 0 INCONSISTENT *OUTREC IFTHEN 0 REFORMATTING FIELD FOUND
ICE751I 0 C5-K26318 C6-K90007 C7-K90000 C8-K23476 E9-K90007 E7-K24705
ICE052I 3 END OF DFSORT
|
Please let me know how to overcome this problem.
Thanks in advance,
Ram. |
|
