Go to:  Davar site entry | Site contents | Site index | Mainframe | ISPF | Text bottom

COBOL  Compile  and  Link-Edit  Command
 
CCL command is used to compile and Link-Edit a COBOL program.  Normally this task is handled by a Change Control system, but the overhead of such system tends to be rather annoying on the early stage of program development when it is necessary to put things together and to get a clean compile.  In such situation the CCL command might be quite usefull though it's JCL skeleton requires some analysis of a compile JCL generated by a Change Control system (or corresponding installation cataloged procedure). 
CCL command tailors the CCL job skeleton according to parameters specified and sets both short and long (available upon hitting [F1]) messages for user information.
CCL command is self-documented; entry of 'CCL ?' will result in display of the following help window:


  Usage :   CCL command is used to Compile and Link-Edit COBOL program
  Format:   CCL <source>,G(<group>),S,R,C,M,X  (all parms except 1-st are opt)
  <source> - Source/Load partition name or Help display request (/,?,H)
  G(PGMR)  - Source library group            M  - COBOL MVS (Deflt:  COBOL II)
  S        - Precompile SQL and exec BIND    X  - Compile COBOL with XPediter  
  C        - Precompile CICS command level   R  - Execute GRANT after BIND

  Notes:
CCL command is a CList which should be placed in a library specified in a TSO SYSPROC concatenation (use 'TSO ISRDDN' command to see your current data set allocations).
In no way CCL command can replace a Change Control system, it is designed exclusively for early stages of development.


  /* CCL  COBOL Compile and Link-Edit               07/10/1993–09/24/1997
  /* --------------------------------------------------------------------
  /* Copyright (C) 1993–1997 by Vladimir Veytsel

     PROC 1 SOURCE,   /* Source/Load partition name or Help request    */+
                      /* 'CCL ?' or 'CCL /' or 'CCL H' - display Help  */+
            G(PGMR),  /* Source library group                          */+
            S,        /* Precompile SQL and exec BIND after compile    */+
            R,        /* Execute GRANT after BIND                      */+
            C,        /* Precompile CICS command level                 */+
            M,        /* Compile COBOL for MVS (Default:  COBOL II)     */+
            X         /* Compile COBOL with XPediter                   */

     CONTROL NOCAPS
  /* CONTROL SYMLIST,CONLIST,LIST,MSG

     IF ((&STR(&SOURCE)=&STR(/))| +
         (&STR(&SOURCE)=&STR(?))| +
         (&STR(&SOURCE)=&STR(h))| +
         (&STR(&SOURCE)=&STR(H))) +
        THEN DO
                SET ZEDLMSG= +
                       &STR(Usage :   CCL command is used to Compile and +
                            Link-Edit a COBOL program       +
                            Format:   CCL ,G(),S,R,C,M,X  +
                            (all parms except 1-st are opt) +
                             - Source/Load partition name +
                            or Help display request (/,?,H)   +
                            G(PGMR)  - Source library group            +
                            M  - COBOL MVS (Deflt:  COBOL II)        +
                            S        - Precompile SQL and exec BIND    +
                            X  - Compile COBOL with XPediter   +
                            C        - Precompile CICS command level   +
                            R  - Execute GRANT after BIND)
                ISPEXEC SETMSG MSG(ISRZ000)  /* Alarm OFF              */
                EXIT
             END

     ISPEXEC FTOPEN TEMP
     ISPEXEC FTINCL CCL
     ISPEXEC FTCLOSE
     ISPEXEC VGET ZTEMPF
     SUBMIT '&ZTEMPF'

                       SET T1=&STR(II)
     IF (&M=M) THEN    SET T1=&STR(for MVS)

                       SET T2=&STR(compile)
     IF (&X=X) THEN DO
                       SET T2=&STR(comp XP)
                       SET T3=&STR( with XPediter)
                    END

     SET ZEDSMSG=&STR(-- &SOURCE &STR(&T2) subm)
     SET ZEDLMSG=&STR(------ &SOURCE program COBOL &STR(&T1) +
                             compile&STR(&T3) submitted)
     ISPEXEC SETMSG MSG(ISRZ000)
  

View [and save] CCL.LST text (use Back button to return here)
Go to:  Davar site entry | Site contents | Site index | Mainframe | ISPF | Text top