Please give me the coding for converting VB to FB and FB to VB

Question Posted / gk

3 Answers
18333 Views
HP, I also Faced
E-Mail Answers

Answers were Sorted based on User's Feedback

Please give me the coding for converting VB to FB and FB to VB..

//STEP1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=SDS.OUTPUT.FBVB,DISP=SHR
//OUT1 DD DSN=SDS.OUTPUT.VBFB,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(TRK,(5,5)),
// DCB=(RECFM=FB,LRECL=80)
//SYSIN DD *
OPTION COPY
OUTFILE FNAMES=OUT1,VTOF,OUTREC=(5,80)
/*

SDS.OUTPUT.FBVB is a VB file of Record length=
84

Is This Answer Correct ?

4 Yes

1 No

Please give me the coding for converting VB to FB and FB to VB..

Answer / allu prakash

//STEP1 EXEC PGM=SORT

//SYSOUT DD SYSOUT=*

//SORTIN DD DSN=SAS12D.G4662V00.TEST,DISP=SHR
//SORTOUT DD DSN=GGJ67D.TEST4,
// DISP=(NEW,CATLG,DELETE),

// SPACE=(TRK,(10,10),RLSE),
// RECFM=FB,LRECL=10,DSORG=PS

//SYSIN DD *
OPTION VLSHRT
SORT FIELDS=COPY

INCLUDE COND=(89,1,CH,EQ,C'Y',AND,5,3,ZD,EQ,120)

OUTREC FIELDS=(8,2,PD,EDIT=(TTTTTTTTTT))

i hope this is the right to convert the VB TO FB..let me
know if the given answer is wrong......

Is This Answer Correct ?

3 Yes

4 No

Please give me the coding for converting VB to FB and FB to VB..

Answer / harsha

Important point is VB file will have 4 bytes extra than
it's corresponding FB file.
The four bytes contain catalog information of the file.

Is This Answer Correct ?

2 Yes

4 No

Post New Answer