Hi,
I need to extract 3 fields from a VB file into FB file. One of this 3 fields is a Comp-3 (PD) field. Here is the JCL I have used. I am getting SOC7 abend for this JCL.
Comp-3 field( S9(09)V99 ) is at position 3930. For the rest you can refer Sysin.
PLS SOMEONE HELP. I AM GETTING AN ERROR WRITING FROM A VB TO VB FOR THIS SYSIN ( I ALSO WANT TO GOT FROM PD TO ZD) SYSIN IS AS FOLLOWS: SYSIN :
OPTION COPY
OUTFIL BUILD=(22:22,7,PD,TO=ZD,LENGTH=13,
29:29,6,PD,TO=ZD,LENGTH=11,
35:35,6,PD,TO=ZD,LENGTH=11,
41:41,6,PD,TO=ZD,LENGTH=11,
47:47,6,PD,TO=ZD,LENGTH=11)
WER276B SYSDIAG= 1903157, 5555012, 5555012, 8397225
WER164B 6,896K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED
WER164B 40K BYTES RESERVE REQUESTED, 1,004K BYTES USED
WER146B 20K BYTES OF EMERGENCY SPACE ALLOCATED
WER108I SORTIN : RECFM=VB ; LRECL= 52; BLKSIZE= 27998
WER235A SORTOUT OUTREC RDW NOT INCLUDED