Interested to Buy Any Domain ? << Click Here >> for more details...
I have a cobol db2 program(PGM A) where other program (PGM
B) will call this program and passes some 50 fields data to
PGM A. PGM A has some layout in which it receives the data
from PGM B. And this layout has been copied in the linkage
section pf PGM A. After getting the data, PGM A writes the
data in a flat file in the same layout which it receives
from PGM B. PGM B is a simple COBOL pgm. Please provide a
JCL to run these programs.
- 0 Answers
- 2362 Views
- I also Faced
- E-Mail Answers
No Answer is Posted For this Question
Be the First to Post Answer
proc1,proc2,up to proc5 is there if i want to call proc1 and proc5how can u write the code
Explain about LMCLOSE�close a data set
Explain how can a jobs execution priority be modified?
What is DISP= (NEW,PASS,DELETE)?
how can i use the parameters decalred in main pgm in sub pgm
How to print the Output to SPOOL using MSGCLASS and SYSOUT ?
Is their any set of rules for dd? Explain.
One dataset is creating in the step1 with LRECL of 133 and the same dataset is used in the next step in DISP=SHR mode, but while scanning the JCL the following error is thrwon. Please verify the below JCL $/SEPP030.PROVIDER DD DSN=Z1225BT.F5750PG9.F5910PRV.QC#A6868 //ERRORRPT DD DSN=F5910&ST&IN..F5910EPP.ERRORRPT.P&CYCDATE, --ERRORRPT DD DSN=F5910PG.F5910EPP.ERRORRPT.P, // DISP=&DISNCD,UNIT=&DELQ, -- DISP= (NEW,CATLG,DELETE),UNIT=DELQ, // SPACE=(TRK, (30,15),RLSE), // DCB=&DCB2 -- DCB= (PPG.METMODEL,BLKSIZE=0,LRECL=133,RECFM=FB) $/SEPP030.ERRORRPT DD DSN=Z1225BT.F5910EPP.ERRORRPT.AOUTPUT //SEPP040 EXEC PGM=FILEAID,COND= (0002,EQ,SEPP030) //SYSPRINT DD SYSOUT=* //SYSLIST DD SYSOUT=* //DD01 DD DSN=SYSCMN.PROD.CCLIB (F5910EP1),DISP=SHR $/SEPP040.DD01 DD DSN=Z1225BT.TEST.CCLIB (F5910EP1) E1 - DSS20791E - DATA SET 'Z1225BT.F5910EPP.ERRORRPT.AOUTPUT' HAS AN LRECL OF 133 COULD NOT BE OPENED BECAUSE THE CODED LRECL WAS 80. // DD DSN=F5910&ST&IN..F5910EPP.ERRORRPT.P&CYCDATE, -- DD DSN=F5910PG.F5910EPP.ERRORRPT.P, // DISP=SHR $/ DD DSN=Z1225BT.F5910EPP.ERRORRPT.AOUTPUT please find the error code in the above mentioned lines and please suggest me about the error and the solution for that.
I have mainpgm(abc) this is the only cobol pgm(non-db2).And this pgm calling subpgm name "acd" this also only cobol(non- Db)and this pgm calling some other subpgm this pgm has cobol-db2 pgm. 1) IF you calling static mode how to run and how to compile? 2) IF you calling dynamic mode how to run and how to compile? plz suggestion me.
how to solve u4038 abbend?........
what is force complete
What does the statements: typrun=scan and typrun=hold do in a JCL statement
COBOL 
