! 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