Re: unresolved externals LE program
Hi Perhaps you need SCEEBND2 in the SYSLIB DD? https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2r3.cbcux01/finauto.htm Kind Regards, Mark --- Mark Hiscock z/OS Connect Phone: (+44)1962 818662 Email: mark.hisc...@uk.ibm.com --- From: Joseph Reichman To: IBM-MAIN@LISTSERV.UA.EDU Date: 12/07/2019 02:43 Subject:unresolved externals LE program Sent by:IBM Mainframe Discussion List Hi I am getting unserved externals for an LE program listed below is my JCL I have CEE.SCEELKED in my syslib and as can be seen one of the external is in that module //* //STEP0200 EXEC PGM=IEWL,COND=(0,LT,STEP0100), // PARM='AMODE(31),LIST,MAP,XREF,CASE=MIXED' //SYSPRINT DD SYSOUT=* //SYSDEFSD DD SYSOUT=* //OBJ DD DSN=&&HEXOBJ,DISP=(OLD,PASS) //SYSLIB DD DISP=SHR,DSN=IBMUSER.TEST.DLLLIB // DD DISP=SHR,DSN=CEE.SCEELKED //SYSLMOD DD DISP=SHR,DSN=IBMUSER.DBGR.DLLLIB //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(3,2)),DSN=&SYSUT1 //SYSPRINT DD SYSOUT=*,DCB=(RECFM=FB,BLKSIZE=3509) //SYSLIN DD * IMPORT CODE,SYSADATA,opendata INCLUDE OBJ(TESTPRGD) INCLUDE SYSLIB(SYSADATA) ENTRY TESTPRGD NAME TESTPRGD(R) /* z/OS V2 R3 BINDER 19:30:56 MONDAY JULY 8, 2019 BATCH EMULATOR JOB(IBMUSER$) STEP(LINK) PGM= HEWL IEW2278I B352 INVOCATION PARAMETERS - MAP,LET,LIST IEW2322I 1220 1IMPORT CODE64,'SYSADATA','openadata__FPc' IEW2322I 1220 2ENTRY TESTPRGD IEW2322I 1220 3NAME TESTPRGD(R) IEW2456E 9207 SYMBOL CEEINT UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM THE IEW2456E 9207 SYMBOL CEESTART UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM TH IEW2456E 9207 SYMBOL CEEBETBL UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM TH IEW2456E 9207 SYMBOL CEETREC UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM THE IEW2456E 9207 SYMBOL CEE0003F UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM TH *** M O D U L E M A P *** --- CLASS B_TEXTLENGTH = 1B8 ATTRIBUTES = CAT, LOAD, RMODE=ANY -- BROWSECEE.SCEELKED Row 0003753 of 0010987 Command ===> Scroll ===> PAGE Name PromptAlias-of Size TTR AC AM RM _ CEESTART 00B0 004E46 0031 ANY _ CEESTATH 0018 004E4E 0031 ANY _ CEESTATN 0018 004F05 0031 ANY _ CEESTCJG 0018 004F0C 0031 ANY _ CEESTCOS 0018 004F13 0031 ANY Joe Reichman Joe Reichman Lead Developer Sam Golob Systems Programming 170-10 73rd Ave Fresh Meadows NY 11366 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Unless stated otherwise above: IBM United Kingdom Limited - Registered in England and Wales with number 741598. Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: unresolved externals LE program
Thanks Joe Reichman 170-10 73 rd ave Fresh meadows NY 11366 > On Jul 12, 2019, at 4:39 AM, Mark Hiscock wrote: > > Hi > > Perhaps you need SCEEBND2 in the SYSLIB DD? > > https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2r3.cbcux01/finauto.htm > > Kind Regards, > > Mark > --- > Mark Hiscock > z/OS Connect > Phone: (+44)1962 818662 > Email: mark.hisc...@uk.ibm.com > --- > > > > From: Joseph Reichman > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 12/07/2019 02:43 > Subject:unresolved externals LE program > Sent by:IBM Mainframe Discussion List > > > > Hi > > > > I am getting unserved externals for an LE program listed below is my JCL > > I have CEE.SCEELKED in my syslib and as can be seen one of the external is > in that module > > > > //* > > //STEP0200 EXEC PGM=IEWL,COND=(0,LT,STEP0100), > > // PARM='AMODE(31),LIST,MAP,XREF,CASE=MIXED' > > //SYSPRINT DD SYSOUT=* > > //SYSDEFSD DD SYSOUT=* > > //OBJ DD DSN=&&HEXOBJ,DISP=(OLD,PASS) > > //SYSLIB DD DISP=SHR,DSN=IBMUSER.TEST.DLLLIB > > // DD DISP=SHR,DSN=CEE.SCEELKED > > //SYSLMOD DD DISP=SHR,DSN=IBMUSER.DBGR.DLLLIB > > //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(3,2)),DSN=&SYSUT1 > > //SYSPRINT DD SYSOUT=*,DCB=(RECFM=FB,BLKSIZE=3509) > > //SYSLIN DD * > > IMPORT CODE,SYSADATA,opendata > > INCLUDE OBJ(TESTPRGD) > > INCLUDE SYSLIB(SYSADATA) > > ENTRY TESTPRGD > > NAME TESTPRGD(R) > > /* > > > > z/OS V2 R3 BINDER 19:30:56 MONDAY JULY 8, 2019 > > > BATCH EMULATOR JOB(IBMUSER$) STEP(LINK) PGM= HEWL > > > IEW2278I B352 INVOCATION PARAMETERS - MAP,LET,LIST > > > IEW2322I 1220 1IMPORT CODE64,'SYSADATA','openadata__FPc' > > > IEW2322I 1220 2ENTRY TESTPRGD > > > IEW2322I 1220 3NAME TESTPRGD(R) > > > IEW2456E 9207 SYMBOL CEEINT UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM > THE > > IEW2456E 9207 SYMBOL CEESTART UNRESOLVED. MEMBER COULD NOT BE INCLUDED > FROM > TH > > IEW2456E 9207 SYMBOL CEEBETBL UNRESOLVED. MEMBER COULD NOT BE INCLUDED > FROM > TH > > IEW2456E 9207 SYMBOL CEETREC UNRESOLVED. MEMBER COULD NOT BE INCLUDED > FROM > THE > > IEW2456E 9207 SYMBOL CEE0003F UNRESOLVED. MEMBER COULD NOT BE INCLUDED > FROM > TH > > > > > *** M O D U L E M A P *** > > > > > > --- > > > CLASS B_TEXTLENGTH = 1B8 ATTRIBUTES = CAT, LOAD, > RMODE=ANY > > > > > -- > > BROWSECEE.SCEELKED Row 0003753 of > 0010987 > > Command ===> Scroll ===> > PAGE > >Name PromptAlias-of Size TTR AC AM > RM > > _ CEESTART 00B0 004E46 0031 > ANY > > _ CEESTATH 0018 004E4E 0031 > ANY > > _ CEESTATN 0018 004F05 0031 > ANY > > _ CEESTCJG 0018 004F0C 0031 > ANY > > _ CEESTCOS 0018 004F13 0031 > ANY > > > > > > > > > > > > Joe Reichman > > Joe Reichman > > Lead Developer Sam Golob Systems Programming > > 170-10 73rd Ave > > Fresh Meadows NY 11366 > > > > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > > > Unless stated otherwise above: > IBM United Kingdom Limited - Registered in England and Wales with number > 741598. > Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU > > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: unresolved externals LE program
Here's my PROC for 64-bit C++ compile/link. You will have to change it
for C.
//*=
//*
//* Compile and link a C++ XPLINK program.
//*
//* Note: - The outfile must be a PDSE or HFS file
//*
//*=
//CPPXP64 PROC OPTF=CPPOPT,CPARMS=,CFILE=,LOAD=,LISTC=SYSOUT=*
//*-
//* Compile a C++ program
//*-
//COMPILE EXEC PGM=CCNDRVR,PARM='/CXX LP64 &CPARMS OPTF',REGION=0M
//STEPLIB DD DISP=SHR,DSN=SYS1.CBC.SCCNCMP
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSCPRT DD &LISTC
//SYSIN DD DISP=SHR,DSN=&CFILE
//SYSLIN DD DSN=&&LOADSET,UNIT=VIO,
// DISP=(MOD,PASS),SPACE=(CYL,(3,3)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//SYSOPTF DD DSN=DOC.CONFIG(&OPTF),DISP=SHR
// DD DDNAME=OPTIONS
//OPTIONS DD DUMMY
//HEADERS DD DUMMY
//*-
//* Bind a C++ XPLINK program
//*-
// IF COMPILE.RC NG 4 THEN
//LKED EXEC PGM=IEWL,
// PARM=('AMODE(64),RENT,MAP,DYNAM=DLL,LIST=NOIMP,',
// 'CASE=MIXED')
//STEPLIB DD DISP=SHR,DSN=SYS1.CEE.SCEERUN2
// DD DISP=SHR,DSN=SYS1.CEE.SCEERUN
//SYSLIB DD DISP=SHR,DSN=SYS1.CEE.SCEEBND2
// DD DISP=SHR,DSN=DOC.LOAD
// DD DISP=SHR,DSN=SYS1.CSSLIB
// DD DISP=SHR,DSN=COM130.DEVT.ACOMLOAD
// DD DISP=SHR,DSN=TXC110.DEVT.ATXCLINK
// DD DISP=SHR,DSN=SYS1.CBC.SCCNOBJ
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DSN=*.COMPILE.SYSLIN,DISP=(OLD,DELETE)
// DD DISP=SHR,DSN=SYS1.CEE.SCEELIB(CELQSCPP)
// DD DISP=SHR,DSN=SYS1.CEE.SCEELIB(CELQS003)
// DD DISP=SHR,DSN=SYS1.CEE.SCEELIB(C64)
// DD DISP=SHR,DSN=SYS1.CBC.SCLBSID(IOSX64)
// DD DDNAME=SYSIN
//SYSDEFSD DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSLMOD DD DISP=SHR,DSN=&LOAD
//SYSUT1 DD SPACE=(32000,(30,30)),UNIT=SYSDA
// ENDIF
// PEND
//*
z/OS V2 R3 BINDER 19:30:56 MONDAY JULY 8, 2019
BATCH EMULATOR JOB(IBMUSER$) STEP(LINK) PGM= HEWL
IEW2278I B352 INVOCATION PARAMETERS - MAP,LET,LIST
IEW2322I 1220 1IMPORT CODE64,'SYSADATA','openadata__FPc'
IEW2322I 1220 2ENTRY TESTPRGD
IEW2322I 1220 3NAME TESTPRGD(R)
IEW2456E 9207 SYMBOL CEEINT UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
THE
IEW2456E 9207 SYMBOL CEESTART UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
TH
IEW2456E 9207 SYMBOL CEEBETBL UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
TH
IEW2456E 9207 SYMBOL CEETREC UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
THE
IEW2456E 9207 SYMBOL CEE0003F UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
TH
*** M O D U L E M A P ***
---
CLASS B_TEXTLENGTH = 1B8 ATTRIBUTES = CAT, LOAD,
RMODE=ANY
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: unresolved externals LE program
I think that was it had it in a pds
Joe Reichman
170-10 73 rd ave
Fresh meadows NY 11366
> On Jul 12, 2019, at 8:07 AM, David Crayford wrote:
>
> Here's my PROC for 64-bit C++ compile/link. You will have to change it for C.
>
> //*=
> //*
> //* Compile and link a C++ XPLINK program.
> //*
> //* Note: - The outfile must be a PDSE or HFS file
> //*
> //*=
> //CPPXP64 PROC OPTF=CPPOPT,CPARMS=,CFILE=,LOAD=,LISTC=SYSOUT=*
> //*-
> //* Compile a C++ program
> //*-
> //COMPILE EXEC PGM=CCNDRVR,PARM='/CXX LP64 &CPARMS OPTF',REGION=0M
> //STEPLIB DD DISP=SHR,DSN=SYS1.CBC.SCCNCMP
> //SYSPRINT DD SYSOUT=*
> //SYSOUT DD SYSOUT=*
> //SYSCPRT DD &LISTC
> //SYSINDD DISP=SHR,DSN=&CFILE
> //SYSLIN DD DSN=&&LOADSET,UNIT=VIO,
> // DISP=(MOD,PASS),SPACE=(CYL,(3,3)),
> // DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
> //SYSOPTF DD DSN=DOC.CONFIG(&OPTF),DISP=SHR
> // DD DDNAME=OPTIONS
> //OPTIONS DD DUMMY
> //HEADERS DD DUMMY
> //*-
> //* Bind a C++ XPLINK program
> //*-
> // IF COMPILE.RC NG 4 THEN
> //LKED EXEC PGM=IEWL,
> // PARM=('AMODE(64),RENT,MAP,DYNAM=DLL,LIST=NOIMP,',
> // 'CASE=MIXED')
> //STEPLIB DD DISP=SHR,DSN=SYS1.CEE.SCEERUN2
> // DD DISP=SHR,DSN=SYS1.CEE.SCEERUN
> //SYSLIB DD DISP=SHR,DSN=SYS1.CEE.SCEEBND2
> // DD DISP=SHR,DSN=DOC.LOAD
> // DD DISP=SHR,DSN=SYS1.CSSLIB
> // DD DISP=SHR,DSN=COM130.DEVT.ACOMLOAD
> // DD DISP=SHR,DSN=TXC110.DEVT.ATXCLINK
> // DD DISP=SHR,DSN=SYS1.CBC.SCCNOBJ
> //SYSPRINT DD SYSOUT=*
> //SYSLIN DD DSN=*.COMPILE.SYSLIN,DISP=(OLD,DELETE)
> // DD DISP=SHR,DSN=SYS1.CEE.SCEELIB(CELQSCPP)
> // DD DISP=SHR,DSN=SYS1.CEE.SCEELIB(CELQS003)
> // DD DISP=SHR,DSN=SYS1.CEE.SCEELIB(C64)
> // DD DISP=SHR,DSN=SYS1.CBC.SCLBSID(IOSX64)
> // DD DDNAME=SYSIN
> //SYSDEFSD DD DUMMY
> //SYSINDD DUMMY
> //SYSPRINT DD SYSOUT=*
> //SYSLMOD DD DISP=SHR,DSN=&LOAD
> //SYSUT1 DD SPACE=(32000,(30,30)),UNIT=SYSDA
> // ENDIF
> // PEND
> //*
>
>>
>> z/OS V2 R3 BINDER 19:30:56 MONDAY JULY 8, 2019
>>
>>
>> BATCH EMULATOR JOB(IBMUSER$) STEP(LINK) PGM= HEWL
>>
>>
>> IEW2278I B352 INVOCATION PARAMETERS - MAP,LET,LIST
>>
>>
>> IEW2322I 1220 1IMPORT CODE64,'SYSADATA','openadata__FPc'
>>
>>
>> IEW2322I 1220 2ENTRY TESTPRGD
>>
>>
>> IEW2322I 1220 3NAME TESTPRGD(R)
>>
>>
>> IEW2456E 9207 SYMBOL CEEINT UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
>> THE
>>
>> IEW2456E 9207 SYMBOL CEESTART UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
>> TH
>>
>> IEW2456E 9207 SYMBOL CEEBETBL UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
>> TH
>>
>> IEW2456E 9207 SYMBOL CEETREC UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
>> THE
>>
>> IEW2456E 9207 SYMBOL CEE0003F UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
>> TH
>>
>>
>>
>> *** M O D U L E M A P ***
>>
>>
>>
>>
>> ---
>>
>>
>> CLASS B_TEXTLENGTH = 1B8 ATTRIBUTES = CAT, LOAD,
>> RMODE=ANY
>>
>>
>>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Determine level of fragmentation in VTOCIX?
Reserve/Release processing? Check GRSRNL00 for SYSIGGV2 (catalog) SYSZVTOC (obvious) SYSZVVDS (obvious), Service class/dispatch priority of the CSSMTP task? You might also try rebuilding the VTOCIX on the volume. HTH, -Original Message- From: IBM Mainframe Discussion List On Behalf Of Gibney, Dave Sent: Thursday, July 11, 2019 3:43 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Determine level of fragmentation in VTOCIX? Is there a way to determine if and how much a VTOCIX is fragmented. Way back when (when disk wasn't quite so cheap), we standardized on parking the VTOCIX in the 14 tracks left in the 1st cylinder, and for a Mod-3, VTOC of 105 tracks (7CYL) immediately following, and usually a 2 CYL VVDS right after that. Most of my SMS managed application disks still follow this. And it worked well for many years. But, during high volumes of SMTP activity, I have begun to get: IEC603I VTOC ERRORS MAY EXIST ON C465,PPRD22,8,027 IEC331I 042-002(0812041B),SMTP,SMTP,RNAM,IGG0CLH2 IEC331I VOL,PPRD22,NAME,SMTP.CONN257.NOTE IGD17003I PERMANENT I/O ERROR ON VOLUME PPRD22 139 FOR DATA SET SMTP.CONN257.NOTE HISTORIC RETURN CODE IS 8 DADSM DIAGNOSTIC INFORMATION IS 0812041B IGD306I UNEXPECTED ERROR DURING IGGDAR02 PROCESSING 140 RETURN CODE 8 REASON CODE 27 THE MODULE THAT DETECTED THE ERROR IS IGDVTSDA SMS MODULE TRACE BACK - VTSDA VTSCU VTSCT VTSRN SSIRT SYMPTOM RECORD CREATED, PROBLEM ID IS IGD00898 IEC614I RENAME FAILED - RC 008, DIAGNOSTIC INFORMATION IS (0812041B), 141 SMTP,PPRD22,SMTP.CONN257.NOTE EZA5544E Unable to RENAME file SMTP.CONN257.NOTE to SMTP.A0258454.NOTE rc=408 EZA5568E UNABLE TO ALLOCATE ADDRBLOK DATA SET CORRECTLY SMTP is playing a dataset rename game - SMTP.TEMP.NOTE to SMTP.CONNnnn.NOTE (a 3 character length increase) SMTP then kindly sends a blank email to the recipient which then gets reported as suspicious :) I don't remember how we reached the numbers we used, but looking at the info the ICKDSF manual, the 14 track index should be large enough for the 5250 datasets possible with a 105 track VTOC. I an wondering if I can REFORMAT REFVTOC EXTINDEX(14) and get refreshed, unfragmented VTOCIX. Dave Gibney Information Technology Services Washington State University -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ::DISCLAIMER:: -- The contents of this e-mail and any attachment(s) are confidential and intended for the named recipient(s) only. E-mail transmission is not guaranteed to be secure or error-free as information could be intercepted, corrupted, lost, destroyed, arrive late or incomplete, or may contain viruses in transmission. The e mail and its contents (with or without referred errors) shall therefore not attach any liability on the originator or HCL or its affiliates. Views or opinions, if any, presented in this email are solely those of the author and may not necessarily reflect the views or opinions of HCL or its affiliates. Any form of reproduction, dissemination, copying, disclosure, modification, distribution and / or publication of this message without the prior written consent of authorized representative of HCL is strictly prohibited. If you have received this email in error please delete it and notify the sender immediately. Before opening any email and/or attachments, please check them for viruses and other defects. -- -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
FTP MGET
Doesn't behave well with a PDS directory. You should be able to get each member. z/OS doesn't respond to DIR in the expected way and ftp just stops. You can script the FTP session with ftp -s: Good luck -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Determine level of fragmentation in VTOCIX?
". Odds are real strong that we will be off of z/OS by January 2021, July at latest." I've heard that one before. Usually about 5-10 years after the previous "we'll be off by" -Original Message- From: IBM Mainframe Discussion List On Behalf Of Gibney, Dave Sent: Thursday, July 11, 2019 4:30 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Determine level of fragmentation in VTOCIX? Thanks, converting to CSSMTP is something I am considering. But, I am unlikely to go to z/OS 2.3, probably not even 2.2. Odds are real strong that we will be off of z/OS by January 2021, July at latest. Management really doesn't wish to renew the MFaaS contract. I am very much in a keep it going/minimal disruption mode. > -Original Message- > From: IBM Mainframe Discussion List On > Behalf Of Cieri, Anthony > Sent: Thursday, July 11, 2019 2:25 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Determine level of fragmentation in VTOCIX? > > Dave, > > This does not answer your question, but it appears from the error > messages that you are still running the older zOS SMTP task. ZOS > Communication Server now provides a new CSSMTP task, which no longer > copies the spool files to sequential dataset and plays the dataset "rename" > game. SMTP is going to be dropped from support soon ( after zOS V2.2 ??) > We use to see errors like these from time to time, but they have > disappeared since migrated to CSSMTP. > > Hth > Tony > > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] > On Behalf Of Gibney, Dave > Sent: Thursday, July 11, 2019 4:43 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Determine level of fragmentation in VTOCIX? > > [[ SEI WARNING *** This email was sent from an external source. Do not > open attachments or click on links from unknown or suspicious senders. > *** ]] > > > Is there a way to determine if and how much a VTOCIX is fragmented. > Way back when (when disk wasn't quite so cheap), we standardized on > parking the VTOCIX in the 14 tracks left in the 1st cylinder, and for > a Mod-3, VTOC of > 105 tracks (7CYL) immediately following, and usually a 2 CYL VVDS > right after that. Most of my SMS managed application disks still > follow this. And it worked well for many years. > > But, during high volumes of SMTP activity, I have begun to get: > > IEC603I VTOC ERRORS MAY EXIST ON C465,PPRD22,8,027 > IEC331I 042-002(0812041B),SMTP,SMTP,RNAM,IGG0CLH2 > IEC331I VOL,PPRD22,NAME,SMTP.CONN257.NOTE IGD17003I PERMANENT I/O > ERROR ON VOLUME PPRD22 139 FOR DATA SET SMTP.CONN257.NOTE HISTORIC > RETURN CODE IS 8 DADSM DIAGNOSTIC INFORMATION IS 0812041B IGD306I > UNEXPECTED ERROR DURING IGGDAR02 PROCESSING 140 RETURN CODE 8 REASON > CODE 27 THE MODULE THAT DETECTED THE ERROR IS IGDVTSDA SMS MODULE > TRACE BACK - VTSDA VTSCU VTSCT VTSRN SSIRT SYMPTOM RECORD CREATED, > PROBLEM ID IS IGD00898 IEC614I RENAME FAILED - RC 008, DIAGNOSTIC > INFORMATION IS (0812041B), > 141 > SMTP,PPRD22,SMTP.CONN257.NOTE > EZA5544E Unable to RENAME file SMTP.CONN257.NOTE to SMTP.A0258454.NOTE > rc=408 > EZA5568E UNABLE TO ALLOCATE ADDRBLOK DATA SET CORRECTLY > > SMTP is playing a dataset rename game - SMTP.TEMP.NOTE to > SMTP.CONNnnn.NOTE (a 3 character length increase) > > SMTP then kindly sends a blank email to the recipient which then gets > reported as suspicious :) > > I don't remember how we reached the numbers we used, but looking at > the info the ICKDSF manual, the 14 track index should be large enough > for the > 5250 datasets possible with a 105 track VTOC. I an wondering if I can > REFORMAT REFVTOC EXTINDEX(14) and get refreshed, unfragmented VTOCIX. > > Dave Gibney > Information Technology Services > Washington State University > > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ::DISCLAIMER:: -- The contents of this e-mail and any attachment(s) are confidential and intended for the named recipient(s) only. E-mail transmission is not guaranteed to be secure or error-free as information could be intercepted, corrupted, lost, destroyed, arrive late or incomplete, or may contain viruses in transmission. Th
Re: unresolved externals LE program
Hi David, Why does The Binder step have this: > //STEPLIB DD DISP=SHR,DSN=SYS1.CEE.SCEERUN2 > // DD DISP=SHR,DSN=SYS1.CEE.SCEERUN Regards, David -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: unresolved externals LE program
I don't know. Probably a historical anomaly! Probably doesn't even need a STEPLIB On 2019-07-12 8:30 PM, David Spiegel wrote: Hi David, Why does The Binder step have this: //STEPLIB DD DISP=SHR,DSN=SYS1.CEE.SCEERUN2 // DD DISP=SHR,DSN=SYS1.CEE.SCEERUN Regards, David -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: unresolved externals LE program
The pre-linker cannot be used for 64-bit XPLINK programs. My compiler
options below:
ARCH(11)
ASM
ASMLIB(//'SYS1.MACLIB',//'SYS1.MODGEN')
DEF(__IBMCPP_TR1__)
DEF(_UNIX03_THREADS)
DEF(_XOPEN_SOURCE=600)
GOFF
GONUM
NOHOT
LANGLVL(EXTENDED0X,NEWEXCP,NULLPTR)
LIST
LOCALE(EN_US.IBM-1047)
NOSEQ,NOMARG
ROCONST
ROSTRING
SOURCE
NOVECTOR(TYPE,AUTOSIMD)
XPLINK
On 2019-07-12 8:10 PM, Joseph Reichman wrote:
I think that was it had it in a pds
Joe Reichman
170-10 73 rd ave
Fresh meadows NY 11366
On Jul 12, 2019, at 8:07 AM, David Crayford wrote:
Here's my PROC for 64-bit C++ compile/link. You will have to change it for C.
//*=
//*
//* Compile and link a C++ XPLINK program.
//*
//* Note: - The outfile must be a PDSE or HFS file
//*
//*=
//CPPXP64 PROC OPTF=CPPOPT,CPARMS=,CFILE=,LOAD=,LISTC=SYSOUT=*
//*-
//* Compile a C++ program
//*-
//COMPILE EXEC PGM=CCNDRVR,PARM='/CXX LP64 &CPARMS OPTF',REGION=0M
//STEPLIB DD DISP=SHR,DSN=SYS1.CBC.SCCNCMP
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSCPRT DD &LISTC
//SYSINDD DISP=SHR,DSN=&CFILE
//SYSLIN DD DSN=&&LOADSET,UNIT=VIO,
// DISP=(MOD,PASS),SPACE=(CYL,(3,3)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//SYSOPTF DD DSN=DOC.CONFIG(&OPTF),DISP=SHR
// DD DDNAME=OPTIONS
//OPTIONS DD DUMMY
//HEADERS DD DUMMY
//*-
//* Bind a C++ XPLINK program
//*-
// IF COMPILE.RC NG 4 THEN
//LKED EXEC PGM=IEWL,
// PARM=('AMODE(64),RENT,MAP,DYNAM=DLL,LIST=NOIMP,',
// 'CASE=MIXED')
//STEPLIB DD DISP=SHR,DSN=SYS1.CEE.SCEERUN2
// DD DISP=SHR,DSN=SYS1.CEE.SCEERUN
//SYSLIB DD DISP=SHR,DSN=SYS1.CEE.SCEEBND2
// DD DISP=SHR,DSN=DOC.LOAD
// DD DISP=SHR,DSN=SYS1.CSSLIB
// DD DISP=SHR,DSN=COM130.DEVT.ACOMLOAD
// DD DISP=SHR,DSN=TXC110.DEVT.ATXCLINK
// DD DISP=SHR,DSN=SYS1.CBC.SCCNOBJ
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DSN=*.COMPILE.SYSLIN,DISP=(OLD,DELETE)
// DD DISP=SHR,DSN=SYS1.CEE.SCEELIB(CELQSCPP)
// DD DISP=SHR,DSN=SYS1.CEE.SCEELIB(CELQS003)
// DD DISP=SHR,DSN=SYS1.CEE.SCEELIB(C64)
// DD DISP=SHR,DSN=SYS1.CBC.SCLBSID(IOSX64)
// DD DDNAME=SYSIN
//SYSDEFSD DD DUMMY
//SYSINDD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSLMOD DD DISP=SHR,DSN=&LOAD
//SYSUT1 DD SPACE=(32000,(30,30)),UNIT=SYSDA
// ENDIF
// PEND
//*
z/OS V2 R3 BINDER 19:30:56 MONDAY JULY 8, 2019
BATCH EMULATOR JOB(IBMUSER$) STEP(LINK) PGM= HEWL
IEW2278I B352 INVOCATION PARAMETERS - MAP,LET,LIST
IEW2322I 1220 1IMPORT CODE64,'SYSADATA','openadata__FPc'
IEW2322I 1220 2ENTRY TESTPRGD
IEW2322I 1220 3NAME TESTPRGD(R)
IEW2456E 9207 SYMBOL CEEINT UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
THE
IEW2456E 9207 SYMBOL CEESTART UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
TH
IEW2456E 9207 SYMBOL CEEBETBL UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
TH
IEW2456E 9207 SYMBOL CEETREC UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
THE
IEW2456E 9207 SYMBOL CEE0003F UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
TH
*** M O D U L E M A P ***
---
CLASS B_TEXTLENGTH = 1B8 ATTRIBUTES = CAT, LOAD,
RMODE=ANY
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: unresolved externals LE program
And to answer your question about invoking debug tool (sorry I'm too
lazy to hunt down that thread) just do the following:
#include
#include
int main( int argc, char *argv[] )
{
ctest(0); // debug
puts("hello world")
return 0;
}
On 2019-07-12 8:10 PM, Joseph Reichman wrote:
I think that was it had it in a pds
Joe Reichman
170-10 73 rd ave
Fresh meadows NY 11366
On Jul 12, 2019, at 8:07 AM, David Crayford wrote:
Here's my PROC for 64-bit C++ compile/link. You will have to change it for C.
//*=
//*
//* Compile and link a C++ XPLINK program.
//*
//* Note: - The outfile must be a PDSE or HFS file
//*
//*=
//CPPXP64 PROC OPTF=CPPOPT,CPARMS=,CFILE=,LOAD=,LISTC=SYSOUT=*
//*-
//* Compile a C++ program
//*-
//COMPILE EXEC PGM=CCNDRVR,PARM='/CXX LP64 &CPARMS OPTF',REGION=0M
//STEPLIB DD DISP=SHR,DSN=SYS1.CBC.SCCNCMP
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSCPRT DD &LISTC
//SYSINDD DISP=SHR,DSN=&CFILE
//SYSLIN DD DSN=&&LOADSET,UNIT=VIO,
// DISP=(MOD,PASS),SPACE=(CYL,(3,3)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//SYSOPTF DD DSN=DOC.CONFIG(&OPTF),DISP=SHR
// DD DDNAME=OPTIONS
//OPTIONS DD DUMMY
//HEADERS DD DUMMY
//*-
//* Bind a C++ XPLINK program
//*-
// IF COMPILE.RC NG 4 THEN
//LKED EXEC PGM=IEWL,
// PARM=('AMODE(64),RENT,MAP,DYNAM=DLL,LIST=NOIMP,',
// 'CASE=MIXED')
//STEPLIB DD DISP=SHR,DSN=SYS1.CEE.SCEERUN2
// DD DISP=SHR,DSN=SYS1.CEE.SCEERUN
//SYSLIB DD DISP=SHR,DSN=SYS1.CEE.SCEEBND2
// DD DISP=SHR,DSN=DOC.LOAD
// DD DISP=SHR,DSN=SYS1.CSSLIB
// DD DISP=SHR,DSN=COM130.DEVT.ACOMLOAD
// DD DISP=SHR,DSN=TXC110.DEVT.ATXCLINK
// DD DISP=SHR,DSN=SYS1.CBC.SCCNOBJ
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DSN=*.COMPILE.SYSLIN,DISP=(OLD,DELETE)
// DD DISP=SHR,DSN=SYS1.CEE.SCEELIB(CELQSCPP)
// DD DISP=SHR,DSN=SYS1.CEE.SCEELIB(CELQS003)
// DD DISP=SHR,DSN=SYS1.CEE.SCEELIB(C64)
// DD DISP=SHR,DSN=SYS1.CBC.SCLBSID(IOSX64)
// DD DDNAME=SYSIN
//SYSDEFSD DD DUMMY
//SYSINDD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSLMOD DD DISP=SHR,DSN=&LOAD
//SYSUT1 DD SPACE=(32000,(30,30)),UNIT=SYSDA
// ENDIF
// PEND
//*
z/OS V2 R3 BINDER 19:30:56 MONDAY JULY 8, 2019
BATCH EMULATOR JOB(IBMUSER$) STEP(LINK) PGM= HEWL
IEW2278I B352 INVOCATION PARAMETERS - MAP,LET,LIST
IEW2322I 1220 1IMPORT CODE64,'SYSADATA','openadata__FPc'
IEW2322I 1220 2ENTRY TESTPRGD
IEW2322I 1220 3NAME TESTPRGD(R)
IEW2456E 9207 SYMBOL CEEINT UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
THE
IEW2456E 9207 SYMBOL CEESTART UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
TH
IEW2456E 9207 SYMBOL CEEBETBL UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
TH
IEW2456E 9207 SYMBOL CEETREC UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
THE
IEW2456E 9207 SYMBOL CEE0003F UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
TH
*** M O D U L E M A P ***
---
CLASS B_TEXTLENGTH = 1B8 ATTRIBUTES = CAT, LOAD,
RMODE=ANY
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FTP MGET
I have certainly used MGET with a z/OS server, with no issues. Do you have more specifics? Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of John Sent: Friday, July 12, 2019 5:16 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: FTP MGET Doesn't behave well with a PDS directory. You should be able to get each member. z/OS doesn't respond to DIR in the expected way and ftp just stops. You can script the FTP session with ftp -s: Good luck -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FTP MGET
Before entering the mget command did you turn prompting off? Mark Jacobs Sent from ProtonMail, Swiss-based encrypted email. GPG Public Key - https://api.protonmail.ch/pks/lookup?op=get&search=markjac...@protonmail.com ‐‐‐ Original Message ‐‐‐ On Friday, July 12, 2019 8:16 AM, John wrote: > Doesn't behave well with a PDS directory. You should be able to get > each member. z/OS doesn't respond to DIR in the expected way and ftp > just stops. You can script the FTP session with ftp -s: > > Good luck > > > > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: [External] FTP MGET
John, Not sure what you mean here. If in ftp you do a "cd some.pds.name", you get a "some.pds.name is a partitioned dataset" message. You can then do a dir and get the PDS directory. You can also do an 'mget *' and it'll download the entire PDS, giving each member a separate file in your output directory. What sequence of commands causes bad behavior? Rex -Original Message- From: IBM Mainframe Discussion List On Behalf Of John Sent: Friday, July 12, 2019 7:16 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: [External] FTP MGET Doesn't behave well with a PDS directory. You should be able to get each member. z/OS doesn't respond to DIR in the expected way and ftp just stops. You can script the FTP session with ftp -s: Good luck -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN The information contained in this message is confidential, protected from disclosure and may be legally privileged. If the reader of this message is not the intended recipient or an employee or agent responsible for delivering this message to the intended recipient, you are hereby notified that any disclosure, distribution, copying, or any action taken or action omitted in reliance on it, is strictly prohibited and may be unlawful. If you have received this communication in error, please notify us immediately by replying to this message and destroy the material in its entirety, whether in electronic or hard copy format. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: [External] FTP MGET
Is there any kind of trace can be set on ftpd on why it just doesn't prompts me with a PDS member to download post the message 200 ? Strange it allows me to download other PDSes and only with one specific PDS it fails On Fri, 12 Jul, 2019, 5:39 PM Pommier, Rex, wrote: > John, > > Not sure what you mean here. If in ftp you do a "cd some.pds.name", you > get a "some.pds.name is a partitioned dataset" message. You can then do > a dir and get the PDS directory. You can also do an 'mget *' and it'll > download the entire PDS, giving each member a separate file in your output > directory. > > What sequence of commands causes bad behavior? > > Rex > > > -Original Message- > From: IBM Mainframe Discussion List On Behalf > Of John > Sent: Friday, July 12, 2019 7:16 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: [External] FTP MGET > > Doesn't behave well with a PDS directory. You should be able to get each > member. z/OS doesn't respond to DIR in the expected way and ftp just > stops. You can script the FTP session with ftp -s: > > > Good luck > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send email > to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > The information contained in this message is confidential, protected from > disclosure and may be legally privileged. If the reader of this message is > not the intended recipient or an employee or agent responsible for > delivering this message to the intended recipient, you are hereby notified > that any disclosure, distribution, copying, or any action taken or action > omitted in reliance on it, is strictly prohibited and may be unlawful. If > you have received this communication in error, please notify us immediately > by replying to this message and destroy the material in its entirety, > whether in electronic or hard copy format. Thank you. > > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: [External] FTP MGET
Yes. The documentation is your friend. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Peter Sent: Friday, July 12, 2019 7:38 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: [External] FTP MGET Is there any kind of trace can be set on ftpd on why it just doesn't prompts me with a PDS member to download post the message 200 ? Strange it allows me to download other PDSes and only with one specific PDS it fails On Fri, 12 Jul, 2019, 5:39 PM Pommier, Rex, wrote: > John, > > Not sure what you mean here. If in ftp you do a "cd some.pds.name", you > get a "some.pds.name is a partitioned dataset" message. You can then do > a dir and get the PDS directory. You can also do an 'mget *' and it'll > download the entire PDS, giving each member a separate file in your output > directory. > > What sequence of commands causes bad behavior? > > Rex > > > -Original Message- > From: IBM Mainframe Discussion List On Behalf > Of John > Sent: Friday, July 12, 2019 7:16 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: [External] FTP MGET > > Doesn't behave well with a PDS directory. You should be able to get each > member. z/OS doesn't respond to DIR in the expected way and ftp just > stops. You can script the FTP session with ftp -s: > > > Good luck > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send email > to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > The information contained in this message is confidential, protected from > disclosure and may be legally privileged. If the reader of this message is > not the intended recipient or an employee or agent responsible for > delivering this message to the intended recipient, you are hereby notified > that any disclosure, distribution, copying, or any action taken or action > omitted in reliance on it, is strictly prohibited and may be unlawful. If > you have received this communication in error, please notify us immediately > by replying to this message and destroy the material in its entirety, > whether in electronic or hard copy format. Thank you. > > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: [External] FTP MGET
Thanks. Very nice. Say Hello to everyone for me please. John T. Abell Tel:800-295-7608Option 4 President International: 1-416-593-5578 Option 4 E-mail: john.ab...@intnlsoftwareproducts.com Fax:800-295-7609 International: 1-416-593-5579 International Software Products www.ispinfo.com This email may contain confidential and privileged material for the sole use of the intended recipient(s). Any review, use, retention, distribution or disclosure by others is strictly prohibited. If you are not the intended recipient (or authorized to receive on behalf of the named recipient), please contact the sender by reply email and delete all copies of this message. Also,email is susceptible to data corruption, interception, tampering, unauthorized amendment and viruses. We only send and receive emails on the basis that we are not liable for any such corruption, interception, tampering, amendment or viruses or any consequence thereof. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Charles Mills Sent: Friday, July 12, 2019 10:57 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: [External] FTP MGET Yes. The documentation is your friend. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Peter Sent: Friday, July 12, 2019 7:38 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: [External] FTP MGET Is there any kind of trace can be set on ftpd on why it just doesn't prompts me with a PDS member to download post the message 200 ? Strange it allows me to download other PDSes and only with one specific PDS it fails On Fri, 12 Jul, 2019, 5:39 PM Pommier, Rex, wrote: > John, > > Not sure what you mean here. If in ftp you do a "cd some.pds.name", > you get a "some.pds.name is a partitioned dataset" message. You can > then do a dir and get the PDS directory. You can also do an 'mget *' > and it'll download the entire PDS, giving each member a separate file > in your output directory. > > What sequence of commands causes bad behavior? > > Rex > > > -Original Message- > From: IBM Mainframe Discussion List On > Behalf Of John > Sent: Friday, July 12, 2019 7:16 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: [External] FTP MGET > > Doesn't behave well with a PDS directory. You should be able to get each > member. z/OS doesn't respond to DIR in the expected way and ftp just > stops. You can script the FTP session with ftp -s: > > > Good luck > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > The information contained in this message is confidential, protected > from disclosure and may be legally privileged. If the reader of this > message is not the intended recipient or an employee or agent > responsible for delivering this message to the intended recipient, you > are hereby notified that any disclosure, distribution, copying, or any > action taken or action omitted in reliance on it, is strictly > prohibited and may be unlawful. If you have received this > communication in error, please notify us immediately by replying to > this message and destroy the material in its entirety, whether in electronic > or hard copy format. Thank you. > > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: unresolved externals LE program
Joseph, Unless I am overlooking, your Binder Messages do NOT correspond to the SYSLIN control statements. Your SYSLIN has > IMPORT CODE,SYSADATA,opendata And your BINDER error messages show > IEW2322I 1220 1IMPORT CODE64,'SYSADATA','openadata__FPc' Thanks, Kolusu -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: [External] Strange FTP issue
Peter, I saw your note that says it works with other PDSs, just not this one. What happens if you create a new PDS and copy the members you want to the new one, then try to FTP from that one? It sounds more now like there's something corrupt in the PDS itself. Rex -Original Message- From: IBM Mainframe Discussion List On Behalf Of Peter Sent: Thursday, July 11, 2019 12:26 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: [External] Strange FTP issue Hi I am trying to download some PDS member to submit to vendor. I am trying to do ftp via dos and I am able to list the PDS from DOS. When I do mget * I get a message as '200 representation type is ASCII nonprint' and after that it is not showing up any member to download and it just goes to a ftp prompt like FTP>. I don't find a error message in lpar SYSLOG too. I tried sending file via 3270 emulator and it works but just through dos it fails Any clue where I might be looking ? Peter -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN The information contained in this message is confidential, protected from disclosure and may be legally privileged. If the reader of this message is not the intended recipient or an employee or agent responsible for delivering this message to the intended recipient, you are hereby notified that any disclosure, distribution, copying, or any action taken or action omitted in reliance on it, is strictly prohibited and may be unlawful. If you have received this communication in error, please notify us immediately by replying to this message and destroy the material in its entirety, whether in electronic or hard copy format. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
JCL COND Parameter
Having a discussion at our site as to how the jcl below should execute as far a cond code handling. I believe the two steps with COND= coded should both execute. But in my test only the one with a step name coded runs. Would appreciate other opinions. //STEP000 EXEC PGM=IEFBR14 //STEP010 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=X //SYSINDD * SET MAXCC=16 //STEPA030 EXEC PGM=IEFBR14,COND=(7,GT) //STEPA040 EXEC PGM=IEFBR14,COND=(7,GT,STEP010) STEP000 IEFBR14 -- R STEP010 IDCAMS -- R0016 STEPA030 IEFBR14 -- NXEQ STEPA040 IEFBR14 -- R -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: [External] Strange FTP issue
Even if try to copy to a new PDS and it gives out me the same issue. How do find if there is any snag with PDS search and download via FTP ? But I can send the member to the PC desktop (one at a time) using the 3270 emulator . I can guess there is some kind of technical error embedded inside the PDS which is not visible to me On Fri, 12 Jul, 2019, 8:48 PM Pommier, Rex, wrote: > Peter, > > I saw your note that says it works with other PDSs, just not this one. > What happens if you create a new PDS and copy the members you want to the > new one, then try to FTP from that one? It sounds more now like there's > something corrupt in the PDS itself. > > Rex > > -Original Message- > From: IBM Mainframe Discussion List On Behalf > Of Peter > Sent: Thursday, July 11, 2019 12:26 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: [External] Strange FTP issue > > Hi > > I am trying to download some PDS member to submit to vendor. > > I am trying to do ftp via dos and I am able to list the PDS from DOS. When > I do mget * I get a message as '200 representation type is ASCII nonprint' > and after that it is not showing up any member to download and it just > goes to a ftp prompt like FTP>. > > I don't find a error message in lpar SYSLOG too. > > I tried sending file via 3270 emulator and it works but just through dos > it fails > > Any clue where I might be looking ? > > Peter > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send email > to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > The information contained in this message is confidential, protected from > disclosure and may be legally privileged. If the reader of this message is > not the intended recipient or an employee or agent responsible for > delivering this message to the intended recipient, you are hereby notified > that any disclosure, distribution, copying, or any action taken or action > omitted in reliance on it, is strictly prohibited and may be unlawful. If > you have received this communication in error, please notify us immediately > by replying to this message and destroy the material in its entirety, > whether in electronic or hard copy format. Thank you. > > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: JCL COND Parameter
Condition code testing in JCL, has always seemed backward logic to me. But, as I understand it, maybe, the reason STEPA030 didn't run was because STEP000 had RC=0 and STEPA030 didn't specify a STEP name. COND=(7,GT) means all steps prior to the condition code testing would have to (7,GT). -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Tony Sambataro Sent: Friday, July 12, 2019 2:34 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: JCL COND Parameter Having a discussion at our site as to how the jcl below should execute as far a cond code handling. I believe the two steps with COND= coded should both execute. But in my test only the one with a step name coded runs. Would appreciate other opinions. //STEP000 EXEC PGM=IEFBR14 //STEP010 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=X //SYSINDD * SET MAXCC=16 //STEPA030 EXEC PGM=IEFBR14,COND=(7,GT) //STEPA040 EXEC PGM=IEFBR14,COND=(7,GT,STEP010) STEP000 IEFBR14 -- R STEP010 IDCAMS -- R0016 STEPA030 IEFBR14 -- NXEQ STEPA040 IEFBR14 -- R -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: [External] Strange FTP issue
Odd. Try one member at a time in the test PDS. Then we will know which member(s) cause the problem. On Fri, Jul 12, 2019 at 6:46 PM Peter wrote: > > Even if try to copy to a new PDS and it gives out me the same issue. > > How do find if there is any snag with PDS search and download via FTP ? > > But I can send the member to the PC desktop (one at a time) using the 3270 > emulator . > > I can guess there is some kind of technical error embedded inside the PDS > which is not visible to me > > On Fri, 12 Jul, 2019, 8:48 PM Pommier, Rex, wrote: > > > Peter, > > > > I saw your note that says it works with other PDSs, just not this one. > > What happens if you create a new PDS and copy the members you want to the > > new one, then try to FTP from that one? It sounds more now like there's > > something corrupt in the PDS itself. > > > > Rex > > > > -Original Message- > > From: IBM Mainframe Discussion List On Behalf > > Of Peter > > Sent: Thursday, July 11, 2019 12:26 AM > > To: IBM-MAIN@LISTSERV.UA.EDU > > Subject: [External] Strange FTP issue > > > > Hi > > > > I am trying to download some PDS member to submit to vendor. > > > > I am trying to do ftp via dos and I am able to list the PDS from DOS. When > > I do mget * I get a message as '200 representation type is ASCII nonprint' > > and after that it is not showing up any member to download and it just > > goes to a ftp prompt like FTP>. > > > > I don't find a error message in lpar SYSLOG too. > > > > I tried sending file via 3270 emulator and it works but just through dos > > it fails > > > > Any clue where I might be looking ? > > > > Peter > > > > -- > > For IBM-MAIN subscribe / signoff / archive access instructions, send email > > to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > > > > The information contained in this message is confidential, protected from > > disclosure and may be legally privileged. If the reader of this message is > > not the intended recipient or an employee or agent responsible for > > delivering this message to the intended recipient, you are hereby notified > > that any disclosure, distribution, copying, or any action taken or action > > omitted in reliance on it, is strictly prohibited and may be unlawful. If > > you have received this communication in error, please notify us immediately > > by replying to this message and destroy the material in its entirety, > > whether in electronic or hard copy format. Thank you. > > > > > > -- > > For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: JCL COND Parameter
Yes, you specify under which condition(s) to NOT run. On Fri, Jul 12, 2019 at 6:44 PM Tony Sambataro wrote: > > Having a discussion at our site as to how the jcl below should execute as far > a cond code handling. I believe the two steps with COND= coded should both > execute. But in my test only the one with a step name coded runs. Would > appreciate other opinions. > > //STEP000 EXEC PGM=IEFBR14 > //STEP010 EXEC PGM=IDCAMS > //SYSPRINT DD SYSOUT=X > //SYSINDD * > SET MAXCC=16 > //STEPA030 EXEC PGM=IEFBR14,COND=(7,GT) > //STEPA040 EXEC PGM=IEFBR14,COND=(7,GT,STEP010) > > STEP000 IEFBR14 -- R > STEP010 IDCAMS -- R0016 > STEPA030 IEFBR14 -- NXEQ > STEPA040 IEFBR14 -- R > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Amateur project: microcode emulation
Any advice, please? (apart from MVS 3.8J with Hercules. I already have that. But I lost the automation interface I wrote years ago) It's been many years since I was an IBM geek. MVS/ESA and JES3, with Z/OS on the horizon. Is there any microcode available (functionally equiv, if not the genuine article) that might allow me to start with basic 31-bit ESA instructions and perhaps add others as I go? I started an emulator that ran code for unit testing (at kips, not mips :-) ) but the good thing was that when it crashed I could slam it into reverse gear and see how I got there. I always wanted to update it and port it to run on an Android tablet and it seems I have some time now :-) Thanks in advance for any pointers or suggestions. Rupert -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: JCL COND Parameter
STEP000 executes as expected with CC=00. STEP010 executes as expected with CC=16. STEPA030 does not execute because CC=07 *is* greater than the CC=00 of STEP000. STEPA040 does execute because CC=07 *is not* greater than the CC=16 of STEP010. HTH Chris Poncelet (retired sysprog) On 12/07/2019 19:34, Tony Sambataro wrote: > Having a discussion at our site as to how the jcl below should execute as far > a cond code handling. I believe the two steps with COND= coded should both > execute. But in my test only the one with a step name coded runs. Would > appreciate other opinions. > > //STEP000 EXEC PGM=IEFBR14 > //STEP010 EXEC PGM=IDCAMS > //SYSPRINT DD SYSOUT=X > //SYSINDD * > SET MAXCC=16 > //STEPA030 EXEC PGM=IEFBR14,COND=(7,GT) > //STEPA040 EXEC PGM=IEFBR14,COND=(7,GT,STEP010) > > STEP000 IEFBR14 -- R > STEP010 IDCAMS -- R0016 > STEPA030 IEFBR14 -- NXEQ > STEPA040 IEFBR14 -- R > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > . > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: JCL COND Parameter
On Fri, 12 Jul 2019 18:50:00 +, Edgington, Jerry wrote: >Condition code testing in JCL, has always seemed backward logic to me. > I suspect it's intuitive to an Assembler programmer accustomed to branching *around* a section of code. >But, as I understand it, maybe, the reason STEPA030 didn't run was because >STEP000 had RC=0 and STEPA030 didn't specify a STEP name. > >COND=(7,GT) means all steps prior to the condition code testing would have to >(7,GT). > Use IF. It's more intuitive nowadays. >-Original Message- >From: Tony Sambataro >Sent: Friday, July 12, 2019 2:34 PM > >the jcl below should execute as far a cond code handling. I believe the two >steps with COND= coded should both execute. But in my test only the one with a >step name coded runs. Would appreciate other opinions. > >//STEP000 EXEC PGM=IEFBR14 >//STEP010 EXEC PGM=IDCAMS >//SYSPRINT DD SYSOUT=X >//SYSINDD * > SET MAXCC=16 >//STEPA030 EXEC PGM=IEFBR14,COND=(7,GT) >//STEPA040 EXEC PGM=IEFBR14,COND=(7,GT,STEP010) > >STEP000 IEFBR14 -- R >STEP010 IDCAMS -- R0016 >STEPA030 IEFBR14 -- NXEQ >STEPA040 IEFBR14 -- R -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: JCL COND Parameter
Older JCL Condition Code checking was based on RPN _ Revere Polish Notation You can use the newer https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.ieab600/ifuse.htm //[name] IF [(]relational-expression[)] THEN [comments] . .action when relational-expression is true . //[name] ELSE [comments] . .action when relational-expression is false . //[name] ENDIF [comments] > -Original Message- > From: IBM Mainframe Discussion List On Behalf Of > Tony Sambataro > Sent: Friday, July 12, 2019 11:34 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: JCL COND Parameter > > Having a discussion at our site as to how the jcl below should execute as far > a cond code handling. I believe the two steps with COND= coded should both > execute. But in my test only the one with a step name coded runs. Would > appreciate other opinions. > > //STEP000 EXEC PGM=IEFBR14 > //STEP010 EXEC PGM=IDCAMS > //SYSPRINT DD SYSOUT=X > //SYSINDD * > SET MAXCC=16 > //STEPA030 EXEC PGM=IEFBR14,COND=(7,GT) > //STEPA040 EXEC PGM=IEFBR14,COND=(7,GT,STEP010) > > STEP000 IEFBR14 -- R > STEP010 IDCAMS -- R0016 > STEPA030 IEFBR14 -- NXEQ > STEPA040 IEFBR14 -- R > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send email to > lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Strange error on DR test
When I bring up my CICS regions, one of them is giving me: "LOGR COUPLE DATA SET NOT AVAILABLE. MAKE A COUPLE DATA SET AVAILABLE OR REPLY C TO CANCEL THE CICSPTE2". I am not sure where to start to figure out this one. Any help will be appreciated. This is a single system, but sysplex is turned on (from an earlier time when they had multiple systems). It looks like all the dasd volumes restored correctly. I am not missing any. -- Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Strange error on DR test
Issue a D XCF,COUPLE,TYPE=LOGR command, see what comes back. Mark Jacobs Sent from ProtonMail, Swiss-based encrypted email. GPG Public Key - https://api.protonmail.ch/pks/lookup?op=get&search=markjac...@protonmail.com ‐‐‐ Original Message ‐‐‐ On Friday, July 12, 2019 4:09 PM, Tony Thigpen wrote: > When I bring up my CICS regions, one of them is giving me: > > "LOGR COUPLE DATA SET NOT AVAILABLE. MAKE A COUPLE DATA SET AVAILABLE OR > REPLY C TO CANCEL THE CICSPTE2". > > I am not sure where to start to figure out this one. Any help will be > appreciated. > > This is a single system, but sysplex is turned on (from an earlier time > when they had multiple systems). It looks like all the dasd volumes > restored correctly. I am not missing any. > > - > > Tony Thigpen > > - > > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Strange error on DR test
It looks like you are using the couple dataset and not dasd for logging. Check the definitions in the jct entries using the logs and how the log datasets were defined. To make it simple, turn off logging in CICS. You would need to find the jct entries specifying logging and dummy them out in the JCT entry. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Tony Thigpen Sent: Friday, July 12, 2019 4:10 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Strange error on DR test When I bring up my CICS regions, one of them is giving me: "LOGR COUPLE DATA SET NOT AVAILABLE. MAKE A COUPLE DATA SET AVAILABLE OR REPLY C TO CANCEL THE CICSPTE2". I am not sure where to start to figure out this one. Any help will be appreciated. This is a single system, but sysplex is turned on (from an earlier time when they had multiple systems). It looks like all the dasd volumes restored correctly. I am not missing any. -- Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN This e-mail, including any attachments, may be confidential, privileged or otherwise legally protected. It is intended only for the addressee. If you received this e-mail in error or from someone who was not authorized to send it to you, do not disseminate, copy or otherwise use this e-mail or its attachments. Please notify the sender immediately by reply e-mail and delete the e-mail from your system. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Strange FTP issue
> I can guess there is some kind of technical error embedded inside the PDS > which is not visible to me Peter, Just a wild guess, does any member in the PDS have "PACK ON" ? Also I noticed that you don't have REPLACE on your MGET , Did you make sure that the files don't exist? Thanks, Kolusu -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: JCL COND Parameter
On Fri, 12 Jul 2019 13:05:59 -0700, Lizette Koehler wrote: >Older JCL Condition Code checking was based on RPN _ Revere Polish Notation > Doesn't appear that way to me. In Polish Postfix (RPN, _ Revere Polish Notation) I'd expect to see not COND=(7,GT,STEP010) but: COND=(7,STEP010,GT) (or is there a yet older syntax of which I'm unaware?) >You can use the newer > >https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.ieab600/ifuse.htm > A considerable improvement, IMO. Especially adding ELSE and supporting nesting. >//[name] IF [(]relational-expression[)] THEN [comments] >. >.action when relational-expression is true >. >//[name] ELSE [comments] >. >.action when relational-expression is false >. >//[name] ENDIF [comments] > Alas, the Ref. requires that the [name]s be different but the parser doesn't enforce that. If I had been the designer, I'd have made it an enforced requirement that corresponding label fields be identical. >> -Original Message- >> From Tony Sambataro >> Sent: Friday, July 12, 2019 11:34 AM >> >> Having a discussion at our site as to how the jcl below should execute as far >> a cond code handling. I believe the two steps with COND= coded should both >> execute. But in my test only the one with a step name coded runs. Would >> appreciate other opinions. >> >> //STEP000 EXEC PGM=IEFBR14 >> //STEP010 EXEC PGM=IDCAMS >> //SYSPRINT DD SYSOUT=X >> //SYSINDD * >> SET MAXCC=16 >> //STEPA030 EXEC PGM=IEFBR14,COND=(7,GT) >> //STEPA040 EXEC PGM=IEFBR14,COND=(7,GT,STEP010) >> >> STEP000 IEFBR14 -- R >> STEP010 IDCAMS -- R0016 >> STEPA030 IEFBR14 -- NXEQ >> STEPA040 IEFBR14 -- R -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Strange FTP issue
On Fri, 12 Jul 2019 14:43:28 -0700, Sri h Kolusu wrote: >> I can guess there is some kind of technical error embedded inside the PDS >> which is not visible to me > >Just a wild guess, does any member in the PDS have "PACK ON" ? > Would that interfere with DIR or just cause corruption of transmitted data? >Also I noticed that you don't have REPLACE on your MGET , Did you make sure >that the files don't exist? > In my experience, the REPLACE option is mainframe-peculiar. Non-mainframe FTP clients simply, unconditionally, replace like named members. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Strange FTP issue
> Would that interfere with DIR or just cause corruption of transmitted data? Gil, Probably corrupted data. But I have seen strange things happen with PACK ON Thanks, Kolusu -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: [External] Strange FTP issue
PDSVERify * In a message dated 7/12/2019 5:42:53 PM Central Standard Time, rpomm...@sfgmembers.com writes: I saw your note that says it works with other PDSs, just not this one. What happens if you create a new PDS and copy -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: [External] Strange FTP issue
PDS VERify * In a message dated 7/12/2019 5:42:53 PM Central Standard Time, rpomm...@sfgmembers.com writes: What happens if you create a new PDS and copy the members you want to the new one, -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: JCL COND Parameter
As a long-time assembler programmer and JCL wrangler, I absolutely think that COND is backwards, confusing, and the opposite of intuitive. Whenever multiple CONDs are present, I'm lost. Is it OR or AND and is that in the positive or negative sense? The new* IF / ELSE / ENDIF statements are an infinite improvement. sas *"new" still means "in the last 25 years". On Fri, Jul 12, 2019 at 3:41 PM Paul Gilmartin < 000433f07816-dmarc-requ...@listserv.ua.edu> wrote: > On Fri, 12 Jul 2019 18:50:00 +, Edgington, Jerry wrote: > > >Condition code testing in JCL, has always seemed backward logic to me. > > > I suspect it's intuitive to an Assembler programmer accustomed to > branching *around* a section of code. > ... > > > Use IF. It's more intuitive nowadays. > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Amateur project: microcode emulation [SEC=UNOFFICIAL]
Hi Rupert; Have you seen "VisibleZ" which can be downloaded via https://punctiliousprogrammer.com/ ? Regards; Phil -Original Message- From: IBM Mainframe Discussion List On Behalf Of Rupert Reynolds Sent: Saturday, 13 July 2019 5:18 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Amateur project: microcode emulation Any advice, please? (apart from MVS 3.8J with Hercules. I already have that. But I lost the automation interface I wrote years ago) It's been many years since I was an IBM geek. MVS/ESA and JES3, with Z/OS on the horizon. Is there any microcode available (functionally equiv, if not the genuine article) that might allow me to start with basic 31-bit ESA instructions and perhaps add others as I go? I started an emulator that ran code for unit testing (at kips, not mips :-) ) but the good thing was that when it crashed I could slam it into reverse gear and see how I got there. I always wanted to update it and port it to run on an Android tablet and it seems I have some time now :-) Thanks in advance for any pointers or suggestions. Rupert -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ** IMPORTANT: This e-mail is for the use of the intended recipient only and may contain information that is confidential, commercially valuable and/or subject to legal or parliamentary privilege. If you are not the intended recipient you are notified that any review, re-transmission, disclosure, dissemination or other use of, or taking of any action in reliance upon, this information is prohibited and may result in severe penalties. If you have received this e-mail in error please notify the sender immediately and delete all electronic and hard copies of this transmission together with any attachments. Please consider the environment before printing this e-mail ** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: JCL COND Parameter
I always guessed COND= was invented by someone who took a Boolean Logic or Digital Electronics class, where I once heard that negative logic NAND/NOR ends up with less logic or hardware than AND/OR. On 7/12/2019 5:41 PM, Steve Smith wrote: As a long-time assembler programmer and JCL wrangler, I absolutely think that COND is backwards, confusing, and the opposite of intuitive. Whenever multiple CONDs are present, I'm lost. Is it OR or AND and is that in the positive or negative sense? The new* IF / ELSE / ENDIF statements are an infinite improvement. sas *"new" still means "in the last 25 years". On Fri, Jul 12, 2019 at 3:41 PM Paul Gilmartin < 000433f07816-dmarc-requ...@listserv.ua.edu> wrote: On Fri, 12 Jul 2019 18:50:00 +, Edgington, Jerry wrote: Condition code testing in JCL, has always seemed backward logic to me. I suspect it's intuitive to an Assembler programmer accustomed to branching *around* a section of code. ... Use IF. It's more intuitive nowadays. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: JCL COND Parameter
On 2019-07-13 10:42 AM, Steve Smith wrote: Whenever multiple CONDs are present, I'm lost. Is it OR or AND and is that in the positive or negative sense? When I started I was told: Always say "Bypass this step if" and then begin reading the COND parameter. Cheers, Greg -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
