write a sorting prgm to sort 50 nos and sum them and also remove all the occurrences of 15 and print it?
What the differences are and best practical application of Object Repository?
what is the procedure for auto tune in masoneialn 12300 series displacer type transmitter?
Who is responsible for writing a constructor?
What is WP10 Arbitrary Cycles?
What is Controlling Area, What Does It Do, And How Were Is It Assigned ?
When to use Single, SingleOrDefault, First and FirstOrDefault?
How to restrict a flow to particular users?
SAP-HR why do v need T-Code 0014 and 0015? Can we not do the same in 0014? (I told that 0014 is for recurring payments and 0015 is for one time payment, so i was asked by setting the dates in 0014 we can make the same as one time payment so why do we need 0015)?
Why is sugar bad for teeth?
What will happen if the armature resistance is in minimum position and the field resistance is in maximum position while starting the motor
What is firmware? Why may I want to change it?
how to do daily transactions with out sql* loader control file regesterd in apps?
Is it possible to Access BackEnd procedures? Explain.
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.