Thanks. I didn't know that and didn't see it in my reading of the manual. I'll mention it to the programmer.
On Mon, Sep 9, 2013 at 3:47 PM, Sri h Kolusu <[email protected]> wrote: > >> 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: [email protected] > Phone: 408-927-2187 Tie Line: 457-2187 > > IBM Mainframe Discussion List <[email protected]> wrote on > 09/09/2013 09:22:21 AM: > > > From: John McKown <[email protected]> > > To: [email protected], > > Date: 09/09/2013 09:26 AM > > Subject: SORT? need. > > Sent by: IBM Mainframe Discussion List <[email protected]> > > > > 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 [email protected] with the message: INFO IBM-MAIN > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > -- 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 [email protected] with the message: INFO IBM-MAIN
