How can you submit a job from COBOL programs

induajayrose · New User Joined: 25 Jul 2005 Posts: 28 Location: Thrissur

frnds,
Pls give me answer of dese 2 questions.
1.How can you submit a job from COBOL programs?

2.For what purpose we are using level numbers 44 & 49?
Interviewer asked me whether dere is any other purpose than
declaring group variables.
Pls giv me areply immediately,since it is an urgent.

shivashunmugam Muthu · Posted: Thu Jul 28, 2005 3:50 pm

for your first Question

Write JCL cards to a dataset with
//xxxxxxx SYSOUT=(A,INTRDR) where 'A' is output class, and dataset should be opened for output in the program. Define a 80 byte record layout for the file.

shivashunmugam Muthu · Posted: Thu Jul 28, 2005 3:56 pm

For your Second Q

there are only 3 leve; numbers are special 66,77 & 88. level 01 has some specific significants. Rest we have 02 - 49 level numbers are available for use. So the intreviwer must have expected this

induajayrose · New User Joined: 25 Jul 2005 Posts: 28 Location: Thrissur

frnd,
Can u make ur first answer more elaborate.parameter INTRDR
is used here for what pupose?Can u give de coding if it is possible.

Prandip · Posted: Thu Jul 28, 2005 10:01 pm

This might help:

ibmmainframes.com/viewtopic.php?t=2948&highlight=intrdr

induajayrose · New User Joined: 25 Jul 2005 Posts: 28 Location: Thrissur

frnds,
Thank you for ur reply.
regards,
indu

jayaprakashr · New User Joined: 23 Jul 2005 Posts: 6 Location: bangalore

hi,

44 is using for declaring the variables as a group level or elementary level.

49 is using for to declare the null indicator & varchar.

jayaprakashr · New User Joined: 23 Jul 2005 Posts: 6 Location: bangalore

2.
JOB: //STEP1 EXEC PGM=MAINPGM
//DD1 DD DSN=JP.TEST,DISP=SHR
//JCLDD DD SYSOUT=(*,INTRDR)

PROGRAM:MAINPGM
SELECT JCLFILE ASSIGN TO JCLDD
FD JCLFILE.
01 JCL-REC PIC X(80).
OPEN OUTPUT JCLFILE.
MOVE '//TESTJOB JOB 1111' TO JCL-REC.
MOVE '//STEP01 EXEC PGM=IEFBR14' TO JCL-REC.
CLOSE JCLFILE.