*COMDECK  CIOCCL
          TITLE  CIOCCL - COMMON INPUT/OUTPUT SUBROUTINES 
**        IOCCL  -  INPUT AND OUTPUT ROUTINES FOR CCL 
* 
*         IOCCL CONSISTS OF ROUTINES THAT REQUIRE SYSTEM DEPENDENT
*         MACRO USAGE - USED BY THE CCL PRODUCT TO PRODUCE CONSISTENT 
*         RESULTS REGARDLESS OF THE SYSTEM BEING USED.
*         THE ROUTINES HAVE NOT BEEN DESIGNED AS GENERAL INPUT/OUTPUT 
*         ROUTINES FOR THE SYSTEMS INVOLVED (SCOPE2, NOS OR NOS/BE).
* 
*         ROUTINES  - 
* 
*         IOATT  -  ATTACH FILE (GET ON NOS)
*         IOCSA  -  CONTROL STATEMENT FILE ACCESS (ACCSF) 
*         IOCSE  -  CONTROL STATEMENT FILE ENTER  (ENCSF) 
*         IOEOP  -  WRITE END OF PARTITION/FILE 
*         IOEOR  -  WRITE END OF RECORD/SECTION 
*         IOFET  -  RESET FET NAME OR POINTERS
*         IOFIL  -  CALL FILINFO PROCESSOR
*         IOJCG  -  GET JOB CONTROL INFORMATION (GETJCI)
*         IOJCS  -  SET JOB CONTROL INFORMATION (SETJCI)
*         IOLIB  -  SEARCH LIBRARY FOR PROCEDURE (LOADD)
*         IOPOS  -  RETURN FILE POSITION
*         IORDL  -  READ LINE 
*         IOREW  -  REWIND FILE 
*         IORTN  -  RETURN FILE 
*         IOSKP  -  SKIP END OF SECTIONS
*         IOSTS  -  OBTAIN END OF DATA STATUS FOR FILE
*         IOWTL  -  WRITE LINES 
* 
*         A SPECIFIC ROUTINE IN IOCCL IS CALLED BY THE CCL PROCESSOR
*         WHEN IT IS NECESSARY TO PERFORM THE FUNCTION REQUIRED.  CODE
*         IS ASSEMBLED CONDITIONALLY DEPENDING UPON THE SYSTEM BEING
*         USED (SCOPE2, NOS, OR NOS/BE).
* 
*         SEE SPECIFIC ROUTINE FOR INPUT/OUTPUT INFORMATION 
* 
  
          B1=1
          LIST   -F,-X       DO NOT LIST NOS AND NOS/BE COMMON DECKS
 OSNOSBE  IFNE   HOST,SC2 
          TITLE  COMCXXX - COMMON DECKS FOR NOS AND NOS/BE
  
*CALL     COMCRDC 
*CALL     COMCRDW 
*CALL     COMCWTC 
*CALL     COMCWTW 
 OSNOSBE  ENDIF 
          LIST   *
