TSTRPGLE.rpgle

**free                                                                                             
                                                                                                   
// *Mod: CRTRPGMOD MODULE(HMFLMI/TSTRPGLE) SRCFILE(HMFLMI/QRPGLESRC) DBGVIEW(*SOURCE)             
// *Svc: CRTPGM PGM(HMFLMI/TSTRPGLE) BNDSRVPGM(TSTSRV) ACTGRP(*NEW)                               
                                                                                                   
ctl-opt bnddir('TSTBD');                                                                           
// *Mod: CRTRPGMOD MODULE(HMFLMI/TSTRPGLE) SRCFILE(HMFLMI/QRPGLESRC) DBGVIEW(*SOURCE)             
// *Svc: CRTPGM PGM(HMFLMI/TSTRPGLE) ACTGRP(*NEW)                                                 
                                                                                                   
/COPY HMFLMI/QCOPYSRC,TSTCOPY                                                                     
                                                                                                   
dcl-Ds dsDate likeDs(prDate);                                                                     
                                                                                                   
dcl-s isoDate date;                                                                               
                                                                                                   
dsDate.cc = '20';                                                                                 
dsDate.yy = '17';                                                                                 
dsDate.mm = '06';                                                                                 
dsDate.dd = '1' ;                                                                                 
                                                                                                   
isoDate = four_columns_to_iso( dsDate.CC                                                           
                             : dsDate.YY                                                           
                             : dsDate.MM                                                           
                             : dsDate.DD                                                           
                             );                                                                   
isoDate = isoDate - %days(9);                                                                     
dsDate  = iso_to_four_columns( isoDate );                                                         
                                                                                                   
*inlr = *on;                                                                                       
return;