How to find out the closest prime number of an input number? I believe it has something to do with SEARCH and COBOL Linear Array.
36881)In a pf if we delete a record then how to insert a new record at the same place in that pf?? any logic or code? 2)A batch job is taking a lot of time to run,found that it is going into loop and wrapping up so how to skip that loop and process the job without changing the code? 3)In which scenario C D I R comes and C D G F comes in a job? 4)If a job came to error while processing a file how we can know at which record the error hit and how to skip that record and process other records without changing program code?
JDA,
3041Hello, I have created a CMD type object. In one of the fields in Display file , I would like to see All the Source files present by pass the name of Library. Tried using CHoice(Keyword) and Choicepgm on PARM , but doesn't seems to be working. Any help please..
1759There is subprogram and which is used in more then 200 modules. when we made changes to subprogram is it required to RESTOW all the main programs? If YES means how i can restow all 200 main programs at a time.
HCL,
3 8957I have created a command that display Source file and library. Now i want that when i enter library name and press f4 on Source file, pgm should display all the PF- SRC's in that Library. For F4 option i have used Choice program but since only limited paramters are passed in Choice pgm i am not able to paas library name and further can't call a pgm that will display list of Source files. Below is the Code snippet for CMD type object :- CMD PROMPT('Source Scan for HUB Standard') PARM KWD(SOURCE) TYPE(*CHAR) LEN(1) RSTD(*YES) + VALUES(N A) MIN(1) + CHOICE('N,A') PARM KWD(SRCFILE) TYPE(FILE) RSTD(*NO) + PROMPT('SOURCE FILE') FILE: QUAL TYPE(*NAME) LEN(10) RSTD(*NO) EXPR (*YES) + CHOICE(*PGM) + CHOICEPGM (XXXXXLIB/YYYPGM) QUAL TYPE(*NAME) LEN(10) DFT(*LIBL) + SPCVAL((*LIBL)) EXPR(*YES) PROMPT ('Library') Below is the Choice pgm:- PGM PARM(&PARM1 &PARM2) DCL VAR(&PARM1) TYPE(*CHAR) LEN (21) DCL VAR(&PARM2) TYPE(*CHAR) LEN (2000) IF COND(%SST(&PARM1 1 10) = 'CHOICE ' *AND + %SST(&PARM1 11 10) = 'SRCFILE ' *AND + (%SST(&PARM1 21 1) = 'C' *OR %SST (&PARM1 + 21 1) = 'P')) THEN (DO) /* (%SST(&PARM1 21 1) = 'C' *OR %SST (&PARM1 + */ CHGVAR VAR(&PARM2) VALUE('Name, F4 for List') ENDDO IF COND(%SST(&PARM1 1 10) = 'CHOICE ' *AND + %SST(&PARM1 11 10) = 'SRCFILE ' *AND + %SST(&PARM1 21 1) = 'P') THEN (DO) CHGVAR VAR(&PARM2) VALUE('Name, F4 for List') CALL PGM(GTSQL) PARM ('XXXXLIB') return ENDDO Thanks in Advance for looking into.
HSBC,
3014Current version of GDG is ID.GDG.FILE.G0001V00. JCL has procedure with 2 steps like below, What will be the output file name in each step ? PROC starts Step 1 has ID.GDG.FILE(+1) Step2 has ID.GDG.FILE(+4) PEND Similarly, JCL has 2 steps in 2 separate procedure. What will be the output file names here ? PROC starts Step 1 has ID.GDG.FILE(+1) PEND PROC1 starts Step2 has ID.GDG.FILE(+4) PEND
FIS,
2 5990A STEP has more than 1 file as INPUT. And we have to put all these records int 1 output file. How to do ? //InputF DD DSN=ID.File1 DSN=ID.File2 DSN=ID.File3
FIS,
1 9114how to get the particular field's records in CL without using OVRDBF,OPNQRY? tell me the concept?
2 8307Why we us SYSTSIN DD with IKJEFT01 (TSO Utility) to execute a COBOL DB2 program? Why can't we use SYSIN DD?
TCS,
1 16033
What is the maximum number of columns in a db2 table?
where will control be passed after the execution of the *pssr subroutine if the factor2 of the endsr is blank ?
How dummy is used in jcl?
Can you define ppt and what are its uses?
Discuss about db2 bind?
Can records be accessed randomly in esds?
What is the function of commit in idms?
What is buffer pool and list some of them?
What are the bind parameters ibm db2?
What is the default page size of buffer pools?
What is bind in db2?
i want to store 20 digits . how will u do it in cobol ?
What is the use of jdftval in as400?
Write a logic program for knowing the repeated number of a vowels in a given program?
How to find the list of source physical files in a library?