Answer / shagun chahal

It is a file which contains the messages of an application. For example all RPG/400 messages are stored in a file, all COBOL/400 messages are stored in a file.

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,

---

Is it necessary to define all formats ? Which are mandatory and which are Optional ?

1 Answers  

---

is it possible to do commitment control with out journaling?

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,

---

PGM QSH CMD('/QOpenSys/bin/sftp -b/home/test/myfile.txt serverUserID@server') ENDPGM In above example,what is content of myfile.txt ...Thanx

2 Answers  

---

Q.Hi All friends, I have one Question, I have three fields in display file SUP LOT, ISSUED to Prod and Line Grp. Field SUP LOT is mentioned in one field reference file WRSLT and key field as a key field LP.Fields ISSUED to PROD,Line GRP are mentioned in the another Field reference file WMDTF. So I want to read SUP LOT on the basis of key field LP from the first file WFSLTand then i want ot read another two fields ISSUED to DATE and LINE GRP from second file on the basis of SUP LOT, which i got from first file.Now i want to display these fields in the display file DSPWMMS. but Condition is that 'Supplier Lot,ISSUED to Prod and Line Grp will not be shown if their respective fields are blanks/Zero. Please Let me Know coding part of this senerio and what would be coding for display file to now shown fields if fields are blanks/zero. My mob. no. is 9836300345. Please reply me asap.

1 Answers   IBM,

---

What is Job description?

1 Answers  

---

how do you specify the number of records to roll in a subfile ?

2 Answers   IBM,

---

any one have give AS400 study material? pls pass it to gopalsai789@gmail.com

0 Answers   IBM,

---

maximum number of subfiles that can defined in a rpg program for one display file is?

1 Answers   IBM,

---

What is SDA used for?

7 Answers  

---

What are the different types of access paths maintained on the file?

1 Answers  

---