Leave out the FB Record size and you can use variable RECORD-LENGTH to determine how many bytes are in the record.
On Mon, Feb 10, 2014 at 3:06 PM, John McKown <john.archie.mck...@gmail.com> wrote: > I did a quick test. The simplest way was to simply have two SELECT > sentences which reference the same DD. > > FILE-CONTROL. > SELECT FB ASSIGN TO UT-S-INPUT > FILE STATUS IS FB-STATUS-1 > . > SELECT VB ASSIGN TO UT-S-INPUT > FILE STATUS IS VB-STATUS-1 > . > ... > FILE SECTION. > FD FB > RECORD CONTAINS 80 CHARACTERS > RECORDING MODE IS F > BLOCK CONTAINS 0 RECORDS > LABEL RECORDS ARE OMITTED > . > 01 FB-RECORD. > 05 CARD-IMAGE PIC X(80). > FD VB > RECORDING MODE IS V > RECORD IS VARYING IN SIZE > FROM 1 TO 80 CHARACTERS > DEPENDING ON VB-LRECL > BLOCK CONTAINS 0 RECORDS > LABEL RECORDS ARE OMITTED > . > 01 VB-RECORD. > 05 CARD-COLUMN OCCURS 1 TO 80 TIMES > DEPENDING ON VB-LRECL > PIC X(1). > ... > PROCEDURE DIVISION. > ... > OPEN INPUT FB > IF FB-FILE-STATUS-1 IS NOT 00 THEN > OPEN INPUT VB > IF VB-FILE-STATUS-1 IS NOT 00 THEN > DISPLAY 'CANNOT OPEN INPUT FILE.' > MOVE 8 TO RETURN-CODE > GOBACK > END-IF > ENDIF > ... > IF FB-FILE-STATUS-1 IS ZERO THEN > READ FB-RECORD > MOVE FB-RECORD TO WS-RECORD > ELSE > READ VB-RECORD > MOVE VB-RECORD (1:VB-LRECL) TO WS-RECORD > END-IF > ... process data in WS-RECORD > > > > On Mon, Feb 10, 2014 at 5:16 PM, Scott Ford <scott_j_f...@yahoo.com> wrote: > >> All: >> >> >> I have a Cobol program that can input either RECFM=FB or RECFM=VB and I am >> trying to make it easier for our customers to use. >> >> The input file can be either and whats the simplest way to tell the >> program that the input is FB OR VB. I was thinking PARM= ... >> >> >> What do you guys/gals think ? >> >> >> >> >> >> >> Best Regards, >> >> Scott Ford >> >> www.identityforge.com >> >> ---------------------------------------------------------------------- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN >> > > > > -- > Wasn't there something about a PASCAL programmer knowing the value of > everything and the Wirth of nothing? > > Maranatha! <>< > John McKown > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
