|
midrange.com
I just wrote a CL program to do exactly that, but didn't even bother looking
for an API.
PGM PARM(&LIB)
DCLF FILE(DSPLNK)
DSPLNK OBJ('/home/' *TCAT &LIB *TCAT '/*') +
OUTPUT(*PRINT) OBJTYPE(*ALL) +
DETAIL(*BASIC) DSPOPT(*USER)
DLTF FILE(QTEMP/DSPLNK)
MONMSG MSGID(CPF0000)
CRTDUPOBJ OBJ(DSPLNK) FROMLIB(OSL1MQMODF) +
OBJTYPE(*FILE) TOLIB(QTEMP)
CPYSPLF FILE(QSYSPRT) TOFILE(QTEMP/DSPLNK) +
SPLNBR(*LAST)
READREC:
RCVF
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(DONE))
IF COND((&TYPEDL *EQ 'STMF') *AND +
((%SST(&NAMEDL 1 10) *EQ 'upload.now') +
*OR (%SST(&NAMEDL 1 10) *EQ +
'UPLOAD.NOW'))) THEN(GOTO CMDLBL(PROCESS))
GOTO CMDLBL(READREC)
PROCESS:
CALL PGM(CEFTPEDI3) PARM(&LIB)
DONE:
ENDPGM
-----Original Message-----
From: Rick Klopfer [mailto:rklopfer@daytonprogress.com]
Sent: Tuesday, June 11, 2002 12:03 PM
To: rpg400-l@midrange.com
Subject: API for IFS
--
I have been searching...but so far no luck...so its time to yell for help!
Is there an API that I can use to list entries in an IFS directory? If not,
any suggestions?!!?
Cheers!
Rick--
--
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2600.0" name=GENERATOR></HEAD>
<BODY style="MARGIN-TOP: 2px; FONT: 8pt MS Sans Serif; MARGIN-LEFT: 2px">
<DIV><FONT size=1>I have been searching...but so far no luck...so its time
to
yell for help!</FONT></DIV>
<DIV><FONT size=1></FONT> </DIV>
<DIV><FONT size=1>Is there an API that I can use to list entries in an IFS
directory? If not, any suggestions?!!?</FONT></DIV>
<DIV><FONT size=1></FONT> </DIV>
<DIV><FONT size=1>Cheers!</FONT></DIV>
<DIV><FONT size=1></FONT> </DIV>
<DIV><FONT size=1>Rick--</FONT></DIV></BODY></HTML>
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
