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 the purpose of indicators in rpg?

1 Answers   IBM,

---

How to increase 3 days from my current date in RPG Program?

3 Answers   Mind Tree,

---

what is the maximum number of fields under a record format of physical file?

1 Answers   IBM,

---

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

2 Answers  

---

---

What is Job description?

1 Answers  

---

Good morning my experts.Im kuppi.im working as a software trainee on AS/400 technology.i have also joined with ibmi5 team.im trying to convert date with cl/400 coding.I have taken 2 parameters(like date and date types). A. If suppose date type is j,Now i want to convert date to *MDY format B. if date type is M,now i want to convert date to *JUL format C. sending a Program message with the value of converted date.

1 Answers  

---

how to see the error messages for each command in cl?

2 Answers   CGI,

---

what are the different types of arrays?

1 Answers   IBM,

---

how to validate input values in display file ?

0 Answers   IBM,

---

can you have multiple key lists for a single file ?

1 Answers   IBM,

---

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,

---