Changeset 190 for trunk/tools

Timestamp:

Jul 17, 2017, 4:31:51 AM (8 years ago)

Author:

David Azarewicz

Message:

Added MSI support.

Location:

trunk/tools

Files:

• AddToFile.cmd (modified) (5 diffs)
• CreatePath.cmd (added)

trunk/tools/AddToFile.cmd

@@ -11 +11 @@
 call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
 call SysLoadFuncs
-parse arg OutFile','String','Function','Parm1','Parm2','Parm3','Parm4;
+parse arg OutFile','String','Function','Parm1','Parm2','Parm3','Parm4','Parm5;
 
 if (OutFile='') then do
@@ -33 +33 @@
   rc=LineOut(MyFile, '--- AddToFile.cmd '||MyCmd);
   call 'AddToFile.cmd' MyCmd;
-  MyCmd=MyFile||',option description,BLDLEVEL,Vendor,1.2.3,Description,Fixpack';
+  MyCmd=MyFile||',option description,BLDLEVEL,Vendor,1.2.3,Description,Fixpack,Asd';
   rc=LineOut(MyFile, '--- AddToFile.cmd '||MyCmd);
   call 'AddToFile.cmd' MyCmd;
@@ -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;
@@ -100 +101 @@
     end
 
-    NewStr='@#'||Parm1||':'||Parm2||'#@##1## '||ProjString||'::::'||ProjVersion||'::'||Parm4||'@@'||Parm3;
+    NewStr='@#'||Parm1||':'||Parm2||'#@##1## '||ProjString||':'||Parm5||':::'||ProjVersion||'::'||Parm4||'@@'||Parm3;
     if (Type='2') then do
       /*OutStr=String||' "@#'||Parm1||':'||Parm2||'#@##1## '||ProjString||'::::'||ProjVersion||'::'||Parm4||'@@'||Parm3||'"';*/
@@ -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);