FALSE

Page Nav

HIDE

Grid

GRID_STYLE

IGYWCL Procedure in COBOL Utility

000010 //IGYWCL PROC  LNGPRFX='IGY',SYSLBLK=3200,  000020 //             LIBPRFX='CEE',  000030 //             PGMLIB=...

000010 //IGYWCL PROC  LNGPRFX='IGY',SYSLBLK=3200,
 000020 //             LIBPRFX='CEE',
 000030 //             PGMLIB='&&GOSET',GOPGM=GO
 000040 //*
 000050 //*********************************************************************
 000060 //*                                                                   *
 000070 //*  Enterprise COBOL for z/OS                                        *
 000080 //*               Version 3 Release 4 Modificat                       *
 000090 //*                                                                   *
 000100 //*  LICENSED MATERIALS - PROPERTY OF IBM.                            *
 000110 //*                                                                   *
 000120 //*  5655-G53 5648-A25 (C) COPYRIGHT IBM CORP. 1991, 2005             *
 000130 //*  ALL RIGHTS RESERVED                                              *
 000140 //*                                                                   *
 000150 //*  US GOVERNMENT USERS RESTRICTED RIGHTS - USE,                     *
 000160 //*  DUPLICATION OR DISCLOSURE RESTRICTED BY GSA                      *
 000170 //*  ADP SCHEDULE CONTRACT WITH IBM CORP.                             *
 000180 //*                                                                   *
 000190 //*********************************************************************
 000200 //*
 000210 //*  COMPILE AND LINK EDIT A COBOL PROGRAM
 000220 //*
 000230 //*  PARAMETER  DEFAULT VALUE    USAGE
 000240 //*   LNGPRFX   IGY.V3R4M0       PREFIX FOR LANGUAGE DATA SET NAMES
 000250 //*   SYSLBLK   3200             BLOCKSIZE FOR OBJECT DATA SET

000260 //*   LIBPRFX   CEE              PREFIX FOR LIBRARY DATA SET NAMES
 000270 //*   PGMLIB    &&GOSET          DATA SET NAME FOR LOAD MODULE
 000280 //*   GOPGM     GO               MEMBER NAME FOR LOAD MODULE
 000290 //*
 000300 //*  CALLER MUST SUPPLY //COBOL.SYSIN DD ...
 000310 //*
 000320 //*  CALLER MUST ALSO SUPPLY //COBOL.SYSLIB DD ... for COPY statements
 000330 //*
 000340 //COBOL  EXEC PGM=IGYCRCTL,REGION=2048K
 000350 //STEPLIB  DD  DSNAME=&LNGPRFX..SIGYCOMP,
 000360 //             DISP=SHR
 000370 //SYSPRINT DD  SYSOUT=*
 000380 //SYSLIN   DD  DSNAME=&&LOADSET,UNIT=SYSALLDA,
 000390 //             DISP=(MOD,PASS),SPACE=(TRK,(3,3)),
 000400 //             DCB=(BLKSIZE=&SYSLBLK)
 000410 //SYSUT1   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))
 000420 //SYSUT2   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))
 000430 //SYSUT3   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))
 000440 //SYSUT4   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))
 000450 //SYSUT5   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))
 000460 //SYSUT6   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))
 000470 //SYSUT7   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))
 000480 //LKED   EXEC PGM=HEWL,COND=(8,LT,COBOL),REGION=1024K
 000490 //SYSLIB   DD  DSNAME=&LIBPRFX..SCEELKED,
 000500 //             DISP=SHR
 000510 //SYSPRINT DD  SYSOUT=*

000520 //SYSLIN   DD  DSNAME=&&LOADSET,DISP=(OLD,DELETE)
 000530 //         DD  DDNAME=SYSIN
 000540 //SYSLMOD  DD  DSNAME=&PGMLIB(&GOPGM),
 000550 //             SPACE=(TRK,(10,10,1)),
 000570 //             UNIT=SYSALLDA,DISP=(MOD,PASS)
 000580 //SYSUT1   DD  UNIT=SYSALLDA,SPACE=(TRK,(10,10))

No comments