Interested to Buy Any Domain ? << Click Here >> for more details...
can u plz tell me is there any difference between SHELL
SCRIPT & SFTP SCRIPT?
I want to run LS & GET(automatically) command from CL
program....which script can be used?
- 1 Answers
- 5252 Views
- I also Faced
- E-Mail Answers
Answer Posted / syam
QShell command using on AS/400 for interactive job.
STRQSH is CL command
Ex.
CRTPF QTEMP/TESTFILE RCDLEN(50)
OVRDBF FILE(STDOUT) TOFILE(QTEMP/TESTFILE)
QSH CMD('echo Test Test Test')
DLTOVR FILE(STDOUT)
DSPPFM QTEMP/TESTFILE
ENDPGM
| Is This Answer Correct ? | 0 Yes | 0 No |
Post New Answer View All Answers
where can you specify an indicator in lokup operation?
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 full form for dds?
what is the purpose of dynslt keyword?
at what level s,o are defined and what they will do?
How to add 99 menu (page down) option in menu creation..
how to develop some simple graphs (bar charts) using just html?
how can you detect overflow for a print program that prints multiple lines per cycle?
what is the use of dspatr(mdt) keyword?
is their a difference in cobol400 for the release 5.2 and 6.1 at the as400.
define a shared access path?
when are the unique constraints executed?
how can you detect and handle a record lock situation?
what is the maximum number of fields under a record format of physical file?
What is program status data structure(psds) in as400?
