Example of an Epilog Procedure 

BEGIN
FILE OUT(KIND=DISK,MAXRECSIZE=14,AREASIZE=420,AREAS=5);
ARRAY A[0:13];
REAL I;
EPILOG PROCEDURE CLEANUP;
    BEGIN
    %IF I=100 THEN PROGRAM TERMINATED NORMALLY
    %IF I<100 THEN PROGRAM TERMINATED ABNORMALLY
    REPLACE POINTER(A) BY "LAST RECORD, I=",I FOR 3 DIGITS;
    WRITE(OUT),14,A);
    LOCK(OUT,CRUNCH);
    END CLEANUP;
    .
    .
    .
Prev  Up  Next
Restrictions on Epilog Procedures  Home  EVENT and EVENT ARRAY Declarations