reminder again….😀

..::: cuplikan code supaya bisa pake CL command di RPGLE :::..

D*  ini bagian deklarasi dan inisialisasi
D CMDX            S            500    INZ(*blank) VARYING
D CMDLINE         PR                  Extpgm(‘QCMDEXC’)
D STRING                      1000    Const
D                                     Options(*Varsize)
D LEN                           15P 5 Const

C* ini bagian CL command yang dipanggilnya. exp : “RMVLNK”
/FREE
CMDX = ‘RMVLNK SFILNM’;
CALLP CMDLINE(CMDX:%LEN(CMDX));
/END-FREE
C*

*sory ga dirapihin… :p