-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathNotes.CLLE
29 lines (21 loc) · 1.13 KB
/
Notes.CLLE
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Copying Source Files into the IFS - IBM
You can copy your main source physical file to an integrated file system (IFS) file :
Example :
CPYTOSTMF FROMMBR('/QSYS.LIB/S104120X.LIB/LNCLOSREBK.FILE/INI3102.MBR') TOSTMF('/home/S104120X/LNCLOSREBK/INI3102.rpgle')
CPYTOSTMF FROMMBR('/QSYS.LIB/S104120X.LIB/LNCLOSREBK.FILE/INI3102C.MBR')
TOSTMF('/home/S104120X/LNCLOSREBK/INI3102C.CLLE')
STMFCODPAG(*PCASCII)
You can copy your integrated file system (IFS) file to an main source physical file :
CPYFRMSTMF FROMSTMF('/home/S104120X/LNCLOSREBK/INI3102.RPGLE')
TOMBR('/qsys.lib/S104120X.lib/LNCLOSREBK.file/INI3102.MBR')
MBROPT(*REPLACE) STMFCODPAG(*PCASCII)
CPYFRMSTMF FROMSTMF('/home/S104120X/LNCLOSREBK/INI3102C.CLLE')
TOMBR('/qsys.lib/S104120X.lib/LNCLOSREBK.file/INI3102C.MBR')
MBROPT(*REPLACE) STMFCODPAG(*PCASCII)
CPYFRMSTMF FROMSTMF('/home/S104120X/LNCLOSREBK/INI3102A.RPGLE')
TOMBR('/qsys.lib/S104120X.lib/LNCLOSREBK.file/INI3102A.MBR')
MBROPT(*REPLACE) STMFCODPAG(*PCASCII)
// Misc Folder
CPYFRMSTMF FROMSTMF('/home/S104120X/CopyToIFS2.CLLE')
TOMBR('/qsys.lib/S104120X.lib/MISC.file/CopyToIFS2.MBR')
MBROPT(*REPLACE) STMFCODPAG(*PCASCII)