V S Amarendra Reddy
Active User
Joined: 13 Sep 2006 Posts: 216 Location: USA
|
|
|
|
Input file:VBA, record length=240
Code: |
DSNT490I SAMPLE DATA UNLOAD PROGRAM
DSNT505I DSNTIAUL OPTIONS USED: SQL
DSNT503I UNLOAD DATA SET SYSPUNCH RECORD LENGTH SET TO 80
DSNT504I UNLOAD DATA SET SYSPUNCH BLOCK SIZE SET TO 27920
DSNT506I INPUT STATEMENT WAS NOT A FULL SELECT ON A SINGLE TABLE. LOAD STATEMEN
DSNT503I UNLOAD DATA SET SYSREC00 REC456 LENGTH SET TO 269
DSNT504I UNLOAD DATA SET SYSREC00 BLOCK SIZE SET TO 27976
DSNT495I SUCCESSFUL UNLOAD 1 ROWS OF TABLE TBLNAME
DSNT506I INPUT STATEMENT WAS NOT A FULL SELECT ON A SINGLE TABLE. LOAD STATEMEN
DSNT503I UNLOAD DATA SET SYSREC01 REC786 LENGTH SET TO 526
DSNT504I UNLOAD DATA SET SYSREC01 BLOCK SIZE SET TO 27878
DSNT495I SUCCESSFUL UNLOAD 5 ROWS OF TABLE TBLNAME |
Sort control card I am using is
Code: |
OPTION COPY,VLSHRT
INCLUDE COND=(38,6,SS,EQ,C'00 REC,01 REC')
SORT FIELDS=(44,3,ZD,D)
OUTFIL BUILD=(34,7,64,4,UFF,EDIT=(TTTT),80:X),CONVERT
|
I am trying to sort the records with the strings REC456, REC786 that are in byte 44(that includes RDW).
Current Output
Code: |
REC00 0269
REC01 0526
|
Expected Output
Code: |
REC01 0526
REC00 0269
|
What is the mistake in the control card?
Regards
Amar |
|