*DECK GETCN 
          IDENT  GETCN
*CALL COPYRITE
          ENTRY  GETCN
          SYSCOM B1 
          TITLE  GETCN - DETERMINE CHARGE AND PROJECT NUMBER. 
          COMMENT  GETCN - DETERMINE CHARGE AND PROJECT NUMBER. 
          SPACE  4,10 
***       GETCN - DETERMINE CHARGE AND PROJECT NUMBER.
* 
*         ENTRY - REPLY, AN ARRAY THAT CONTAINS THE REPLY BLOCK.
* 
*         GETCN (REPLY);  *SYMPL* CALL. 
* 
  
  
 GETCN    SUBR               ENTRY/EXIT 
          SB1    1
          GETCN  X1 
          EQ     GETCNX      RETURN 
  
          END 
