! Program to update a member of a commected PD file. ! Form : RELEASE CHIMPY,GENERALY ! or RELEASE ECSC10.CY,GENERALY_CHIMPY %const %integer TRUE = 1, FALSE = 0 %external %routine %spec COPY (%string (255) PARM) %external %routine %spec NEWGEN (%string (255) PARM) %external %routine %spec VIEW (%string (255) PARM) %external %routine RELEASE (%string (255) FILE) %byte VIEWING %string (255) NF,SF,PD %unless FILE -> SF.(",").PD %start Print string ("RELEASE fails - format is RELEASE ECSC10.CHIMPY,GENERALY!") newline %stop %finish VIEWING = FALSE VIEWING = TRUE %if PD -> PD.("!") %unless PD -> PD.("_").NF %start NF = SF %if NF -> (".").NF %start; %finish %if NF -> ("_").NF %start; %finish %finish COPY (PD.",T#PD") COPY (SF.",T#PD_".NF) VIEW ("T#PD") %if VIEWING = TRUE NEW GEN ("T#PD,".PD) print string ("T#PD newgened to ".PD); newline %end %end %of %file