Posts

readme.txt

========== ADDLIBLE LIB(HMFLMI) POSITION(*AFTER QTEMP) ========== w/o binding directory CRTRPGMOD MODULE(HMFLMI/TSTSRV) SRCFILE(HMFLMI/QRPGLESRC) CRTSRVPGM SRVPGM(HMFLMI/TSTSRV) EXPORT(*ALL) ACTGRP(TSTSRV) CRTRPGMOD MODULE(HMFLMI/TSTRPGLE) SRCFILE(HMFLMI/QRPGLESRC) DBGVIEW(*SOURCE) CRTPGM PGM(HMFLMI/TSTRPGLE) BNDSRVPGM(TSTSRV) ACTGRP(*NEW) ========== with binding directory CRTBNDDIR BNDDIR(HMFLMI/TSTBD) TEXT('Test Binding Directory') ADDBNDDIRE BNDDIR(HMFLMI/TSTBD) OBJ( (HMFLMI/TSTSRV *SRVPGM) (HMFLMI/TSTRPGLE *MODULE) ) WRKBNDDIR/E BNDDIR(HMFLMI/TSTBD) CRTRPGMOD MODULE(HMFLMI/TSTSRV) SRCFILE(HMFLMI/QRPGLESRC) CRTSRVPGM SRVPGM(HMFLMI/TSTSRV) EXPORT(*ALL) ACTGRP(TSTSRV) CRTRPGMOD MODULE(HMFLMI/TSTRPGLE) SRCFILE(HMFLMI/QRPGLESRC) DBGVIEW(*SOURCE) CRTPGM PGM(HMFLMI/TSTILE) MODULE(HMFLMI/TSTRPGLE) BNDDIR(HMFLMI/TSTBD) ACTGRP(TSTSRV) with inline ctl-opt bnddir('TSTBD'): CRTPGM PGM(HMFLMI/TSTILE) MODULE(HMFLMI/TSTRPGLE) ACTGRP(TSTSRV) ========== bin...
Post a Comment
Read more

TSTCOPY.rpgle

**free /if not defined(TSTCOPY) //     ------ dcl-Ds prDate template qualified;     CC char(2) ;     YY char(2) ;     MM char(2) ;     DD char(2) ; end-Ds prDate; //     ------------------- dcl-Pr four_columns_to_iso date;     *N char(2) CONST;     *N char(2) CONST;     *N char(2) CONST;     *N char(2) CONST; end-Pr four_columns_to_iso; //     ------------------- //     ------------------- dcl-Pr iso_to_four_columns likeDs(prDate);    *N date const; end-Pr iso_to_four_columns; //     ------------------- /define TSTCOPY /endif
Post a Comment
Read more

TSTRPGLE.rpgle

**free                                                                                                                                                                                                  // *Mod: CRTRPGMOD MODULE(HMFLMI/TSTRPGLE) SRCFILE(HMFLMI/QRPGLESRC) DBGVIEW(*SOURCE)              // *Svc: CRTPGM PGM(HMFLMI/TSTRPGLE) BNDSRVPGM(TSTSRV) ACTGRP(*NEW)                                ...
Post a Comment
Read more

TSTSRV.rpgle

**free                                                                                                                                                                                              // Crt mod: CRTRPGMOD MODULE(HMFLMI/TSTSRV) SRCFILE(HMFLMI/QRPGLESRC)                              // crt svc: CRTSRVPGM SRVPGM(HMFLMI/TSTSRV) EXPORT(*ALL) ACTGRP(TSTSRV)                      ...
Post a Comment
Read more