Answer / nitin trivedi

With the help of CHKOBJ clp command, we can find existence of object on the system.
The usage of command in clp is as follows:
CHKOBJ OBJ(JBA001DT) OBJTYPE(*DTAARA)
MONMSG MSGID(CPF9801) EXEC(DO)
CRTDTAARA DTAARA(QGPL/JBA001DT) TYPE(*CHAR) LEN(6) +
VALUE('010196') TEXT('The last day that had job acct.+ data extracted')
ENDDO
RTVDTAARA DTAARA(JBA001DT *ALL) RTNVAR (&FROMDATE)

The execution of above steps is listed below:

steps

1: First it checks the data area object on the system.

2: If the data area object not found, the MONMSG command executes with the help of message identifier, next we can dynamically create the data area.
3. If the data area object found, control transfers to statement below ENDDO.

It is always good CLP programming approach to check the object before you rename, delete the objects on the system.

How can we sort an array?

1 Answers  

---

I 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.

0 Answers   HSBC,

---

How do you read a subfile record which is in output mode?

3 Answers  

---

I had ruestion in one of the interview..... If 1 file has more than 1 member and i want to use the 2nd member in the RPG pgm (in RPG400),how can I use this.... I know the possible answers i.e. useing API 'QCMDEXE' or Before calling the pgm I can use OVRDBF for that member... but I dont' want to use both the tips in above scenarion. Does any body tell me how can i use this ....?

13 Answers   Mind Tree,

---

what are two types of record are used in subfile?

1 Answers   IBM,

---

How many PARM statement can we use in a CL program?

6 Answers  

---

I am working in session1 ans session2. In session1 3 jobs are running. In session2 2 jobs are running. How many LDA and temporary files will be created?

3 Answers  

---

Can anybody know what is Pick/Basic? Is it a programming language? can it be used in AS400 machine?

2 Answers  

---

hi guys i am new for sqlrpgle, please suggest me good websites and theory and coding. plz plz its very urgent.

0 Answers  

---

what are the important factors in error message subfile ?

0 Answers   IBM,

---

what is multijoin logical file? what are the keywords available in joinlogical file? what are the mandatary keywords for joinlogical file? explai the keywords?

2 Answers   HCL,

---

What is the difference between regular logical file and join logical file?

1 Answers  

---