Answer / raviendra maurya

By using MSGCON (message constant) keyword.

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,

---

Q.How can more than two program be executed in batch mode through SBMJOB in CL PGM but the condition is that program must be executed one by one?Please wtite the senario? 2. IS it possibe more then two programs can be executed in batch mode and HOw it will be executed in CL program ,please write the senario?

6 Answers   IBM,

---

how will you add a field to physical file already containing data?

1 Answers   IBM,

---

What is an Array Data Structure?

1 Answers  

---

Hi i have one question In my srvpgm one module ADDM is there now i want to add new module i.e SUBM , please answer me IN STEPS how to write bndlanguage and how it was attach to SRVPGM

2 Answers   IBM, Satyam,

---

I have a display file with mandatory fields. Is there anyway that i can highlight those fields to bring attention to the user? The same behavior that AS400 makes when we attempt to execute a command without completing all the required parameters. Note: I have used DSPATR(HI) or DPSATR(RI) and they have different behaviors. Thanks.

2 Answers  

---

how can you detect and handle a record lock situation?

1 Answers   IBM,

---

what is the function of cpysplf command?

1 Answers   IBM,

---

what are the three types of keywords associated with printer file ?

1 Answers   IBM,

---

at what level s,o are defined and what they will do?

1 Answers   IBM,

---

How I can read and display three fields in the record format DSPFM1 of the display file,while one field(using in one file) is NAME which is Key field in field reference file and another two fields are AGE and ROLL NO are using another file. Please send me coding part.

2 Answers   IBM,

---

what is maximum number of arrays allowed in rpg?

1 Answers   IBM,

---