Changeset 602 for GPL/trunk/tools

Timestamp:

Jun 25, 2017, 9:57:12 PM (8 years ago)

Author:

David Azarewicz

Message:

Changed behavior of /A paramater.

File:

• GPL/trunk/tools/AddToFile.cmd (modified) (2 diffs)

GPL/trunk/tools/AddToFile.cmd

@@ -92 +92 @@
     /* get fixpack from SVN version */
     if (Parm4='SVN') then Parm4='SVN'||SvnVersion();
+    if (Parm2='DATE') then Parm2=SUBSTR(DATE('S'), 1, 4)||'.'||SUBSTR(DATE('S'), 5, 2)||'.'||SUBSTR(DATE('S'), 7, 2);
 
     parse var Parm2 major'.'minor'.'ProjVersion;
@@ -134 +135 @@
   when (Function='DATEDAY') then do
     NewStr=FORMAT(SUBSTR(DATE('S'), 7, 2));
+    RepLoc=Pos('%A', String);
+    if (RepLoc>0) then OutStr=Substr(String,1,RepLoc-1)||NewStr||Substr(String,RepLoc+2);
+    else OutStr=String||' '||NewStr;
+    rc=lineout(OutFile, OutStr);
+    rc=lineout(OutFile);
+  end
+
+  when (Function='DATE1') then do
+    parse value Date('N') with MyDay MyMonth MyYear;
+    NewStr=MyYear||'-'||MyMonth||'-'||Right(MyDay, 2, 0);
     RepLoc=Pos('%A', String);
     if (RepLoc>0) then OutStr=Substr(String,1,RepLoc-1)||NewStr||Substr(String,RepLoc+2);