>> Anyway, DFSORT has a FTOV function. But I need an "any"TOV type function. That is, it will read FB or VB and output VB.
Hi John, DFSORT is smart enough to ignore FTOV parm if the input is already a variable block file. Here is simple example . //*************************************************************** //* CREATE AN FB INPUT FILE AND A VB INPUT FILE * //*************************************************************** //STEP0050 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD * A BB CCC DDDD EEEEE FFFFFF GGGGGGG //VB DD DSN=&&VB,DISP=(,PASS),SPACE=(CYL,(1,1),RLSE) //FB DD DSN=&&FB,DISP=(,PASS),SPACE=(CYL,(1,1),RLSE) //SYSIN DD * SORT FIELDS=COPY OUTFIL FNAMES=VB,FTOV,VLTRIM=C' ' OUTFIL FNAMES=FB //* //*************************************************************** //* CONVERT THE FB FILE TO VB FILE USING FTOV * //*************************************************************** //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=&&FB,DISP=SHR //SORTOUT DD SYSOUT=* //SYSIN DD * SORT FIELDS=COPY OUTFIL FTOV //* //*************************************************************** //* CONVERT THE VB FILE TO VB FILE USING FTOV (IGNORED) * //*************************************************************** //STEP0200 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=&&VB,DISP=SHR //SORTOUT DD SYSOUT=* //SYSIN DD * SORT FIELDS=COPY OUTFIL FTOV //* The sysout from the job will show the following STEP0050 Sysout : ICE210I 0 VB : EXCP USED, LRECL = 84, BLKSIZE = 27998, TYPE = VB (SDB) ICE210I 0 FB : EXCP USED, LRECL = 80, BLKSIZE = 27920, TYPE = FB (SDB) STEP0100 Sysout : ICE088I 0 JOHN.STEP0100. , INPUT LRECL = 80, BLKSIZE = 27920, TYPE = FB ICE210I 0 SORTOUT : BSAM USED, LRECL = 84, BLKSIZE = 27920, TYPE = VB STEP0200 Sysout : ICE088I 0 JOHN .STEP0200. , INPUT LRECL = 84, BLKSIZE = 27998, TYPE = VB ICE210I 0 SORTOUT : BSAM USED, LRECL = 84, BLKSIZE = 27998, TYPE = VB Further if you have any questions please let us know Thanks, Kolusu DFSORT Development IBM Corporation Email: skol...@us.ibm.com Phone: 408-927-2187 Tie Line: 457-2187 IBM Mainframe Discussion List <IBM-MAIN@listserv.ua.edu> wrote on 09/09/2013 09:22:21 AM: > From: John McKown <john.archie.mck...@gmail.com> > To: IBM-MAIN@listserv.ua.edu, > Date: 09/09/2013 09:26 AM > Subject: SORT? need. > Sent by: IBM Mainframe Discussion List <IBM-MAIN@listserv.ua.edu> > > I haven't yet looked in the DFSORT manual, bad me, but I'll ask anyway. > > Programmer has a "problem". He is writing a COBOL program. No, that's not > the problem <grin/>. He wants the input to be an OPTIONAL file which might > be VB in one run an FB in a different run. This file is "user" generated. I > told him to tell the user to put in the SITE command necessary to make the > uploaded file be VB. He basically said that he didn't think he could > _force_ them to do that. The conversation degenerated after that. > > Anyway, DFSORT has a FTOV function. But I need an "any"TOV type function. > That is, it will read FB or VB and output VB. > > If this were me, I'd use REXX because I've been told these will be "small" > files. But the programmer doesn't know REXX. And I'm not go write it for > him because our programmers don't know REXX and so won't be able to support > it. And I'd end up being support-for-eternity for this. It's happened > before with some HLASM code which is now "mine". > > -- > As of next week, passwords will be entered in Morse code. > > Maranatha! <>< > John McKown > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
