I'm looking for solution to convert, using dfsort, icetool et other (not COBOL PGM)
+00000000845,09 to 00000008540I
-00000003278,18 to 00000032781Q
I try like this
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=...
//SORTOUT DD DISP=OLD,DSN=...
//SYSIN DD *
OPTION COPY
INREC BUILD=(001,058,
059,15,SFF,TO=ZD,LENGTH=12)
/*
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=...
//SORTOUT DD DISP=OLD,DSN=...
//SYSIN DD *
OPTION COPY
INREC BUILD=(001,058,
059,15,SFF,TO=ZD,LENGTH=12)
/*
but the result is not totally correct, i have
000000084509 KO (I want 00000008540I)
00000032781Q OK
Is anybody can help me please.
thank, have a good day