Quelle  utcoblnk.jcl   Sprache: JCL

//UTCOBLNK JOB SIMOTIME,ACCOUNT,CLASS=1,MSGCLASS=O,NOTIFY=CSIP1
//* *******************************************************************
//*                   This program is provided by:                    *
//*                    SimoTime Enterprises, LLC                      *
//*           (C) Copyright 1987-2005 All Rights Reserved             *
//*                                                                   *
//*             Web Site URL:   http://www.simotime.com               *
//*                   e-mail:   helpdesk@simotime.com                 *
//* *******************************************************************
//*
//* Subject: Compile and Link COBOL program, create a load member
//* Author:  SimoTime Enterprises
//* Date:    January 1,1998
//*
//         SET MEM=SIMODUMP
//*
//COBS1    EXEC COB2UC,
//             PARM='MAP,APOST,DYN,NOOPT,SZ(MAX),
//             NOTERM,DATA(31),LIB,SOURCE'
//SYSLIB   DD  DISP=SHR,DSN=SYS1.COB2LIB
//         DD  DISP=SHR,DSN=SIMOTIME.DEMO.COBCPY1
//SYSPRINT DD  SYSOUT=*
//SYSLIN   DD  DISP=SHR,DSN=SIMOTIME.DEMO.OBJECT(&MEM)
//SYSIN    DD  DISP=SHR,DSN=SIMOTIME.DEMO.COBOL(&MEM)
//*
//LKED     EXEC PGM=IEWL,REGION=2M,PARM=(XREF,LET,LIST,CALL),
//             COND=(8,LT)
//SYSLIB   DD  DISP=SHR,DSN=SYS1.COB2LIB
//         DD  DISP=SHR,DSN=SIMOTIME.DEMO.OBJECT
//SYSLIN   DD  DISP=SHR,DSN=SIMOTIME.DEMO.OBJECT(&MEM)
//SYSLMOD  DD  DISP=SHR,DSN=SIMOTIME.DEMO.LOADLIB1(&MEM)
//OBJECT   DD  DISP=SHR,DSN=SIMOTIME.DEMO.OBJECT
//SYSTERM  DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//*