Is there a way to run DC-BATCH in local mode?
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP
Normal
Normal
Re: CTABGEN
"This is a multipart message in MIME format.
--=_related 006A47948625765C_=
Content-Type: multipart/alternative; boundary=""=_alternative 006A47948625765C_=""
--=_alternative 006A47948625765C_=
Content-Type: text/plain; charset=""US-ASCII""
// JOB CARD STUFF
//ASMFCL EXEC ASMFCL
//ASM.SYSLIB DD DSN=SYSTC.IDMS.R160.DISTMAC,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=SYS1.MODGEN,DISP=SHR
// DD DSN=CEE.SCEEMAC,DISP=SHR
//ASM.SYSIN DD *
#CTABGEN (A,5,B,10,C,15,D,20),LOGIN=YES, X
(N003,A,N004,A,N005,A,N006,A,N007,A,N008,A,N015,A), X
(N016,A,N017,A,N018,A,N019,A,N020,A,N021,A,N023,A), X
(N036,A,N037,A,N040,A,N047,A,N058,A,N090,A), X
(N002,B,N009,B,N010,B,N011,B,N012,B,N013,B,N022,B), X
(N024,B,N025,B,N026,B,N027,B,N028,B,N029,B,N030,B), X
(N031,B,N032,B,N033,B,N034,B,N035,B,N038,B,N039,B), X
(N041,B,N042,B,N043,B,N044,B,N045,B,N046,B,N048,B), X
(N049,B,N050,B,N051,B,N052,B,N053,B,N054,B,N055,B), X
(N056,B,N059,B,N060,B,N061,B,N062,B,N063,B), X
(N065,B,N066,B,N067,B,N068,B,N069,B,N070,B,N071,B), X
(N072,B,N073,B,N074,B,N075,B,N076,B,N077,B,N078,B), X
(N079,B,N080,B,N081,B,N082,B,N083,B,N084,B,N085,B), X
(N086,B,N087,B,N088,B,N089,B,N091,B,N092,B,N093,B), X
(N094,B,N095,B,N096,B,N098,B,N099,B,N100,B,N101,B), X
(N009001,C,N009002,C,N009003,C,N025004,C,N091001,C), X
(N091002,C,N091003,C), X
(N001,D)
END
/*
//LKED.SYSLMOD DD DSN=IDMS.AB.R160.TCICV08.DBA.LOADLIB,DISP=SHR
//LKED.SYSMT00 DD DSN=IDMS.AB.R160.TCICV08.DBA.LOADLIB,DISP=SHR
//LKED.SYSIN DD *
REPLACE RHDCCTAB
INCLUDE SYSMT00(RHDCMT00)
ENTRY MT00EP1
MODE AMODE(31),RMODE(ANY)
NAME RHDCMT00(R)
/*
Hope this helps..
George H Lewandowski
Database Administrator
GIS
7x24 Operations
GA-25, J46-2E
Work (847) 938-5526
Pager (800) 209-1305
george.lewandowski@abbott.com
This communication may contain information that is proprietary,
confidential, or exempt from disclosure. If you are not the intended
recipient, please note that any other dissemination, distribution, use or
copying of this communication is strictly prohibited. Anyone who receives
this message in error should notify the sender immediately by telephone or
by return e-mail and delete it from his or her computer.
From:
Bob Wiklund <
wiklund@TIBURONTECH.COM>
To:
IDMS-L@LISTSERV.IUASSN.COM
Date:
10/27/2009 02:10 PM
Subject:
CTABGEN
Sent by:
IDMS Public Discussion Forum <
IDMS-L@LISTSERV.IUASSN.COM>
Does anyone have JCL to assemble and link the CTABGEN macro outside of
SMP? A copy would be greatly appreciated.
Tia,
Bob
Bob Wiklund
Tiburon Technologies
623 594-6022
--=_alternative 006A47948625765C_=
Content-Type: text/html; charset=""US-ASCII""
<br><font size=2 face=""Courier New""><b>// JOB CARD STUFF</b></font>
<br><font size=2 face=""Courier New""><b> </b></font>
<br><font size=2 face=""Courier New""><b>//ASMFCL EXEC ASMFCL
</b></font>
<br><font size=2 face=""Courier New""><b>//ASM.SYSLIB DD DSN=SYSTC.IDMS.R160.DISTMAC,DISP=SHR
</b></font>
<br><font size=2 face=""Courier New""><b>//
DD DSN=SYS1.MACLIB,DISP=SHR
</b></font>
<br><font size=2 face=""Courier New""><b>//
DD DSN=SYS1.MODGEN,DISP=SHR
</b></font>
<br><font size=2 face=""Courier New""><b>//
DD DSN=CEE.SCEEMAC,DISP=SHR
</b></font>
<br><font size=2 face=""Courier New""><b>//ASM.SYSIN DD *
</b></font>
<br><font size=2 face=""Courier New""><b> #CTABGEN (A,5,B,10,C,15,D,20),LOGIN=YES,
X</b></font>
<br><font size=2 face=""Courier New""><b>
(N003,A,N004,A,N005,A,N006,A,N007,A,N008,A,N015,A),
X</b></font>
<br><font size=2 face=""Courier New""><b>
(N016,A,N017,A,N018,A,N019,A,N020,A,N021,A,N023,A),
X</b></font>
<br><font size=2 face=""Courier New""><b>
(N036,A,N037,A,N040,A,N047,A,N058,A,N090,A),
X</b></font>
<br><font size=2 face=""Courier New""><b>
(N002,B,N009,B,N010,B,N011,B,N012,B,N013,B,N022,B),
X</b></font>
<br><font size=2 face=""Courier New""><b>
(N024,B,N025,B,N026,B,N027,B,N028,B,N029,B,N030,B),
X</b></font>
<br><font size=2 face=""Courier New""><b>
(N031,B,N032,B,N033,B,N034,B,N035,B,N038,B,N039,B),
X</b></font>
<br><font size=2 face=""Courier New""><b>
(N041,B,N042,B,N043,B,N044,B,N045,B,N046,B,N048,B),
X</b></font>
<br><font size=2 face=""Courier New""><b>
(N049,B,N050,B,N051,B,N052,B,N053,B,N054,B,N055,B),
X</b></font>
<br><font size=2 face=""Courier New""><b>
(N056,B,N059,B,N060,B,N061,B,N062,B,N063,B),
X</b></font>
<br><font size=2 face=""Courier New""><b>
(N065,B,N066,B,N067,B,N068,B,N069,B,N070,B,N071,B),
X</b></font>
<br><font size=2 face=""Courier New""><b>
(N072,B,N073,B,N074,B,N075,B,N076,B,N077,B,N078,B),
X</b></font>
<br><font size=2 face=""Courier New""><b>
(N079,B,N080,B,N081,B,N082,B,N083,B,N084,B,N085,B),
X</b></font>
<br><font size=2 face=""Courier New""><b>
(N086,B,N087,B,N088,B,N089,B,N091,B,N092,B,N093,B),
X</b></font>
<br><font size=2 face=""Courier New""><b>
(N094,B,N095,B,N096,B,N098,B,N099,B,N100,B,N101,B),
X</b></font>
<br><font size=2 face=""Courier New""><b>
(N009001,C,N009002,C,N009003,C,N025004,C,N091001,C),
X</b></font>
<br><font size=2 face=""Courier New""><b>
(N091002,C,N091003,C),
X</b></font>
<br><font size=2 face=""Courier New""><b>
(N001,D)
</b></font>
<br><font size=2 face=""Courier New""><b> END
</b></font>
<br><font size=2 face=""Courier New""><b>/*
</b></font>
<br><font size=2 face=""Courier New""><b>//LKED.SYSLMOD DD DSN=IDMS.AB.R160.TCICV08.DBA.LOADLIB,DISP=SHR
</b></font>
<br><font size=2 face=""Courier New""><b>//LKED.SYSMT00 DD DSN=IDMS.AB.R160.TCICV08.DBA.LOADLIB,DISP=SHR
</b></font>
<br><font size=2 face=""Courier New""><b>//LKED.SYSIN DD *
</b></font>
<br><font size=2 face=""Courier New""><b> REPLACE RHDCCTAB
</b></font>
<br><font size=2 face=""Courier New""><b> INCLUDE SYSMT00(RHDCMT00)
</b></font>
<br><font size=2 face=""Courier New""><b> ENTRY MT00EP1
</b></font>
<br><font size=2 face=""Courier New""><b> MODE AMODE(31),RMODE(ANY)
</b></font>
<br><font size=2 face=""Courier New""><b> NAME RHDCMT00(R)
</b></font>
<br><font size=2 face=""Courier New""><b>/*
</b></font><font size=2 face=""sans-serif""><br>
</font>
<br><font size=3>Hope this helps..</font>
<br><font size=3><br>
</font>
<table>
<tr>
<td colspan=4>
<div align=center>
<hr noshade></div>
<tr valign=top>
<td bgcolor=white><font size=1 face=""Arial""><b>George H Lewandowski</b></font>
<br><font size=1 face=""Arial"">Database Administrator<br>
GIS <br>
7x24 Operations<br>
GA-25, J46-2E</font>
<td bgcolor=white>
<td bgcolor=white><font size=1 face=""Arial"">Work (847) 938-5526<br>
Pager (800) 209-1305</font><font size=1 color=blue face=""Arial""><u><br>
</u></font>
<font size=1 color=blue face=""Arial""><u>george.lewandowski@abbott.com</u></font>
<td bgcolor=white>
<div align=right><font size=1 face=""Arial""><br>
</font><img src=cid:_1_08F2453008F24130006A47948625765C><font size=1 face=""Arial""><br>
</font></div>
<tr>
<td colspan=4>
<div align=center>
<hr noshade></div>
<tr>
<td colspan=4><font size=1 color=#808080 face=""Arial"">This communication
may contain information that is proprietary, confidential, or exempt from
disclosure. If you are not the intended recipient, please note that any
other dissemination, distribution, use or copying of this communication
is strictly prohibited. Anyone who receives this message in error should
notify the sender immediately by telephone or by return e-mail and delete
it from his or her computer.</font></table>
<br>
<br>
<br>
<br>
<table width=100%>
<tr valign=top>
<td><font size=1 color=#5f5f5f face=""sans-serif"">From:</font>
<td><font size=1 face=""sans-serif"">Bob Wiklund <
wiklund@TIBURONTECH.COM></font>
<tr valign=top>
<td><font size=1 color=#5f5f5f face=""sans-serif"">To:</font>
<td><font size=1 face=""sans-serif"">
IDMS-L@LISTSERV.IUASSN.COM</font>
<tr valign=top>
<td><font size=1 color=#5f5f5f face=""sans-serif"">Date:</font>
<td><font size=1 face=""sans-serif"">10/27/2009 02:10 PM</font>
<tr valign=top>
<td><font size=1 color=#5f5f5f face=""sans-serif"">Subject:</font>
<td><font size=1 face=""sans-serif"">CTABGEN</font>
<tr valign=top>
<td><font size=1 color=#5f5f5f face=""sans-serif"">Sent by:</font>
<td><font size=1 face=""sans-serif"">IDMS Public Discussion Forum <
IDMS-L@LISTSERV.IUASSN.COM></font></table>
<br>
<hr noshade>
<br>
<br>
<br><tt><font size=2>Does anyone have JCL to assemble and link the CTABGEN
macro outside of SMP? A copy would be greatly appreciated.<br>
<br>
Tia,<br>
<br>
Bob<br>
<br>
Bob Wiklund<br>
Tiburon Technologies<br>
623 594-6022<br>
</font></tt>
<br>
<br>
--=_alternative 006A47948625765C_=--
--=_related 006A47948625765C_=
Content-Type: image/gif
Content-ID: <_1_08F2453008F24130006A47948625765C>
Content-Transfer-Encoding: base64
R0lGODlhcAAdAMQAAAAAANva2v8AAISEhE5OTv9+fiMjI////7W1tf/MzP9PT3BwcObm5pmZmUFB
Qf/W1szMzBMTE2ZmZvf39/+MjP8YGKioqMHBwTMzM3t7e1taWo+Pj/+kpAgICO/v7/9bWyH5BAUU
AAcALAAAAABwAB0AAAX/oCCOZGmeY0UdbOu+hyVbjAs1MwJfuHzBwOAkUHsFAi6Ucmn6TILGSGea
cWUA0w4BpsFOJdAwy2LQvCAGg6fFbDM/YtYVQDe4LpkI3QFDLDp0ZnFBXXwuDVhrLG6MKCtiBnSS
Py4Oe0GRAIKDLx56hi0YABFPi42nKWIQWBKSCy+WAFsIAzQtmWAWtYotEwgbtUW+ogAYEMcXXVgX
EDUPz9DR0tPUDwkKJWJXDgyAAAalLLEOBJIRFiyZDsSjlDGZdB2vq5L19nRgnPoHD9lhkQMOxALg
TqAkDA3YIYFHoEGmCGsQSGpwAZeHDJkMZNiYgZi8DDr2cepHIswFLDUs/0jKJy7eGnoAqmQcM/FA
pi0xJhmUZYVOBJEiSY4IswCLBg3lfIaLhYHFBD0A+NxkEWBlVTpVDsB8Nc5F0VG8XFhLQLas2bNn
wwkV8e+epJA7QWVqmklQt0An6QQ8cFVT3AMMIByYA9EDBCQHOFRAVSJBi7UCoORFcAzCAEmbuh6Y
MNdmIBZ3NcHc2xdM1ysBLo86ILEpB8YmHLOADKVV017eSLX8Btqbmc5aJQ2Y4C1fXgAN/qImfOCk
gwSLYZOQzc/fmQaAMFgQDMECVE06BjaY8BWADngIJigDIPirgRqtvj1JioGBJQ8b4qXWFF36COq0
wTAQHVuwU48HomiBBf9mLOgRgSXeAPDKZkl1kJFgOdXDRwARfhNACRUUIOKIJJZYIi8BvmDBAiyy
iE4DLbaYwQQwJrcBBgY4sEELAyyAzgA4OoCOCxZokIYDA4RlgQMGYLCAIhcQkIYGSDQGFAwpXqnl
loOU8ACXs1kH5phkHuDlmFmWqeaVZ4KZ5ppwctIml2/GaScUc25Z5518JkHCl26KGYcHRxSxZgBh
wRBOL4ix8SeaghK5CQsaDNDjXoMOaZIEhsLAQFYHeGDjcH6OoEAC1aQqzTWRtpCBBI2S1wKsE9TA
QKMMrIFYDUO0gGgvGwz562ZFMMBSrR4sIFivB/Tn3xIVBMEDBDs6JcH9MX40oAECCGQwQHKVSjBA
BhtMsMGnDQy3wQYZYGisBPhtsEAAUQ7JwISANQABARtAkEEDG3hAwbNtPAKDBPrixAIBA6zLQAM6
SPCEsmA0kFwGnwZwrWEE8LAJAswElNovLdxb8ivlLrBBMjt+QLAScADBAAEybOsUvgdQdMCEIAUE
8WCfAqaLH5W1YMEFPIQKkqYmg1bFAMZSdthmLr9cghNBBEtVPrK2oHOwFyRZxc8YD0CtvwG0K4PR
CCR7wQbcaurBttxadgDUv5zdAgXOPqtCGBbwYkEpcGlVxAIarPHD1BdM8MMGGggWgAYLhHOEVhrs
eHkL8rJ4THNrQAOuQwgAOw==
--=_related 006A47948625765C_=--
"
IDMS 3rd-party providers forum
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP
IDMSVENDOR-L@LISTSERV.IUASSN.COM
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP
Normal
Normal
Re: CTABGEN
"
// JOB CARD STUFF
//ASMFCL EXEC ASMFCL
//ASM.SYSLIB DD DSN=SYSTC.IDMS.R160.DISTMAC,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=SYS1.MODGEN,DISP=SHR
// DD DSN=CEE.SCEEMAC,DISP=SHR
//ASM.SYSIN DD *
#CTABGEN (A,5,B,10,C,15,D,20),LOGIN=YES, X
(N003,A,N004,A,N005,A,N006,A,N007,A,N008,A,N015,A), X
(N016,A,N017,A,N018,A,N019,A,N020,A,N021,A,N023,A), X
(N036,A,N037,A,N040,A,N047,A,N058,A,N090,A), X
(N002,B,N009,B,N010,B,N011,B,N012,B,N013,B,N022,B), X
(N024,B,N025,B,N026,B,N027,B,N028,B,N029,B,N030,B), X
(N031,B,N032,B,N033,B,N034,B,N035,B,N038,B,N039,B), X
(N041,B,N042,B,N043,B,N044,B,N045,B,N046,B,N048,B), X
(N049,B,N050,B,N051,B,N052,B,N053,B,N054,B,N055,B), X
(N056,B,N059,B,N060,B,N061,B,N062,B,N063,B), X
(N065,B,N066,B,N067,B,N068,B,N069,B,N070,B,N071,B), X
(N072,B,N073,B,N074,B,N075,B,N076,B,N077,B,N078,B), X
(N079,B,N080,B,N081,B,N082,B,N083,B,N084,B,N085,B), X
(N086,B,N087,B,N088,B,N089,B,N091,B,N092,B,N093,B), X
(N094,B,N095,B,N096,B,N098,B,N099,B,N100,B,N101,B), X
(N009001,C,N009002,C,N009003,C,N025004,C,N091001,C), X
(N091002,C,N091003,C), X
(N001,D)
END
/*
//LKED.SYSLMOD DD DSN=IDMS.AB.R160.TCICV08.DBA.LOADLIB,DISP=SHR
//LKED.SYSMT00 DD DSN=IDMS.AB.R160.TCICV08.DBA.LOADLIB,DISP=SHR
//LKED.SYSIN DD *
REPLACE RHDCCTAB
INCLUDE SYSMT00(RHDCMT00)
ENTRY MT00EP1
MODE AMODE(31),RMODE(ANY)
NAME RHDCMT00(R)
/*
Hope this helps..
________________________________
George H Lewandowski
Database Administrator
GIS
7x24 Operations
GA-25, J46-2E
Work (847) 938-5526
Pager (800) 209-1305
george.lewandowski@abbott.com <mailTo:
george.lewandowski@abbott.com>
________________________________
This communication may contain information that is proprietary, confidential, or exempt from disclosure. If you are not the intended recipient, please note that any other dissemination, distribution, use or copying of this communication is strictly prohibited. Anyone who receives this message in error should notify the sender immediately by telephone or by return e-mail and delete it from his or her computer.
From:
Bob Wiklund <
wiklund@TIBURONTECH.COM>
To:
IDMS-L@LISTSERV.IUASSN.COM
Date:
10/27/2009 02:10 PM
Subject:
CTABGEN
Sent by:
IDMS Public Discussion Forum <
IDMS-L@LISTSERV.IUASSN.COM>
________________________________
Does anyone have JCL to assemble and link the CTABGEN macro outside of SMP? A copy would be greatly appreciated.
Tia,
Bob
Bob Wiklund
Tiburon Technologies
623 594-6022
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP
Normal
Normal
CTABGEN
"Geez. Seems hard to post JCL . . .=20
//ASMLCTAB JOB (2330,X7264,216D),'DMATTHEW',CLASS=3DA,
// MSGCLASS=3DU,MSGLEVEL=3D(1,1),NOTIFY=3DSCXDEM
//* ------------------------------------------------------------------
//* --- CURRENT SOURCE. DEM 9/27/06
//* ------------------------------------------------------------------
// SET CV=3DDC
//ASM EXEC PGM=3DASMA90,PARM=3D'NOXREF,NORLD,NOOBJ,DECK'
//SYSOUT DD SYSOUT=3D*
//SYSPRINT DD SYSOUT=3D*
//SYSUDUMP DD SYSOUT=3D*
//SYSPUNCH DD UNIT=3DSYSDA,DSN=3D&&TEMP(RHDCCTAB),
// DISP=3D(,PASS,DELETE),SPACE=3D(TRK,(5,5,5)),
// DCB=3D(LRECL=3D80,BLKSIZE=3D9040,RECFM=3DFB,DSORG=3DPO)
//SYSUT1 DD UNIT=3DSYSDA,SPACE=3D(CYL,(5,3))
//SYSUT2 DD UNIT=3DSYSDA,SPACE=3D(CYL,(5,3))
//SYSUT3 DD UNIT=3DSYSDA,SPACE=3D(CYL,(5,3))
//SYSUT4 DD UNIT=3DSYSDA,SPACE=3D(CYL,(5,3))
//SYSLIB DD DISP=3DSHR,DSN=3DSYS1.MACLIB
// DD DISP=3DSHR,DSN=3DSYS0.IDMS.R160.DISTMAC
//SYSIN DD *
(ctab macro statements)
/*
//LINK EXEC PGM=3DIEWL,PARM=3D'LET,NOMAP,NOXREF,LIST=3DSTMT'
//SYSOUT DD SYSOUT=3D*
//SYSPRINT DD SYSOUT=3D*
//SYSUDUMP DD SYSOUT=3D*
//TEMPOBJ DD DISP=3D(OLD,DELETE,DELETE),DSN=3D&&TEMP
//LOADLIB DD DISP=3DSHR,DSN=3DSYS0.IDMS.R160.LOADLIB.SP2
//SYSLMOD DD DISP=3DSHR,DSN=3DCAI.IDMS&CV..LOADLIB
//SYSLIN DD *
REPLACE RHDCCTAB
INCLUDE LOADLIB(RHDCMT00)
INCLUDE TEMPOBJ(RHDCCTAB)
MODE AMODE(31),RMODE(ANY)
ENTRY MT00EP1
NAME NHDCMT00(R)
//* prefix ""N"" used to prevent premature implementation . . .=20
//
Best regards to Bob,
dem