Interested to Buy Any Domain ? << Click Here >> for more details...
how do you specify page overflow indicator for printer files in rpg?
- 1 Answers
- 2258 Views
- IBM, I also Faced
- E-Mail Answers
Answer Posted / darakshan sadat
Specify an indicator in position 33-34 of F specification.
| Is This Answer Correct ? | 0 Yes | 0 No |
Post New Answer View All Answers
which type of object is used in db2/400?
In 'o' Specs What Is The Opcode For Write?
how many maximum spaces could be given in o specs?
difference between view and index ?
What is diff between EVAL & MOVE?
can we define multi-dimensional arrays in rpg ?
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.
What is the draw back of Procedures? why we are going to Modules?
how to run other job when one job is active?
how many levels are there in a physical file?
what are the uses of factor1, factor2 and result field for the rpg operation code parm?
how you get the relative record in a subfile in which cursor is located?
What is the difference between non-join logical files and join logical files?
define the purpose of the *bcat function?
Why we are not able to perform insert delete and update operation in Join logical file?
