manuwankenobi
New User
Joined: 02 Mar 2006
Posts: 32
Location: FRANCE
|
|
|
|
Hello,
I have to covert a file from FB to VB.
Input file record is 10074, the first 174 bytes must always be in the ouptput file, bytes from position 175 to the end must have trailing blanks removed.
Bytes 167 to 174 can be blanks and must remain blanks in output file.
I found a way which is working :
| Code: |
//ALTSIRP3 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTOUT DD DISP=(NEW,CATLG,DELETE),
// DSNAME=UINFOA.IRP4070.IRP0200.OUTFILE.TRANSN,
// SPACE=(CYL,(1,1),RLSE)
//SORTIN DD DISP=SHR,DSN=UINFOA.IRP4070.IRP0200.OUTFILEN
// DD DISP=SHR,DSN=UINFOA.IRP4075.UNLOAD.CARI.DATA.TRIN
/*
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=(167,8,CH,EQ,C' '),
OVERLAY=(167:C'55555555'))
ALTSEQ CODE=(7BB1,7C44,4A90,E048,5AB5,79A0,C051,D054,A1BD,B17B,
6ADD,B55A,BDA1,904A,A079,447C,48E0,54D0,51C0,DD6A)
OUTREC FIELDS=(1,10074,TRAN=ALTSEQ)
OUTFIL FTOV,VLTRIM=X'40'
//*
//ALTSIRP4 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTOUT DD DISP=(NEW,CATLG,DELETE),
// DSNAME=UINFOA.IRP4070.IRP0200.OUTFILE.TRANSN2,
//SORTIN DD DISP=SHR,DSN=UINFOA.IRP4070.IRP0200.OUTFILE.TRANSN
/*
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=(171,8,CH,EQ,C'55555555'),
OVERLAY=(171:C' '))
|
I would like to do the same job in one step instead of two.
Do you think that it is possible ?
Thank a lot. |
|
