Interested to Buy Any Domain ? << Click Here >> for more details...
how can we view the entire objects and its types in a pgm?
- 7 Answers
- 14322 Views
- Mind Tree, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / krishna prakash
by using this you can do the same DSPPGMREF
| Is This Answer Correct ? | 17 Yes | 0 No |
Answer / abhishek
Use command DSPPGMREF , to see all objects used by program
with their identifier as well .It will give a list of
objects which is being used by program.
| Is This Answer Correct ? | 5 Yes | 1 No |
Answer / jayapradhap
You cant use the command WRKOBJPDM in the CL program.
That command will not be allowed to use.
| Is This Answer Correct ? | 1 Yes | 2 No |
Answer / cran
WRKOBJPDM LIB(GDALE) OBJTYPE(*PGM)code
in cl program
complie it and call the program in command line this one of
the way
which i no
| Is This Answer Correct ? | 1 Yes | 4 No |
maximum number of subfiles that can be active for a single file is?
WHICH REPLY CODE IS USED BT sftp ? ... (e.g.226 is used by FTP IF FILE IS TRANSFERED)
Is it necessary to define all formats ? Which are mandatory and which are Optional ?
what does check opcode is used?
What is FCFO, FIFO, LIFO in Database environment ?
what is sflpag and sflsiz ?
For AS/400 Freshers good website is
Q. 1.What would be structure of CL PGM. 2. What are the levels of CL PGM. 3.How many files can be defined in new CLLE program?
What is the purpose of SFLFOLD and SFLDROP keywords?
what is the use of dspatr(mdt) 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.
How to create an Access path in Synon/2E ?
RPG400 
