Changeset 205 for trunk/tools

Timestamp:

Jan 2, 2021, 1:06:02 AM (5 years ago)

Author:

David Azarewicz

Message:

Fixed ADD RM id.

File:

• trunk/tools/AddToFile.cmd (modified) (3 diffs)

trunk/tools/AddToFile.cmd

@@ -55 +55 @@
   rc=LineOut(MyFile, '--- AddToFile.cmd '||MyCmd);
   call 'AddToFile.cmd' MyCmd;
-  MyCmd=MyFile||',#define DVMAJ,VERSIONMAJOR,1.2.3';
-  rc=LineOut(MyFile, '--- AddToFile.cmd '||MyCmd);
-  call 'AddToFile.cmd' MyCmd;
-  MyCmd=MyFile||',#define DVMIN,VERSIONMINOR,1.2.3';
-  rc=LineOut(MyFile, '--- AddToFile.cmd '||MyCmd);
-  call 'AddToFile.cmd' MyCmd;
-  MyCmd=MyFile||',#define DVREV,VERSIONREVISION,1.2.3';
+  MyCmd=MyFile||',#define DVMAJ,VERSIONMAJOR,1.02.03';
+  rc=LineOut(MyFile, '--- AddToFile.cmd '||MyCmd);
+  call 'AddToFile.cmd' MyCmd;
+  MyCmd=MyFile||',#define DVMIN,VERSIONMINOR,1.02.03';
+  rc=LineOut(MyFile, '--- AddToFile.cmd '||MyCmd);
+  call 'AddToFile.cmd' MyCmd;
+  MyCmd=MyFile||',#define DVREV,VERSIONREVISION,1.02.03';
   rc=LineOut(MyFile, '--- AddToFile.cmd '||MyCmd);
   call 'AddToFile.cmd' MyCmd;
@@ -92 +92 @@
 
   when (LEFT(Function,8)='BLDLEVEL') then do
+    /*  option description,BLDLEVEL,Vendor,1.2.3,Description,Fixpack,Asd';
+     *  String            ,Function,Parm1 ,Parm2,Parm3      ,Parm4  ,Parm5
+     */
     Type=SUBSTR(Function,9,1);
 
@@ -111 +114 @@
     end
 
+    /*           Vendor     TextVersion        Date/Time/Host    ASD            Revision         Fixpack      Desc */
     NewStr='@#'||Parm1||':'||Parm2||'#@##1## '||ProjString||':'||Parm5||':::'||ProjVersion||'::'||Parm4||'@@'||Parm3;
     if (Type='2') then do