ALLInterview.com :: Home Page      
 Advertise your Business Here     
Browse  |   Placement Papers  |   Company  |   Code Snippets  |   Certifications  |   Visa Questions
Post Question  |   Post Answer  |   My Panel  |   Search  |   Articles  |   Topics  |   Errors
   Refer this Site  Refer This Site to Your Friends  Site Map  Contact Us      
   
 
 Categories >> Software >> MainFrame >> IBM AS400 >> IBM AS400 AllOther
Suggest New Category 
 


 

Question Asked @ Answers Views     Select
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. hsbc   0  15
Hello, I have created a CMD type object. In one of the fields in Display file , I would like to see All the Source files present by pass the name of Library. Tried using CHoice(Keyword) and Choicepgm on PARM , but doesn't seems to be working. Any help please.. blackrock   0  18
1)In a pf if we delete a record then how to insert a new record at the same place in that pf?? any logic or code? 2)A batch job is taking a lot of time to run,found that it is going into loop and wrapping up so how to skip that loop and process the job without changing the code? 3)In which scenario C D I R comes and C D G F comes in a job? 4)If a job came to error while processing a file how we can know at which record the error hit and how to skip that record and process other records without changing program code? jda   0  56
HOW CAN WE ENTIRE OBJECTS& IT'S TYPE IN PGM?    1  272
WHAT is STORED PROCEDURE CONCEPT IN AS400 WITH EXAMPLE?    0  179
Can anybody know difference between SNDUSRMSG AND SNDPGMMSG IN CL PROGRAMMING? IF DON'T KNOW MAIL ME @ gkarthik.as400@gmail.com    1  339
I have SQLRPGLE program in which there are some update statements which executed correctly. there were no errors run time. Once the program gets over, the file was not updated with the new values. What might be the reason?    2  425
how to write code for singlepage in sqlrpgle with update ?    0  222
load all subfile logic in sqlrpgle and when updating particular record it must be lock form other jobs (not a file)? wipro   0  187
hi guys i am new for sqlrpgle, please suggest me good websites and theory and coding. plz plz its very urgent.    0  162
For AS/400 Freshers good website is hp   2  689
can we retrieve dspf source?    1  402
how to see the error messages for each command in cl? cgi   2  549
when this error ocuurs in openqry file 'OPNID(BANKPF) for file BANKPF already exists.'? itc-infotech   2  587
How to increase 3 days from my current date in RPG Program? mind-tree   3  1295
E-Mail New Answers        Answer Selected Questions        Post New ibm-as400-allother Questions
 [1]   2   3   4   5   6   7   8   9   10   11   12   13   14    Next
 
 
 
 
 
Un-Answered Questions
 
 Question Views   Select
 
WHAT IS AS/400 SYNORIO? 647
how to write code for singlepage in sqlrpgle with update ? 222
How do I remove a flag or check no. or name when a user opens too many sessions? 368
Write a logic program for knowing the repeated number of a vowels in a given program? 800
How to create an Access path in Synon/2E ? 1116
hi guys i am new for sqlrpgle, please suggest me good websites and theory and coding. plz plz its very urgent. 162
is their a difference in cobol400 for the release 5.2 and 6.1 at the as400. 371
. How to know why the OPM job is in MSGWAIT state?..WHAT COULD BE THE REASON FOR it? 1115
How to add 99 menu (page down) option in menu creation.. 462
can anybody give the interview questions list of RLU. plz mail me: dinesh_sati07@yahoo.com 354
In AS/400 projects in Companies whats the meaning of production support team.what production support involves.also what work does development,maintenance involve what are the other teams or processes that are available for as400 project. 1699
WHICH REPLY CODE IS USED BT sftp ? ... (e.g.226 is used by FTP IF FILE IS TRANSFERED) 242
can we use ASCII ,CDUP,SENDPASV commands in SFTP? 549
Service Program : S1 Modules in S1 : M1 M1 having two procedures : ADD, SUB Current Binder Language STRPGMEXP PGMLVL(*CURRENT) EXPORT SYMBOL("ADD") EXPORT SYMBOL("SUB") ENDPGMEXP Doubt: I need to add one new Module to the Service Program M2 having one procedure ‘MULT’ How to add this new module to the service program S1 ? If I need to recreate the service program again, Do I need to mention the Module M1 again while recreating along with new Module M2? There is no Binding Directory. Binder language structure will be like this STRPGMEXP PGMLVL(*CURRENT) EXPORT SYMBOL("ADD") EXPORT SYMBOL("SUB") EXPORT SYMBOL("MULT") ENDPGMEXP STRPGMEXP PGMLVL(*PREVIOUS) EXPORT SYMBOL("ADD") EXPORT SYMBOL("SUB") ENDPGMEXP 320
what is meant by object lock requests,held locks and locks waiting to be applied(wrkobjlck) why should we apply for locks.Please explain sir. 954
E-Mail New Answers        Answer Selected Questions