[Tool <local>:RMSMAKE]
ObjectType=File
MenuName=RMSMAKE
Executor=tacl
UseExisting=True
StartUp=
Script=#SET #INFORMAT TACL\nVOLUME {#parent}\n== This macro relies on an edit file called "MYRMMAKE" existing in the same\n== subvol as the source file. Each line in the "MYRMMAKE" file corresponds to\n== a file extracted from RMS that may be included in place of the RMS component\n== in the RMSMAKE. The source file being compiled MUST be in the list.\n==\n== Each line should have format:\n==      <RMS define name> <volume qualified local file name>\n== Example\n==     =RMS_COMP000000549 $DATA.ANDY.GB101TAL\n\n#FRAME\n#PUSH defines defines2 vol subvol name found file file2 deffile src define rmsloc rmsmon out comp_id target\n#PUSH #INLINEECHO obj\n\n#SET deffile MYRMMAKE\n#SET src {#id}\n#SET obj {#id-1}o\n#SET rmsloc $DATA.PCCORE\n#SET rmsmon $RMP\n\n\nFILETOVAR [deffile] defines  == Contains <RMS define> <local file name> for all extracted files\n\n#SETMANY vol subvol name,[#FILEINFO/VOLUME, SUBVOL, FILE/[src]]\n#SET file [vol].[subvol].[name]\n\n#SETV defines2 defines\n[#LOOP |WHILE| [#EMPTYV found] AND NOT [#EMPTYV defines2] |DO|\n    #SETMANY define file2,[#EXTRACT defines2]\n    [#IF [#COMPAREV file file2] |THEN|\n        #SET found 1\n        [#IF "[#CHARGET define 1 TO 9]" '=' "=RMS_COMP" |THEN|\n            #SET comp_id [#CHARGET define 10 TO [#CHARCOUNT define]]\n        |ELSE|\n            #SETV comp_id define\n        ]\n    ]\n]\n\n[#IF [#EMPTYV found] |THEN|\n    #OUTPUT [file] is not defined in [deffile], cannot RMSMAKE it !\n|ELSE|\n    [#IF NOT [#EMPTY [#INLINEPROCESS]] |THEN| #INLINEEOF]\n    #SET #INLINEPREFIX +\n    #SET #INLINEECHO 0\n    [rmsloc].RMSCOM/INLINE,OUTV out/[rmsmon]\n    + INFO COMP [comp_id],DETAIL\n    #SETMANY _ comp_id, [#LINEGET out [#LINEFIND out 1 FULL-NAME]]\n    #SET out\n    + LIST COMPILE FROM [comp_id]\n    SINK [#EXTRACT out]\n    #SETMANY _ _ _ target, [#EXTRACT out]\n    DELETE DEFINE =RMS_C*\n    [#LOOP |WHILE| NOT [#EMPTYV defines] |DO|\n        #SETMANY define file, [#EXTRACT defines]\n        ADD DEFINE [define],CLASS MAP, FILE [file]\n    ]\n    info define =*\n    [rmsloc].RMSMAKE/NAME/[rmsmon];[target] [vol].[subvol].[obj]\n]\n#UNFRAME
Refresh=0
ShowOutputAlways=True
ErrorCheck=0
ErrorString=
Multi=0
NoTimeout=False
NodeName=
SkipInitialOutput=False
WindowClose=0
Deleted=False
ObjectAccess=r,w,e,d,c,n
OSSTool=False
InputAllowed=False
Input=
ToolType=1