FTN4,L
C 
C 
C 
C 
C 
C 
CC************************************************************
C (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  ALL RIGHTS    *
C RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *
C PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH-  *
C OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.  *
CC************************************************************
C 
C 
C 
C      NAME: GCHK 
C      SOURCE: 92840 - 18160
C      RELOC:  92840 - 16021
C 
C 
C 
CC*********************************************************** 
      SUBROUTINE GCHK(IGCB,ISUSP) 
     +,92840-16021 REV.2013 790904
C***************************************************************
C GCHK CALL GCBIM TO VERIFY THAT THE GCB PASSED IN IS A VALID ONE,
C AND THEN RETURNS THE ISUSP VALUE BACK TO THE CALLER.
C ISUSP .EQ. 0 IMPLIES TO CONTINUE
C ISUSP .NE. 0 IMPLIES THE GCB IS SUSPENDED.
C**************************************************************** 
      INTEGER IGCB(1),ISUSP 
C************************************************************** 
C CALL GCBIM TO CHECK THE GCB, THEN STORE THE GCB ADDRESS INTO
C ITS OWN INTERNAL MEMORY LOCATION. 
C 
      ISUSP=0 
      CALL GCBIM(99,1,IGCB,ISUSP) 
      RETURN
      END 
    