Source on IFS & Local Development

DATEADJ/DATEADJR.RPGLE

@@ -13,7 +13,7 @@ ctl-opt option(*nodebugio: *srcstmt)
   actgrp(*new)
   main(Main);
 ctl-opt BndDir('UTIL_BND');
-/COPY copy_mbrs,Srv_Msg_P
+/COPY ../Copy_Mbrs/SRV_MSG_P.RPGLE
 dcl-pr getSpecFmts extpgm('DATEADJC');
   jobfmt char(4);
   sysvalfmt char(3);

DATEADJ/ReadMe.md

@@ -4,7 +4,7 @@ Date arithmetic in CL programs is limited and lacks the simplicity and scope fou
 
 The DATEADJ command adds the functionality of RPG date handling to CL programs. 
 
-DATEADJ adds or subtracts days, months or years from a date and returns an adjusted date. Input and output dates can be in almost any format that RPG recognizes.
+DATEADJ adds or subtracts days, months or years from a date and returns an adjusted date. Input and output dates can be in almost any format that RPG recognizes. It can also be used to just change the format of a date by specifying an adjustment of 0.
 
 A prompted DATEADJ command looks like this:
 

DATEADJ/T1R.RPGLE

@@ -2,8 +2,8 @@
 ctl-opt DftActGrp(*NO) ActGrp(*new) option(*nodebugio: *srcstmt)
 main(Main);
 ctl-opt BndDir('UTIL_BND');
-/COPY copy_mbrs,Srv_Msg_P
-/COPY copy_mbrs,Prt_p
+/COPY ../Copy_Mbrs/SRV_MSG_P.RPGLE
+/COPY ../Copy_Mbrs/PRT_P.RPGLE
 
 dcl-proc Main;
 
@@ -48,7 +48,7 @@ dcl-proc Main;
   head.inType = 'Type';
   head.outDate = 'OutDate';
   head.outFmt = 'OutFmt';
-  PRT(head :'*HEAD') ;
+  PRT(head :'*H1') ;
 
   // === Test default stuff ====
   inType = '*DAYS';