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
Whats the difference between search & search ALL?
i made it to stage 3 of an interview process wednessday they will quiz my knowledge again face to face for an analyst role recruiter said it will be based on Business requirements system is cobol and good ideas what they might ask etc
Which Search verb is equivalent to PERFORM…VARYING?
What is the default value(s) for an initialize? What keyword will allow for an override of the default?
I have one ps file in which there are 3 fileds emp_no,emp_name and leave_app.this ps file information give the detail of employee which is going to apply for leave.suppose emp_no=113430,emp_name=ajay,leave_app=1 that means he is going to apply for 1 day leave.and accordingling the table in db2 will be updated means if he has that no of leave in his account then he will get dat leave and updated acc. in table(leave_balance=previous leave present in table-leave_app).Now i want to check whther the updated result is correct or not by comparing the two ps file using IEBCOMPARE or icetool so what is going to be the two ps file and how its is going to be compare.
Differentiate cobol and cobol-ii. (Most of our programs are written in cobolii, so, it is good to know, how, this is different from cobol)?
Explain the configuration section of a cobol program with examples of syntax.
Is it possible that the redefines clause has different picture clauses compared to the one it redefined?
How do you differentiate between cobol and cobol-ii?
What is the difference between comp and comp-3 usage?
What are the rules of the move verb?
What is an in line perform? When would you use it? Anything else you wish to say about it.
I have a File that has duplicate records. I need only those records that occur more than thrice.?
how to refer the data field?
What is redefines clause in COBOL?