Cob Comp
This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA
Overview
Download & View Cob Comp as PDF for free.
More details
- Words: 211
- Pages: 2
//trng185c job (acct#,e05907),'natarajan', 00010006 // msgclass=a, 00020000 // msglevel=(1,1), 00030000 // notify=&sysuid 00040000 //*------------------------------------------------------------------*//00050000 // set member= 00060019 // set srcelib=trng185.lemuria.cobol 00070006 // set ncallib= 00080007 // set loadlib= 00091006 //*------------------------------------------------------------------*//00100000 //* compile and link edit and run a cobol/ims program 00110000 //*------------------------------------------------------------------*//00120000 //compile exec pgm=igycrctl,region=2048k, 00130000 // parm='xref,map,nooffset,trunc(bin),opt,list,lib' 00140000 //syslib dd dsn=ims910.sdfsmac,disp=shr 00150000 //* dd dsn=ibmgrp.imstrng.copylib,disp=shr 00151007 //sysprint dd sysout=* 00160000 //syslin dd dsn=&&syslin,disp=(mod,pass),space=(trk,(3,3)) 00170000 //sysut1 dd unit=sysda,space=(cyl,(1,1)) 00180000 //sysut2 dd unit=sysda,space=(cyl,(1,1)) 00190000 //sysut3 dd unit=sysda,space=(cyl,(1,1)) 00200000 //sysut4 dd unit=sysda,space=(cyl,(1,1)) 00210000 //sysut5 dd unit=sysda,space=(cyl,(1,1)) 00220000 //sysut6 dd unit=sysda,space=(cyl,(1,1)) 00230000 //sysut7 dd unit=sysda,space=(cyl,(1,1)) 00240000 //sysin dd dsn=&srcelib(&member),disp=shr 00250000 //*------------------------------------------------------------------*//00260000 //ncallib exec pgm=iewl,parm='list,xref,ncal,map,let,reus', 00270000 // cond=(8,lt,compile),region=0m 00280000 //syslib dd dsn=cee.sceelked,disp=shr 00290000 // dd disp=shr,dsn=ims910.sdfsresl 00300000 //reslib dd dsn=ims910.sdfsresl,disp=shr 00310000 //sysprint dd sysout=* 00320000 //syslin dd dsn=&&syslin,disp=(mod,pass) 00330000 // dd ddname=sysin 00340000 //syslmod dd dsn=&ncallib(&member), 00350000 // disp=shr 00360000 //sysut1 dd unit=sysda,space=(trk,(10,10)) 00370000 //sysin dd dummy 00380000 //*------------------------------------------------------------------*//00390000 //lked exec pgm=iewl,parm='list,xref,map,let,reus', 00400000 // cond=(8,lt,compile),region=1024k 00410000 //syslib dd dsn=cee.sceelked,disp=shr 00420000 // dd disp=shr,dsn=ims910.sdfsresl 00430000 // dd disp=shr,dsn=&ncallib 00440000 //reslib dd dsn=ims910.sdfsresl,disp=shr 00450000 //sysprint dd sysout=* 00460000 //syslmod dd dsn=&loadlib(&member),disp=shr 00470000 //sysut1 dd unit=sysda,space=(trk,(10,10)) 00480000 //sysin dd dummy 00490000 //syslin dd * 00500000 include syslib(applicatin pgm mem name) 00510019 entry dlitcbl 00520000 name patrepl(r) 00530019 /* 00540000
