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

Answer Posted / 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



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

in order to execute step2 a job after a return code of 8 in step1, what condition you will code in step2?

2063


How to find the UNIT and VOLUME of a (a) KEPT (b) UNCATALOGED and (c) CATALOGED dataset - using (i) JCL and using (ii) ISPF ?

2172


what happens when COND is coded in JOB statement and when COND is coded inside EXEC statement?

775


What are the 4 fields in dd statement?

744


hello friends ,i have exam in Hsbc,pls any on send me placement papers and technical questions on mainframes,thank u

1667






Can we use DISP=SHR in output file in JCL

953


What is the use of disp parameter?

653


Is it possible to define dd statements as you want?

646


WORKING-STORAGE SECTION. 01 GROSS-PAY. 05 BASIC-PAY PIC 9(5). 05 ALLOWENCES PIC 9(3). PROCEDURE DIVISION. MOVE 1000 TO BASIC-PAY. MOVE 250 TO ALLOWENCES. DISPLAY GROSS-PAY. STOP RUN. 77 W-A PIC 9(3)V99 VALUE 23.75 77 W-B PIC ZZ9V99 VLAUE 123.45 after the statement MOVE W-A TO W-B what will be W-B's value? a.123.75 b.b23.75 (where b indicates space) c.023.75 d.invalid move

854


Give the syntax of job specifying jcl statement.

640


what operation is performed by job statement?

662


Why include statement is used in a jcl?

689


what is DD statement is used in JCL?

681


Is there any command to check wether the ps file is in sorted order?

2430


when does a dataset go uncataloged?

835