ITshak:
Look at the file named QATMFTP in QUSRSYS.
It is a "flat file" with 100 bytes per "record" (one big field).
DSPPFM QUSRSYS/QATMFTP
shows:
Display Physical File Member
File . . . . . . : QATMFTP Library . . . . : QUSRSYS
Member . . . . . : CONFIG Record . . . . . : 1
Control . . . . . Column . . . . . : 1
Find . . . . . . .
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....
Y
5
300
*CCSID *CCSID
00819
L
C
D
0
QSYS/QSYSWRK
Y
V5R1M0
****** END OF DATA ******
Bottom
F3=Exit F12=Cancel F19=Left F20=Right F24=More keys
Each line of data corresponds "one-for-one" with what you see on this
screen (CFGTCP option 20, then 10):
Change FTP Attributes (CHGFTPA)
Type choices, press Enter.
Autostart servers . . . . . . . *YES *SAME, *YES, *NO
Number of initial servers . . . 5 1-20, *SAME, *DFT
Inactivity timeout . . . . . . . 300 0-2147483647, *SAME, *DFT
Coded character set identifier 00819 1-65533, *SAME, *DFT
Outgoing EBCDIC/ASCII table:
Outgoing EBCDIC/ASCII table . *CCSID Name, *SAME, *CCSID,
*DFT
Library . . . . . . . . . . Name, *LIBL, *CURLIB
Incoming ASCII/EBCDIC table:
Incoming ASCII/EBCDIC table . *CCSID Name, *SAME, *CCSID,
*DFT
Library . . . . . . . . . . Name, *LIBL, *CURLIB
Initial name format . . . . . . *LIB *SAME, *LIB, *PATH
Initial directory . . . . . . . *CURLIB *SAME, *CURLIB, *HOMEDIR
Initial list format . . . . . . *DFT *SAME, *DFT, *UNIX
New file CCSID . . . . . . . . . *CALC 1-65533, *SAME, *CALC...
Subsystem description . . . . . QSYSWRK Name, *SAME, *DFT
Library . . . . . . . . . . . QSYS Name
Allow secure sockets layer . . . *YES *SAME, *YES, *NO, *ONLY
Bottom
F3=Exit F4=Prompt F5=Refresh F12=Cancel F13=How to use this
display
F24=More keys
So, in CL, you can just do a DCLF QATMFTP and RCVF to read the records.
Hope that helps,
Mark S. Waterbury
> On 6/20/2017 10:37 AM, ITschak Mugzach wrote:
I would like to get ftp configuration into variale(s) of a cl program. Is
this possible? It look like all config is done interactively.
ITschak
midrange.com
