CHAIN:  PROC(PROG_NAME);

/* PROCEDURE IMPLEMENTS CHAINING TO PROGRAMS AS IN BASIC.  NO ARGUMENTS
   MAY BE PASSED.

   AUTHOR:  AL JAWORSKI
   DATE:    19 MAY 1982   */

DCL PROG_NAME CHAR(*) VARYING;
DCL CODE_LOC POINTER;
DCL EXE_CHECK CHAR(3);
DCL IMAGE FILE INPUT RECORD;

%INCLUDE VXLOADR;
%INCLUDE VXLNKCL;
%INCLUDE SCAN;
%INCLUDE TRIM;

ON UNDEFINEDFILE(IMAGE) CALL RESIGNAL();

EXE_CHECK=SCAN(PROG_NAME,2,'. ');

IF EXE_CHECK='EXE' THEN 
  CALL VXLOADR(CHAR(PROG_NAME),CODE_LOC);
ELSE
  CALL VXLOADR(TRIM(PROG_NAME)||'.EXE',CODE_LOC);

CALL VXLNKCL(CODE_LOC);

STOP;

END CHAIN;