How do you define a sort file in JCL that runs the COBOL
program?
Answer Posted / savemeenachilar
//STEP1 EXEC
PGM=SORT
//SORTIN DD
DSN=XMMD01.DEV3.REPORT6.LIST,DISP=SHR
//SORTOUT DD
DSN=AMMDPM1.DEV3.SAMPLE.SRTOUT1,
// DISP=
(NEW,CATLG,DELETE),
//
UNIT=SYSDA,
//
MGMTCLAS=DEVL,
// SPACE=(CYL,
(1,10),RLSE),
// DCB=
(RECFM=FB,LRECL=133)
//SYSIN DD
*
SORT FIELDS=
(29,8,CH,A)
SUM
FIELDS=NONE
INCLUDE COND=
(2,1,CH,EQ,C'B',AND,
(113,1,CH,EQ,C'Y',OR,113,1,CH,EQ,C'N'))
/*
//SYSOUT DD
SYSOUT=*
/*
| Is This Answer Correct ? | 4 Yes | 5 No |
Post New Answer View All Answers
IF I mention stop run in CICS what happens?
Write a program to explain size error.
In which area will you utilize 88 level items in cobol?
What is cobol?
i want a program using by if, evaluate , string, unstring, perform, occurs?
What is a SSRANGE and NOSSRANGE?
2 input fles: 2 flat files, with different number of records. both are having unique key for each record and already sorted in ascending order . match these files using unique key and in output only matching key value has to be written. please procide cobol logic
How to get the last record in vsam file in cluster? And how can you get the ksds file records into your cobol program?
What are all the divisions of a COBOL program?
If you are current on the owner of a set, what is the difference between obtain next and obtain first?
What are the different open modes available in cobol?
Which Search verb is equivalent to PERFORM…VARYING?
What is the difference between binary search and sequential search?
Explain how you can characterize tables in cobol?
what is the use of outrecord?