RE: How to display data of an IFS file using rpgle program

I created this CL for that purpose:

PGM PARM(&PATH)
DCL VAR(&PATH) TYPE(*CHAR) LEN(32)

CD DIR(&PATH)
DLTF FILE(QTEMP/IFSFILELST)
MONMSG MSGID(CPF2105)
OVRDBF FILE(STDOUT) TOFILE(QTEMP/IFSFILELST) +
OVRSCOPE(*CALLLVL)
QSH CMD('ls -l *.*')
DLTOVR FILE(STDOUT) LVL(*)

/*call the program that uses a SFL to display content of file IFSFILELST */
CALL PGM(PGMWithDSP) PARM(&PATH)

DLTF FILE(QTEMP/IFSFILELST)
MONMSG MSGID(CPF2105)
endpgm


Juan Concepcion


-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Jose Perez
Sent: Monday, December 2, 2019 1:41 PM
To: RPG programming on the IBM i (AS/400 and iSeries) <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: How to display data of an IFS file using rpgle program

WARNING: EXTERNAL EMAIL. Do NOT CLICK on links or open attachments unless you are expecting it or have verified with the sender.


This link Worksofbarry.com/ghpost.html?12 Can help you.


On Mon, Dec 2, 2019, 1:10 PM John Rusling via RPG400-L < rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:

DSPF STMF('/myfolder/myfile.txt')

Try this.

John


<snip>
Hi All,

This is regarding a program I am writing where in I am using RPGLE
program to interact with IFS files.

I want to give users a way to see data received in IFS files from my
5250 display screen, when he selects "SHOW DATA" option.


Its already working if I implement WRKLNK command in rpgle program.
However the problem is WRKLNK is it takes you to the directory level
first then one has to select OPT 5 = DISPLAY to see the data of IFS file.

Here I am looking for a way so that I can directly display the data
screen of IFS file instead of WRKLNK directory screen.

Any thoughts suggestion will be much appreciated.


Thank you in advance !

Regards,
Kuldeep.
</snip>
<br />
The information in this email is confidential and may be legally
privileged.
It is intended solely for the addressee. Access to this email by
anyone else is unauthorized. If you are not the intended recipient,
any disclosure, copying, distribution or any action taken or omitted
to be taken in reliance on it, is prohibited and may be unlawful.
--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a
message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com

--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com