How do you define a sort file in JCL that runs the COBOL
program?
- 6 Answers
- 28043 Views
- Syntel, I also Faced
- E-Mail Answers
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
how do you reference the printer file formats from cobol programs
) How do u handle errors in BMS macro?
i was faced one question- i have value -00001234.56 Suppress the zeroes and the output should be -1234.56 But Not - 1234.56 spaces should not be available after suppressing the zeroes. logic in jcl and cobol?
What kind of error is trapped by on size error option?
What are the different data types in cobol?
What is the difference between PIC 9.99 and PIC9v99?
Write a program that uses move corresponding.
how do you reference the variable unblock file formats from cobol programs
if we have " ibm mainframe ",in that how to remove first and last leading space eg:"ibm mainframe" like that the answer we need
If you are current on the owner of a set, what is the difference between an obtain next and obtain first? Actually in which topic will we use dis???Plz explain it clearly
Can we redefine the field of x(200) to less than 200?
Write a cobol program making use of the redefine clause.
What is the difference between goback, stop run and exit program in cobol?
How arrays can be defined in COBOL?
A table has two indexes defined. Which one will be used by the SEARCH?
