FALSE

Page Nav

HIDE

Grid

GRID_STYLE

IGYWCLG Procedure in COBOL Utility

000010 //IGYWCLG PROC LNGPRFX='IGY',SYSLBLK=3200,  000020 //             LIBPRFX='CEE',GOPGM=GO  000030 //*  000040 //***...

000010 //IGYWCLG PROC LNGPRFX='IGY',SYSLBLK=3200,
 000020 //             LIBPRFX='CEE',GOPGM=GO
 000030 //*
 000040 //*********************************************************************
 000050 //*                                                                   *
 000060 //*  Enterprise COBOL for z/OS                                        *
 000070 //*               Version 3 Release 4 Modification 0                  *
 000080 //*                                                                   *
 000090 //*  LICENSED MATERIALS - PROPERTY OF IBM.                            *
 000100 //*                                                                   *
 000110 //*  5655-G53 5648-A25 (C) COPYRIGHT IBM CORP. 1991, 2005             *
 000120 //*  ALL RIGHTS RESERVED                                              *
 000130 //*                                                                   *
 000140 //*  US GOVERNMENT USERS RESTRICTED RIGHTS - USE,                     *
 000150 //*  DUPLICATION OR DISCLOSURE RESTRICTED BY GSA                      *
 000160 //*  ADP SCHEDULE CONTRACT WITH IBM CORP.                             *
 000170 //*                                                                   *
 000180 //*********************************************************************
 000190 //*
 000200 //*  COMPILE, LINK EDIT AND RUN A COBOL PROGRAM
 000210 //*
 000220 //*  PARAMETER  DEFAULT VALUE    USAGE
 000230 //*   LNGPRFX   IGY.V3R4M0       PREFIX FOR LANGUAGE DATA SET NAMES
 000240 //*   SYSLBLK   3200             BLKSIZE FOR OBJECT DATA SET
 000250 //*   LIBPRFX   CEE              PREFIX FOR LIBRARY DATA SET NAMES
  000260 //*   GOPGM     GO               MEMBER NAME FOR LOAD MODULE
 000270 //*
 000280 //*  CALLER MUST SUPPLY //COBOL.SYSIN DD ...
 000290 //*
 000300 //*  CALLER MUST ALSO SUPPLY //COBOL.SYSLIB DD ... for COPY statements
 000310 //*
 000320 //COBOL  EXEC PGM=IGYCRCTL,REGION=2048K
 000330 //STEPLIB  DD  DSNAME=&LNGPRFX..SIGYCOMP,
 000340 //             DISP=SHR
 000350 //SYSPRINT DD  SYSOUT=*
 000360 //SYSLIN   DD  DSNAME=&&LOADSET,UNIT=SYSALLDA,
 000370 //             DISP=(MOD,PASS),SPACE=(TRK,(3,3)),
 000380 //             DCB=(BLKSIZE=&SYSLBLK)
 000390 //SYSUT1   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))
 000400 //SYSUT2   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))
 000410 //SYSUT3   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))
 000420 //SYSUT4   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))
 000430 //SYSUT5   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))
 000440 //SYSUT6   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))
 000450 //SYSUT7   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))
 000460 //LKED   EXEC PGM=HEWL,COND=(8,LT,COBOL),REGION=1024K
 000470 //SYSLIB   DD  DSNAME=&LIBPRFX..SCEELKED,
 000480 //             DISP=SHR
 000490 //SYSPRINT DD  SYSOUT=*
 000500 //SYSLIN   DD  DSNAME=&&LOADSET,DISP=(OLD,DELETE)
 000510 //         DD  DDNAME=SYSIN

000520 //SYSLMOD  DD  DSNAME=&&GOSET(&GOPGM),SPACE=(TRK,(10,10,1)),
 000530 //             UNIT=SYSALLDA,DISP=(MOD,PASS)
 000540 //SYSUT1   DD  UNIT=SYSALLDA,SPACE=(TRK,(10,10))
 000550 //GO     EXEC PGM=*.LKED.SYSLMOD,COND=((8,LT,COBOL),(4,LT,LKED)),
 000560 //             REGION=2048K
 000570 //STEPLIB  DD  DSNAME=&LIBPRFX..SCEERUN,
 000580 //             DISP=SHR
 000590 //SYSPRINT DD  SYSOUT=*
 000600 //CEEDUMP  DD  SYSOUT=*
 000610 //SYSUDUMP DD  SYSOUT=*

No comments