Re: Submit a series of jobs in order after the previous has completed
I suspect that more than one solution will work, but only one will give you the complete control of your need(not only to serialise job but also to control them) In the easiest way you need 2 programs (i.e. rexx): the first one that makes a submit and sleeps and another one that will always(in each job is the last step cond=even) write all steps rc into a file(you can trap jobname, number of volume etc etc.) When the file is written the first release(submit) next one or exit the sequence. But you need two init... In my opinion is better to have one dutctile program that "interpret" jcls and makes it powerfull using steps as "object" and improving jcl to pass argument to job/step/program In a program you can control all...in other way you have to make redundant control manually... But it's only a my opinion. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
OMVS S213-FC
Hi, we have a problem in a rexx function that send data using ftpapi and after start ssh using bpxbatch. The problem occurs randomly and appare as a S213-FC when we try to make operation on output files(i.e. ftp log) This happens rarely and we have just checked the correct syntax of rm/alloc/open/write/close I see many processes under sdsf and the sequence is: -sh -c ssh userATremote ssh userATremote command ssh-rand-helper ssh-rand-helper How can this be possible? is a problem returning control from omvs? Thanks in advance and happy Easter. Marco -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: OMVS S213-FC
Hi Lizette, yes, we traced and verified spool for allocation of that file... It's removed, allocated and written sequentially and used only to write after checks ftpapi's stem. I can't understand.. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: OMVS S213-FC
This is from my spool: IGD103I SMS ALLOCATED TO DDNAME FTPOUT IGD104I HFS FILE WAS RETAINED, DDNAME IS (FTPOUT ) FILENAME IS (/tmp/jobssh/test.ftp) IGD103I SMS ALLOCATED TO DDNAME FTPOUT IEC104I 0009,TEST,XCOMPROC,FTPOUT -000,BPX1STA ,0081,053B006C, /tmp/jobssh/test.ftp IEC143I 213-FC,IGG0199G,TEST,XCOMPROC,FTPOUT IEA995I SYMPTOM DUMP OUTPUT SYSTEM COMPLETION CODE=213 REASON CODE=00FC TIME=18.47.56 SEQ=07170 CPU= ASID=009B PSW AT TIME OF ERROR 075C1000 80E690DA ILC 2 INTC 0D NO ACTIVE MODULE FOUND NAME=UNKNOWN DATA AT PSW 00E690D4 - 41003B9A 0A0D41F0 38C256F0 AR/GR 0: 93B67DCA/_00E693BC 1: /_A4213000 2: /_D350 3: /_00E68822 4: /_00876D60 5: /_0087633C 6: /_008762E4 7: /_0087633C 8: /_00876304 9: /_008910A0 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: OMVS S213-FC
PATHDISP are KEEP,KEEP -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: OMVS S213-FC
Ok, those are values for allocation. PathOPTS(OWRONLY,OCREAT) PathMode(SIRWXU,SIRWXG,SIRWXO) PathDisp(KEEP,KEEP) This problem does not happen everytime At the moment I've bypassed the problem using echo instead of execio. Regards -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Control date format using Rexx
You can try to convert date (i.e.) from ordered filling / to anyotherformat and menage specific syntax error using signal on syntax. Refer to Rexx Reference -> Built-in function -> Date Regards. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Recursive PERFORM in COBOL
I wrote a recursive perform tired to create a new one when change only a row if the structure is the same(I coded different WHEN clause within). Of course I make a set and a reset of variable when I'm calling and returning but what really means Unpredictable is really obscure... I suppose that a program in another language is unpredictable too if you avoid to code an exit point...(I think a basic factorial function...) Maybe depend on what a programmer thinks to be returned? A new instance with isolated variables? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: FTP time out
Which kind of command doesn't work? If you login "open" and "user" are fine... -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: get the DSCB with REXX.
Hi. LISTDSI works only under TSO, if you want to trap same msgs(and more) you can also use Storage function to surf MVS Data Area with swareq pointing to jfcb and subfields. Used properly allows a perfect usage of jcl info. Regards, Marco -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: get the DSCB with REXX.
:>JFCB does not contain much of the DSCB. Sorry, more than LISTDSI, of course. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Rexx to check available virtual storage
Hi to all, does anybody know a method to check how many region is used and available possibly using rexx? I have a problem calling repetitive SYNCSORT from my rexx pgm and, I suppose, that SYNCSORT never release(or reuse) allocated memory. Any comment is appreciate. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Rexx to check available virtual storage
Ok, I've just tried your sample and works as my need. It shows the amount of unreleased virtual storage by SYNCSORT at each call. Thank you very much to you all. Ciao, Marco. 2010/3/30 Mark Zelden > On Tue, 30 Mar 2010 11:58:15 +0200, Marco Gianfranco Indaco > wrote: > > >Hi to all, does anybody know a method to check how many region is used and > >available possibly using rexx? > >I have a problem calling repetitive SYNCSORT from my rexx pgm and, I > >suppose, that SYNCSORT never release(or reuse) allocated memory. > > > >Any comment is appreciate. > > > > You can use my REXXSTOR exec and either call it from yours, or as a > sample for getting the information from the LDA. > > See my web site (URL below) or CBT file 434 - http://www.cbttape.org. > > Mark > -- > Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS > mailto:mzel...@flash.net > Mark's MVS Utilities: > http://home.flash.net/~mzelden/mvsutil.html<http://home.flash.net/%7Emzelden/mvsutil.html> > Systems Programming expert at http://expertanswercenter.techtarget.com/ > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: [MVS-OE] compress dataset converting dsname in filename
Thanks for pax help but I suppose that this does not meet all my needs cause I want to compress lot of files into one and I don't want to copy/pax each file under uss mainly for storage reasons(but also for steps reason*)... for what I know(maybe I'm wrong) create a tmp under mvs is not the same than create a file under USS on a ZFS. Never heard about AMATERSE, seems good for transfer between mainframe only, is correct?(if not may be an idea but for other scenario) What I'm looking for is something like this(from jcl, for cmd i thought to a file list): //TEST EXEC PGM=---paxAlot ...dds //OUT DD PATH='/somewhere/myfile.tgz',... or DSN=HLQ.MYFILE.TGZ //INP DD * HLQ.A as file_1 HLQ.B as file_2 HLQ.C as file_3 Under USS each file is a VB, is correct?(A pax too...?) So customizing filename it's possible(using an exit) restore data in all system maintain DCB attributes (i.e. [REC=FB,LR=80]file_1). I'm not adventuring writing a macro cause I'm not sure that performance will satisfy the effort(... I'd enjoy but have no time and surely I've not the right skill) (*) Actually I transfer to an external server all file, I compress there and I have back a binary tgz(2GB) on a VB file. It's not safe, I know, but works and costs are not bad using only ftp and an external processor. If there is a method to compress all under z/os I can make it safer and have full control of the process. Regards. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: [MVS-OE] compress dataset converting dsname in filename
Reading my answer and first post the problem is aked in the wrong way. This is not an MVS-OE question. Maybe a solution is ZIP390 ... Sorry. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: [MVS-OE] compress dataset converting dsname in filename
Hi John. Ok for dcb consideration, I apologize to you. I semplified all to "variable" because outside, most of times, datalenght of ASCII file is not fixed. We fix data for "our" programs, depending on needs and language(and this is also true under other os). Data is sent to the external server in ASCII [locsite SBD=(IBM-1047,IBM-850)] and the tgz(made using OpenSSH) returns and then shared in BINARY. All our data files are ASCII. File tgz is stored in a gdg and transferred to other machines unix and win with different tools(ftp/thema) (and the first machine, where I make tgz, that share data unzipped too). I dont' know if there is a better solution at the same cost. I propably took the wrong way analizing problem starting from conversion from dsname to filename, sorry. I remembered(after) an old installation with ZIP390 that makes(perhaps exactly) what I said but it's not free so I can't ask for it. There is another eligible tool "Info-Zip" that's free and seems to work on OS/390(not sure on z/OS, we have 1.10) but in each case is unavailable for dowload. Regards. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: GDG
I suppose that this can happens to the gdgbase too. You can check if a base exist and so you can create it if is not. So, at the same step you can allocate first version and manage with different rc if you want to compare with a dummy or a -1 I'm wrong? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Scanning JES3 JCL
Hi. I made a Rexx for a porting from one z/os to another some year ago and I've separated each piece of jcl to manipulate and reconstruct a new jcl with new rule because in old installation we had both procs/proc-pend and standard jcl and in the new installation we had to convert all in PROC format and separate main jcl from proc ( 3k object, procs, source, instream data etc). With that Rexx and all component divided I found a way to compact each recursive process(steps) to make centralized proc. It's complicated but it works and needs to be checked i.e. for scheduler variables that are not always stored in jcl(like dcb information, gdg limit and so on...) At the end it produce an excel with old form and new form(for syntax and naming convention) It was a great job... :-) except for LE and DFSORT defaults that were different... For that experience I can say that the best is working with rexx and smf to do what you need, not jes 3(imo, cause I don't know well). Regards. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Question on scheduling security for TWS ad-hoc jobs
Obviously it's all possible. The work depend on what kind of operations are made before submit and if you want to have full control. I think that the best way is manage all under sw lifecycle and use a smart way to release object(input data or other thing) to prod before start. You can determine start of application using event trigger under mvs or unix to control in many ways your process. About authority(if you don't want to use sw lifecycle that may have another authorization level) you can define users to start particular application only or you can allow a user to write a particular file or give to him the authority to write into a particular folder(unix). About TWS you can decide to have runcycle dependent or unattended application or on demand. I don't think that this will help you because there are several way to accomplish your colleague's needs. Best regards -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: BPXWDYN re-uses DUMMY
ops, wrong msg. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: BPXWDYN re-uses DUMMY
If I well understood your need you can refer to this good external link: https://dovetail.com/forum/viewtopic.php?f=4&t=1100 Regards -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: BPXWDYN re-uses DUMMY
I'm sorry for the previous post and I'm sure that I'm not currently
understanding and not helping but I try to give my contribute better than
above(I hope).
Now I start from your subject: yes seems to reuse DUMMY, but in different
way if foreground or batch.
Regarding "bpxwdyn alloc dummy (with retrieve of DD, that seems the only
case)" I tried to create a test and I found more results in batch than in
foreground.
So I'm not sure that this depends on logon proc but on how bpxwdyn works to
avoid to allocate multiple DUMMY (IMHO "not usables").
I tried this two command under a z/OS 1.12 in foreground and batch
call bpxwdyn "alloc DUMMY "
and
call bpxwdyn "alloc DUMMY rtddn(XYZZY)"
the first command both in foreground and batch has no effect(no SYSn ddname
is created).
Running foreground:
The second command when you try to retrieve ddname create a SYS"n"+2 but
only if you have not a previous SYSn-NULLFILE(or null?-NULLFILE). In
that case it reuse the last SYSn NULLFILE.
If you have a user defined DUMMY it is not considered, it create a new one.
If you run the same command the second time it reuse the same DD.
If you free that DD it creates a new one +2(in my tests)
Running batch using IKJEFT1A
- the first test show that no new dd is created and keep the name of the
first one.
- the second test show that if exist a concatenated NULLFILE it create a
new ddname.
- the third test show that in two different steps(second test) it create
more, but different, ddname.
JCL-1:
//TEST1 EXEC PGM=IKJEFT1A,PARM='$'
//SYSEXEC DD DISP=SHR,DSN=mylib
//SYSTSIN DD DUMMY
//PROVA001 DD DUMMY
//PROVA002 DD DUMMY
//SYSTSPRT DD SYSOUT=*
RESULT-1:
0
0
PROVA001
1-inrelno(1) inrtdsn(mylib) inrtddn(SYSEXEC)
1-inrelno(2) inrtdsn(NULLFILE) inrtddn(SYSTSIN)
1-inrelno(3) inrtdsn(NULLFILE) inrtddn(PROVA001)
1-inrelno(4) inrtdsn(NULLFILE) inrtddn(PROVA002)
1-inrelno(5) inrtdsn(userid.jobname.J0123603.D101.?) inrtddn(SYSTSPRT)
,SYSTSIN,PROVA001,PROVA002
JCL-2:
//TEST2 EXEC PGM=IKJEFT1A,PARM='$'
//SYSEXEC DD DISP=SHR,DSN=mylib
//SYSTSIN DD DUMMY
//PROVA001 DD DUMMY
//PROVA002 DD DUMMY
// DD DUMMY
//SYSTSPRT DD SYSOUT=*
RESULT-2:
0
0
SYS1
1-inrelno(1) inrtdsn(mylib) inrtddn(SYSEXEC)
1-inrelno(2) inrtdsn(NULLFILE) inrtddn(SYSTSIN)
1-inrelno(3) inrtdsn(NULLFILE) inrtddn(PROVA001)
1-inrelno(4) inrtdsn(NULLFILE) inrtddn(PROVA002)
1-inrelno(5) inrtdsn(NULLFILE) inrtddn()
1-inrelno(6) inrtdsn(userid.jobname.J0123607.D101.?) inrtddn(SYSTSPRT)
1-inrelno(7) inrtdsn(NULLFILE) inrtddn(SYS1)
,SYSTSIN,PROVA001,PROVA002,,SYS1
JCL-3:
//TEST3A EXEC PGM=IKJEFT1A,PARM='$'
//SYSEXEC DD DISP=SHR,DSN=mylib
//SYSTSIN DD DUMMY
//PROVA001 DD DUMMY
//PROVA002 DD DUMMY
// DD DUMMY
//SYSTSPRT DD SYSOUT=*
//TEST3B EXEC PGM=IKJEFT1A,PARM='$'
//SYSEXEC DD DISP=SHR,DSN=mylib
//SYSTSIN DD DUMMY
//PROVA001 DD DUMMY
//PROVA002 DD DUMMY
// DD DUMMY
//SYSTSPRT DD SYSOUT=*
Result-3A:
0
0
SYS1
1-inrelno(1) inrtdsn(mylib) inrtddn(SYSEXEC)
1-inrelno(2) inrtdsn(NULLFILE) inrtddn(SYSTSIN)
1-inrelno(3) inrtdsn(NULLFILE) inrtddn(PROVA001)
1-inrelno(4) inrtdsn(NULLFILE) inrtddn(PROVA002)
1-inrelno(5) inrtdsn(NULLFILE) inrtddn()
1-inrelno(6) inrtdsn(userid.jobname.J0126954.D101.?) inrtddn(SYSTSPRT)
1-inrelno(7) inrtdsn(NULLFILE) inrtddn(SYS1)
,SYSTSIN,PROVA001,PROVA002,,SYS1
Result-3B:
0
0
SYS2
1-inrelno(1) inrtdsn(mylib) inrtddn(SYSEXEC)
1-inrelno(2) inrtdsn(NULLFILE) inrtddn(SYSTSIN)
1-inrelno(3) inrtdsn(NULLFILE) inrtddn(PROVA001)
1-inrelno(4) inrtdsn(NULLFILE) inrtddn(PROVA002)
1-inrelno(5) inrtdsn(NULLFILE) inrtddn()
1-inrelno(6) inrtdsn(userid.jobname.J0126954.D102.?) inrtddn(SYSTSPRT)
1-inrelno(7) inrtdsn(NULLFILE) inrtddn(SYS2)
,SYSTSIN,PROVA001,PROVA002,,SYS2
the above msg are from this code:
/*REXX*/
call bpxwdyn "alloc DUMMY MSG(S99A.)"
say S99A.0
call bpxwdyn "alloc DUMMY rtddn(XYZZY) MSG(S99B.)"
say S99B.0
say XYZZY
src_dsn = 'NULLFILE'
last = 0
ddlist = ''
Do i = 1 by 1 Until (last /= 0)
Call bpxwdyn 'info inrelno('i') inrtdsn(found_dsn)',
'inrtddn(found_dd)',
'inrtlst(last)'
say '1-inrelno('i') inrtdsn('found_dsn') inrtddn('found_dd')'
/*say '1-inrelno('i') inrtdsn('found_dsn') inrtddn('found_dd')'
*/ If found_dsn = src_dsn Then ddlist=ddlist','found_dd
End
say ddlist
return
What are you expecting from your command? That each time alloc a new DUMMY
DD? I'm just courious... why?
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: BPXWDYN re-uses DUMMY
Maybe stupid but usually I referr to a function that make a photo of allocated resource in the data areas at the begin and at the end of some process to be sure that all allocated resources are correctly FREEd. Is not an interface like you mean but may help to solve some problem. I tried bpxwdyn info but is too expensive and, in this case, doesn't help without the relno of operation, and is courious that you can inquire it after but not trap it when done. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
FTP Recall HSM instead of DMS
Hi to all. We have a problem in a batch FTP that try to recall a locally migrated dataset(ftp is a GET (REPLACE ) and fail because it try to use HSM(ADSMI002 error) instead of DMS. We are in a sysplex and the same FTP works fine in 3/4 of SYS. Using other method(IEFBR14 and so on) recall works fine. Any idea? Tks in advance. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: FTP Recall HSM instead of DMS
Ops, I pasted the wrong msg, sorry the error is ARC0050A Current version is CA DISK r12.5 Apologize. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: FTP Recall HSM instead of DMS
z/OS 1.12 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: FTP Recall HSM instead of DMS
Tks, for the suggest, I've not verified but it works using IEFBR14 and other utility. The problem affect ftp only both if client or server -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: FTP Recall HSM instead of DMS
Hi, just for the next one who will read here looking for a solution to this problem. We solved checking DMS hooks. submit DMSAR using: DMSAR,DMSAR=STATUS that shows up all the active hooks. Check the hooks and reinstall them if needed. In our case it was a conflict during IPL. Regards. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
ICETOOL and USS HFS SYMNAMES
Hi. I've a problem calling ICETOOL and referring SYMNAMES as unix file. I suppose that's caused by CrLf but I have no idea on how to solve it. jcl sample: //TEST EXEC PGM=ICETOOL //SYMNAMES DD PATHOPTS=(ORDONLY),PATH='file' toolmsg: ICE270I 1 PROCESSING SYMNAMES STATEMENTS SOC2_N,1,2 DLMS1,*,1 SOC3_N, $ Many thanks in advace. Regards, -- Marco Indaco MF Consultant Loc : Milan, Italy Mob : (+39) 335 7035564 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: ICETOOL and USS HFS SYMNAMES
thank you all. FILEDATA=TEXT works fine with SYMNAMES(but not in TOOLIN, DFSPARM and CNTL DD statements) DSORG, LRECL and RECFM work fine everywhere. Regards 2009/9/4 Steve Comstock > Martin Packer wrote: > >> WIBNI there were adapters between HFS files and Sequential Data Sets? >> >> Martin >> >> Martin Packer >> Performance Consultant >> IBM United Kingdom Ltd >> +44-20-8832-5167 >> +44-7802-245-584 >> >> email: martin_pac...@uk.ibm.com >> >> Twitter ID: MartinPacker >> >> "They're figuring out that collaboration isn't a productivity hit, it >> makes them smarter." Sam Palmisano on BlogCentral, 26 November 2008 >> >> >> >> >> >> 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 >> > > Well, you could try adding DSORG=F,BLKSIZE=80 on your DD statement > > > > Kind regards, > > -Steve Comstock > The Trainer's Friend, Inc. > > 303-393-8716 > http://www.trainersfriend.com > > z/OS Application development made easier >* Our classes include > + How things work > + Programming examples with realistic applications > + Starter / skeleton code > + Complete working programs > + Useful utilities and subroutines > + Tips and techniques > > ==> Ask about being added to our opt-in list: <== > ==> * Early announcement of new courses <== > ==> * Early announcement of new techincal papers <== > ==> * Early announcement of new promotions <== > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > -- Marco Indaco MF Consultant Loc : Milan, Italy Mob : (+39) 335 7035564 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
(ssh Client) z/OS to OpenSSH (CopSSH sshd) on Win Y2K SP4
Hi to all.
I've a problem when I connect via ssh my USS session to CopSSH using pubkey
and after starting a VbScript to exceute a MsExcel macro.
When I start the vbscript that make a CreateObject("Excel.Application")
it gives a "Permission denied" but this doesn't happens if I
authenticate using password.
I think that problem is about unix vs windows API permission but why only
one method works fine? Any suggest?
Many thanks in advance.
Regards.
--
Marco Indaco
MF Consultant
Loc : Milan, Italy
Mob : (+39) 335 7035564
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: How to verify if Secured FTP is being used
You have to verify if SFTP(ssh ftp) or FTPS(ftp over tls) is used but on z/OS, for what I know we use only the second. Regarding port question, I'm almost sure that port may be also 21 for ftps that doesn't matter...(and may also be high and not secured) SMF if implemented can use default TYPE 119 with different subtype record. Configuration of connection method is on DD SYSFTPD. For secure connection you will find a SECURE_FTP allowed or required and other parameter like secure_mechanism(i.e. TLS). If you can verbose or debug your connection(or you have a log) you will see if AUTH/PROTP is done. i.e. EZA1701I >>> AUTH TLS 234 Using authentication type TLS EZA2895I Authentication negotiation succeeded EZA1701I >>> PBSZ 0 200 PBSZ=0 EZA1701I >>> PROT P 200 Protection level set to P EZA2906I Data connection protection is private For uss connection SYSFTPD can be included using -f option and security mechanism specified using -r option. Hope in this. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: How to verify if Secured FTP is being used
AT-TLS on SMF 119 http://publib.boulder.ibm.com/infocenter/zos/v1r9/index.jsp?topic=/com.ibm.zos.r9.e0zh300/smfrt.htm -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: How to verify if Secured FTP is being used
*" That is, the process may go on and pick a 'security mechanism'." *Depends on ftpd configuration and what you mean with "secure transfer"(still talking about ftp and not network tricks) If you need a secure login that is often used for secure transfer you cannot pick a security mechanism after ftpOpen. You can receive a message like:* 530 Have to use explicit SSL/TLS before logging on. * -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Transfer files from Z/OS and Linux with conversion data
zos ftp client has in SYSFTPD a parameter SBDATACONN that allow conversion from EBCDIC to ASCII i.e. "SBDATACONN (IBM-1047,IBM-850) ; ebcdic/ascii code sets for data conn. " If not specified you can invoke it using "locsite SBD=(IBM-1047,IBM-850)" To convert data you need directly or indirectly a copybook and ftp, in this case, can't help you. IMO a simply way to convert PD and BI data is using sort statement. Is not clear, for me, what you want to do with GDG... -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Upgrade to z/OS 1.10 and SSH 3.8p1
Hi to all. We are updating from zos 1.9 to 1.10 and openssh from 3.5 to 3.8 We found problem cause in 3.5 we used to configure keys and KN for each user but in 3.8 default is changed and always read from root directory. We tried to change ssh_config to point, dinamically, to the logon user but is not working. Any suggest? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: "base" arithmetic in REXX
You made the best, this maybe the ermetic structure.
I suppose that STRIP leading zeroes is unuseful in REXX
/*Rexx*/
alphabet="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
say d2eng(input_number)
Return
d2eng: procedure expose alphabet
i = arg(1) + 0
output=""
do while i>0
output=substr(alphabet,i//26+1,1)||output
i=i%26
end
if 0 = length(output) then return "A"
else return output
If you need to run use it heavly(more than 30 times) you can also use stem
instead substr
i.e.
/*Rexx*/
alphabet="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
j = 0 ; str = '' ; len = length(alphabet)
do j = 1 to len
str = str||j' alpha.'j' +1 '
end
interpret "Parse Var alphabet "str
say d2eng(1)
Return
d2eng: procedure expose alpha. len
i = arg(1) + 0
output=""
do while i>0
output=Value("alpha."i//len+1)||output
/* or j = i//len+1
output=alpha.j||output */
i=i%len
end
if 0 = length(output) then return "A"
else return output
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IEC614I EXTEND FAILED - RC 000, DIAGNOSTIC INFORMATION IS (04034379)
Which kind of file are you allocating? And what are allocation space options? Have you tried specifing //*VAMBYPAS* DD DUMMY Regards. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IEC614I EXTEND FAILED - RC 000, DIAGNOSTIC INFORMATION IS (04034379)
Can you try to increase unit from unit=sysda to unit=(sysda,20) it's only a sample but this space error except for vam message may seems too easy to solve... and if I can, I'd suggest you to read sort manual to setup properly your statement i.e. using dynalloc and usize command. regards -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: How to get filename of a DD PATH="xxxx" at runtime?
I had the same problem and I solved using BPXWDYN Call bpxwdyn "Info fi(STDERR) INRTPATH(FNAME)" Hope in this. Regards. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
[MVS-OE] compress dataset converting dsname in filename
Hi to all. There's a way using bpxbatch to create a tar.gz of dataset and to convert in the compress the dsname into filename? Regards. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Unix and VBA files.
I'm sure that we cannot override SYSPRINT length using idcams or iebgener...
but reading your need you can try using a single step of tso batch like
this, no rexx is needed.
//P0 EXEC PGM=IKJEFT01
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTSPRT DD SPACE=(CYL,(1,1)),UNIT=VIO
//SORTIN DD DISP=(OLD,DELETE),DSN=*.SYSTSPRT,VOL=REF=*.SYSTSPRT
//OUT DD PATHOPTS=(ORDWR,OCREAT),
//PATHDISP=(KEEP,DELETE),
//PATHMODE=(SIRWXU,SIRWXO),
//LRECL=132,FILEDATA=TEXT,
//PATH='/u/prova.txt'
//SYSTSIN DD *
LISTCAT LEVEL('myprefix.blabla')
SORT
//SYSINDD *
SORT FIELDS=COPY
OUTFIL FNAMES=OUT,VTOF,
INCLUDE=(14,07,CH,EQ,C'---'),
OUTREC=(6,132)
2010/4/30 Shane Ginnane
> Ran into an oddball today.
>
> Needed to quickly diff a couple of z/OS catalogs, and figured it'd be
> easier using awk/diff than knocking up
> some REXX. So I ran LISTCAT and from SDSF XDC'd the sysprint. Pulled that
> over to OMVS to play with,
> couple of lines of awk, job done - DEF ALIAS for each difference in a file
> to use as SYSIN for IDCAMS
> again.
> Easy.
>
> Decided I needed a standard job to do it all, so used OFILE in the LISTCAT
> job to generate the listings
> into files. Even added DCB of VB, 140 just to be sure. IDCAMS forces VBA,
> which I didn't pick up on
> until later. Same script with those (erstwhile) VBA files fails due to
> every line that has a page skip control
> (char "1" in column 1) being appended to the previous line. No line feed.
> A GENER of the files to VB prior to sending them to OMVS indeed confirmed
> this is what was happening.
>
> Anyone else seen this - or got an explanation ?. gil maybe ... ?
>
> Shane ...
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
> Search the archives at http://bama.ua.edu/archives/ibm-main.html
>
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Unix and VBA files.
I suppose that you missed FILEDATA: BINARY means "The file described by the DD statement is a byte-stream file and does not contain record delimiters. The access method does not insert or delete record delimiters." TEXT means "The file described by the DD statement contains records delimited by the EBCDIC newline character (x’15’)." default is Binary. (From MVS JCL Reference) 2010/4/30 Shane Ginnane > G'day Marco, I'm not so concerned with getting the data across to OMVS, but > more with why the > change in RECFM had such a major impact once the data was there. > > Shane ... > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Unix and VBA files.
Shane, the option FILEDATA=x is available as argument of cp unix command: -B for Binary -T for text -X for exe cp -T "//'yourds'" /u/yourfile.txt bye. 2010/4/30 Hunkeler Peter (KIUP 4) > >cp //"'..'" /tmp/file.txt > >and/or cat //"'..'" > /tmp/file.txt > > Before posting my question, I ran a LISTC with OFILE, verified > it is VBA-140, then did > > cat '//TEMP.LISTCOUT' > temp.listcout > > I'm baffled that I don't see the ASA char when doing a > > cat temp.listcout > > afterwards. anyway, I don't see ans lines concatenated > as you described. Can't explain right now, neither your > problem nor mine. Will have to think about it a bit more. > > -- > Peter Hunkeler > CREDIT SUISSE AG > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Cobol Db2 Question
Hi to all. Does somebody know if it's possible convert a static cursor into dynamic (or both)? Is there a special host-variable where the static cursor is stored to be called dynamically? Regards. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: BLSR
IBM Redbooks SG246105 VSAM Demystified 2010/8/24 Scott Rowe > Why? > > >>> Aled Hughes 8/24/2010 11:16 AM >>> > Try this Cisco website: > > https://www.cisco.com/en/US/products/hw/optical/ps2006/products_command_reference_chapter09186a0080950dbf.html > > > > > > > > > > > > -Original Message- > From: ITURIEL DO NASCIMENTO NETO <4254.itur...@bradesco.com.br> > To: IBM-MAIN@bama.ua.edu > Sent: Tue, Aug 24, 2010 4:06 pm > Subject: BLSR > > > Hi all, > Does any of you know if there is a tool named BLSR Aid ? If it exists > here can i find it ? > TIA > Atenciosamente / Regards / Saludos > turiel do Nascimento Neto > ANCO BRADESCO S.A. > 254 / DPCD Engenharia de Software > istemas Operacionais Mainframes > el: +55 11 4197-2021 R: 22021 Fax: +55 11 4197-2814 > > > HTML>AVISO LEGAL Esta mensagem é > > estinada exclusivamente para a(s) pessoa(s) a quem é dirigida, podendo > conter > nformação confidencial e/ou legalmente privilegiada. Se você não > for > estinatário desta mensagem, desde já fica notificado de abster-se a > divulgar, > opiar, distribuir, examinar ou, de qualquer forma, utilizar a > informação > ontida nesta mensagem, por ser ilegal. Caso você tenha recebido esta > mensagem > or engano, pedimos que nos retorne este E-Mail, promovendo, desde logo, > a > liminação do seu conteúdo em sua base de dados, registros ou sistema > de > ontrole. Fica desprovida de eficácia e validade a mensagem que > contiver > Ãnculos obrigacionais, expedida por quem não detenha poderes de > epresentação. > LEGAL ADVICE This message is > > xclusively destined for the people to whom it is directed, and it can > bear > rivate and/or legally exceptional information. If you are not addressee > of this > essage, since now you are advised to not release, copy, distribute, > check or, > therwise, use the information contained in this message, because it is > illegal. > f you received this message by mistake, we ask you to return this > email, making > ossible, as soon as possible, the elimination of its contents of your > database, > egistrations or controls system. The message that bears any mandatory > links, > ssued by someone who has no representation powers, shall be null or > void. > -- > or IBM-MAIN subscribe / signoff / archive access instructions, > end email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO > earch the archives at http://bama.ua.edu/archives/ibm-main.html > > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > > > > CONFIDENTIALITY/EMAIL NOTICE: The material in this transmission contains > confidential and privileged information intended only for the addressee. > If you are not the intended recipient, please be advised that you have > received this material in error and that any forwarding, copying, > printing, distribution, use or disclosure of the material is strictly > prohibited. If you have received this material in error, please (i) do > not read it, (ii) reply to the sender that you received the message in > error, and (iii) erase or destroy the material. Emails are not secure > and can be intercepted, amended, lost or destroyed, or contain viruses. > You are deemed to have accepted these risks if you communicate with us > by email. Thank you. > > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
jcl vs pgm call
Hi to all, it's probably a stupid question. Which is the most expensive method to call a program in batch mode? Using a PGM=program within a submitted(and converted) jcl or calling the program from a another one. And what about data definition? Allocate a file within a program or from the jcl? i.e. It's better to have 3 job that call 3 pgm or a program that has 3 nested call? Tks. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Rexx Routine
Maybe this useful?
>From rexx programming guide - "Using the TIME Built-in Function"*:*
The TIME function can also perform elapsed-time calculations. The following
example measures the amount of time it took to run the Send Network File (
SNDNETF) command:
Call TIME 'R'
'SNDNETF FILE(MYLIB/BIGFILE) TOUSRID(THEBOSS)'
elapsed = TIME('E')
SAY 'The SNDNETF command took' elapsed 'seconds.'
Regards
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: OpenSSH question
I had the same problem using OpenSSH server(Win) and I solved with a tty. You can test what happens when you connect with and without password. Try to call ssh -tt u...@server Regards -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Retiring after 43+ years with IBM
Best wishes, and thanks for all your help, support and patience. Marco Indaco -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Have you ever abended IDCAMS?
Hi to all. Does somebody know if IDCAMS has(inside?) a kind of exit to call to have abend after an error? I mean: for error in a AMS command the maximum return code that we can have is 16 but this error never satisfy the abnormal completition of jcl because it intercept System and User Abend only. De facto, in some cases we need to avoid (i.e.e) the allocation of a set of dataset... Is there a solution or is not possible manage thru jcl idcams errors within the same step? Thanks in advance. -- Marco Indaco MF Consultant Loc: Milan, Italy -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Have you ever abended IDCAMS?
Thanks for your reply. I'm not so lazy.. :-) This is not a way to avoid cond in some steps... I try to explain better the concept and apologize if my english is so complicate to understand. In Icetool, for example, we can code ABEND to terminate abnormally the execution of a step(using in this case DFSPARM) avoiding so the allocation of a set of file allowing so a perfect restart from the same step(if we code, i.e. DISP=(,CATLG,DELETE)) When we use idcams and an error occur, result is only a return code, not properly an error... so IDCAMS never satisfy the 3th disposition of cond in jcl. What I'm looking for is a way to pass or code in my step some exit to control the execution to satisfy cond of jcl... and all this using idcams only(I know that with a program is easy) All comment are wellcome... 2006/1/26, David Andrews <[EMAIL PROTECTED]>: > > On Thu, 2006-01-26 at 14:23 +0100, R.S. wrote: > > Answer to message body: In fact I don't understand your intention. What > > do you want to get ? I believe, that IDCAMS abend is not the goal, > > I seem to recall that e.g. SORT and FDR both have options to ABEND in > lieu of returning a severe RC. Marco probably wishes for something > similar in IDCAMS. > > This can be useful behavior if you are lazy and don't want to code COND= > in all your JCL. Maybe a wrapper program will do the trick: > > ATTACHX EP=IDCAMS,ECB=ATCHECB, ... > STR1,ATCHTCB > WAIT ECB=ATCHECB > LAR1,ATCHTCB > DETACH (1) > CLC ATCHECB+1(3),=XL3'00' Subtask terminated well? > JNE ABEND No, take action (ABEND?) > > -- > David Andrews > A. Duda and Sons, Inc. > [EMAIL PROTECTED] > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > -- Marco Indaco MF Consultant Loc: Milan, Italy -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Have you ever abended IDCAMS?
Hi Mr Lodz, you are right but it's a trick. My question regard mainly the association of 3th dispostion and IDCAMS... I'd like to know if it's true that is unuseful. If we cannot use an exit is true else is false...(so... how?) We can write program or use IEFBR14(as you suggest) to solve this problem but I'm interested to know if this is an exception about the usage of jcl disposition. ;-) Regards. 2006/1/26, R.S. <[EMAIL PROTECTED]>: > > Marco Gianfranco Indaco wrote: > > > Thanks for your reply. > > I'm not so lazy.. :-) > > This is not a way to avoid cond in some steps... > > I try to explain better the concept and apologize if my english is so > > complicate to understand. > > > > In Icetool, for example, we can code ABEND to terminate abnormally the > > execution > > of a step(using in this case DFSPARM) avoiding so the allocation of a > set of > > file > > allowing so a perfect restart from the same step(if we code, i.e. > > DISP=(,CATLG,DELETE)) > > > > When we use idcams and an error occur, result is only a return code, not > > properly > > an error... so IDCAMS never satisfy the 3th disposition of cond in jcl. > > > > What I'm looking for is a way to pass or code in my step some exit to > > control the > > execution to satisfy cond of jcl... and all this using idcams only(I > know > > that with a program > > is easy) > > All comment are wellcome... > > What about next step with COND, let's say IDCAMS DELETE or IEFBR14 and > DD with OLD,DELETE ? > > -- > Radoslaw Skorupka > Lodz, Poland > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > -- Marco Indaco MF Consultant Loc: Milan, Italy -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Have you ever abended IDCAMS?
Many thanks Mr Andrews... Thanks for this piece of history :-) that I didn't know... I don't want to submit a requirement other than this that I repeat... is useful but mainly fun because using sort I solved this problem... Usually for deldef or other AMS usage I use cond like the great part of people... Many thanks again for your help and effort. Regards 2006/1/26, David Andrews <[EMAIL PROTECTED]>: > > On Thu, 2006-01-26 at 16:21 +0100, Marco Gianfranco Indaco wrote: > > I'm not so lazy.. :-) > > This is not a way to avoid cond in some steps... > > Sure, but same idea. You want to avoid having to code extra JCL to test > the return code from IDCAMS, and conditionally delete your dataset. > > > What I'm looking for is a way to pass or code in my step some exit to > > control the execution to satisfy cond of jcl... and all this using > > idcams only(I know that with a program is easy) > > Back when VSAM was first introduced (~30 years!) IBM said that one of > the design points was that VSAM should not ABEND -- unlike the older > access methods. You get a return code from every action, so that *you* > can decide what to do. They were really proud of that, and mentioned it > prominently in the classes of the time. > > I doubt that you'll get the IDCAMS developers to introduce an optional > ABEND, but maybe Mark Thomen will encourage you to submit a requirement. > (Maybe not!) > > I think you should write a wrapper. As you said, it would be easy. > Easier than writing a requirement, anyway. > > -- > David Andrews > A. Duda and Sons, Inc. > [EMAIL PROTECTED] > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > -- Marco Indaco MF Consultant Loc: Milan, Italy -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Problem on NetView V2R2M1(?)
Hi to all. I had a problem using the netview ftp at my shop and now I'm still confused. Everyday, for some year, I have in my plan the execution of a file transfer that transmit(via SNA) a generation data group using the relative qualifier "(0)" to another system without error(the job is the same and the previous and next day was fine). Some day ago, I had a problem caused to an unuseble LU and NFTP give me a reason code of 592 that the manual explain as: << Label: RSNREQUE Description: A post-conversation user exit routine forced the status of the request to WAITING. Both not-before and not-after date and time may have been changed by the exit routine. If the your exit routine provided a message, this message can be found in the transfer report file and in the server's log file. The new status of the file-transfer request is WAITING. >> and after I gave a reason code of 24 for the same request. This is not the really problem but what follow. After the error above the request is requeued using WAITING status but when nftp execute the request the second time all the level of gdg were used... that sound like nftp had requeued the request for gdg root only and without extension(relative qualifier). Now, does somebody know if this kind of error is a bug of nftp or had the same problem and retrieve the cause from other part? All your comment are wellcome. Many thanks in advance. -- *Marco Indaco* *MF Consultant* Loc: Milan, Italy Mob (+39) 335 7035564 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Problem on NetView V2R2M1(?)
Hi Mr John, I'm confused because it's the first time that this error happens and after 3 day of search the only thing I have is a theory and no other. 2006/3/21, John S. Giltner, Jr. <[EMAIL PROTECTED]>: > > Marco Gianfranco Indaco wrote: > > Hi to all. > > > > I had a problem using the netview ftp at my shop and now I'm still > confused > > Confused about what? > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > -- Marco Indaco MF Consultant Loc: Milan, Italy Mob (+39) 335 7035564 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Retry: Problem on NetView V2R2M1
Thanks Mr. John. I hope in this. Hi to all. I had a problem using the netview ftp at my shop and now I'm still confused. Everyday, for some year, I have in my plan the execution of a file transfer that transmit(via SNA) a generation data group using the relative qualifier (0) to another system without error(the job is the same and the previous and next day was fine). Some day ago, I had a problem caused to an unuseble LU and NFTP give me a reason code of 592 that the manual explain as: Label: RSNREQUE Description: A post-conversation user exit routine forced the status of the request to WAITING. Both not-before and not-after date and time may have been changed by the exit routine. If the your exit routine provided a message, this message can be found in the transfer report file and in the server's log file. The new status of the file-transfer request is WAITING. and after I gave a reason code of 24 for the same request. This is not the really problem but what follow. After the error above the request is requeued using WAITING status but when nftp execute the request the second time all the level of gdg were used... that sound like nftp had requeued the request for gdg root only and without extension(relative qualifier). Now, does somebody know if this kind of error is a bug of nftp or had the same problem and retrieve the cause from other part? All your comment are wellcome. Many thanks in advance. -- Marco Indaco MF Consultant Loc: Milan, Italy Mob (+39) 335 7035564 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Retry: Problem on NetView V2R2M1
Hi to all, does somebody tell me if the message is complete? Thanks in advance. 2006/3/22, Marco Gianfranco Indaco <[EMAIL PROTECTED]>: > > Thanks Mr. John. I hope in this. > > Hi to all. > > I had a problem using the netview ftp at my shop and now I'm still > confused. > > Everyday, for some year, I have in my plan the execution of a file > transfer that > transmit(via SNA) a generation data group using the relative qualifier (0) > to > another system without error(the job is the same and the previous and next > day > was fine). > > Some day ago, I had a problem caused to an unuseble LU and NFTP give me > a reason code of 592 that the manual explain as: > > Label: > RSNREQUE > > Description: A post-conversation user exit > routine forced the status of the request to > WAITING. Both not-before and not-after date > and time may have been changed by the exit > routine. If the your exit routine provided a > message, this message can be found in the > transfer report file and in the server's log > file. The new status of the file-transfer > request is WAITING. > > and after I gave a reason code of 24 for the same request. > > This is not the really problem but what follow. > > After the error above the request is requeued using WAITING status > but when nftp execute the request the second time all the level of gdg > were used... that sound like nftp had requeued the request for gdg root > only and without extension(relative qualifier). > > Now, does somebody know if this kind of error is a bug of nftp or had the > same problem > and retrieve the cause from other part? > > All your comment are wellcome. > > Many thanks in advance. > > -- > Marco Indaco > MF Consultant > Loc: Milan, Italy > Mob (+39) 335 7035564 -- Marco Indaco MF Consultant Loc: Milan, Italy Mob (+39) 335 7035564 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Retry: Problem on NetView V2R2M1
Thank, Mr Jim and John. To help you I will post the feedback copied from the server regarding the RSN 592. I don't know how reproduce this kind of error that is not common so I will be grateful for any advice about all. (The text about the error begin with a 000 and end with 999 so if for any reason the text will be truncated I hope that you will ask me to resend it all) I hope in this. 000 DVG066I PROCESSING STARTED FOR REQUEST NUMBER =3D 319 ; REQUEST NAME =3D DVG075I SESSION NOT STARTED WITH yyy; LOGICAL UNIT IS UNUSABLE DVG065I ACF/VTAM APPCCMD MACRO ERROR; OPERAND CODE =3D CNOS ; RETURN CODE = IN RPL =3D 00; FEEDBACK FIELD DVG065I IN RPL =3D 0B; SENSE CODE IN RPL6 =3D 8000; APPC PRIMARY RETUR= N CODE =3D 0008; APPC SECONDARY RETURN CODE =3D DVG660I JOB FINEMALE(JOB49920) SUBMITTED; MEMBER NAME =3D member; DATA SET NAME =3D Library DVG111I MESSAGE FROM USER-EXIT ROUTINE DVGPCBAS; MESSAGE =3D DVGPCNV invok= ed on local system, lu unusable: try again DVG250I REQUEST AVAILABLE FOR AUTOMATIC TRANSFER RESTART DVG020I DVG003I FILE TRANSFER ENDED FOR REQUEST NUMBER 319 ON 06/02/23 AT 23:00:06= ; RC =3D 16 ; RSN =3D 592 DVG020I 999 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
[Rexx on z/Os]Point to particular member of PDS
Hi to all. Does somebody know how to read a particular member of PDS using MVS address or Storage function only? I mean: I've a Rexx program compiled with STUB MULTI that at the moment run in background mode and in its jcl has within some member of the same partitioned dataset that, for the users(and for me too), looks too static. Now, I don't want to use IKJ* to make dinamic allocation so the only way that I can think is using MVS Data Areas. I used swareq sequence in different program to retrieve allocated dataset but never to allocate them. Does somebody know if there is a sequence to follow? All comment and suggest are really wellcome. Many thanks in advance. -- *Marco Indaco *MF Consultant Loc: Milan, Italy Mob (+39) 335 7035564 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: [Rexx on z/Os]Point to particular member of PDS
??? > Hi Mr Charles, thanks for you reply and apologize my bad english. > ** > you wrote: > - Pre-allocating the member in JCL; or > - Doing dynamic allocation from within the Rexx. > > Yes, I want to specify in my jcl the name of partitioned without > membername > having so a dynamic selection of its members. > If Rexx can't do, in you opinion, is there any tricks? > > SYSLIB is a really good sample and exactly what I'm trying to reproduce. > Best regards. > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: [Rexx on z/Os]Point to particular member of PDS
Excuse me but I've some problem with gmail Hi Mr Charles, thanks for you reply and apologize my bad english. you wrote: - Pre-allocating the member in JCL; or - Doing dynamic allocation from within the Rexx. Yes, I want to specify in my jcl the name of partitioned without membername having so a dynamic selection of its members. If Rexx can't do, in you opinion, is there any tricks? SYSLIB is a really good sample and exactly what I'm trying to reproduce. Best regards. 2006/1/18, Marco Gianfranco Indaco <[EMAIL PROTECTED]>: > > ??? > > > Hi Mr Charles, thanks for you reply and apologize my bad english. > > ** > > you wrote: > > - Pre-allocating the member in JCL; or > > - Doing dynamic allocation from within the Rexx. > > > > Yes, I want to specify in my jcl the name of partitioned without > > membername > > having so a dynamic selection of its members. > > If Rexx can't do, in you opinion, is there any tricks? > > > > SYSLIB is a really good sample and exactly what I'm trying to reproduce. > > Best regards. > > > > -- Marco Indaco MF Consultant Loc: Milan, Italy Mob (+39) 335 7035564 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: [Rexx on z/Os]Point to particular member of PDS
Hi Brendan, thanks for your reply but: neither LISTDS or OUTTRAP are internal function of Rexx(or MVS). LISTDS is a tso command OUTTRAP is an external function that run only in the TSO/E address space. So I can't use them running out of TSO. Appreciate your idea but.. I can't. Regards 2006/1/18, Brendan Friel <[EMAIL PROTECTED]>: > > One thing you can do which is incredibly easy is to set an OUTTRAP. > Then do a LISTDS to get the members of the PDS into a stem variable. > > Then you can step through the stem variable and process one PDS member at > a > time. > > HTH, > Brendan > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > -- Marco Indaco MF Consultant Loc: Milan, Italy Mob (+39) 335 7035564 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: [Rexx on z/Os]Point to particular member of PDS
Hi Mr Charles, many thanks again. I suppose that something near the assembler is de facto the only way to do this. If your tool is too complex is, for me, enough a good advice that will direct me on the right way. My actual idea, that can be wrong, is to reach two target: 1) find a way to list pds members from mvs data areas 2) control that after an update of Job Fail Control Block on JFCBELNM the EXECIO will run correctly. Best regards. P.S.= I only need to read the member. 2006/1/18, Charles Mills <[EMAIL PROTECTED]>: > > Is an assembler "helper" an acceptable option? I suspect many people have > written "Rexx-helpers" for PDSes in assembler and some might be willing to > > share it with you. Such subroutines would normally be "pure MVS" and > independent of TSO. > > I've written one but it is too complex - has too much specialized > additional > functionality - to be a good general tool to share with you. > > Perhaps some other member of this august group? > > I've forgotten - do you need read, write (create), update in place - or > some > combination? > > Charles > > > -Original Message----- > From: IBM Mainframe Discussion List [mailto: [EMAIL PROTECTED] On > Behalf > Of Marco Gianfranco Indaco > Sent: Wednesday, January 18, 2006 9:07 AM > To: IBM-MAIN@BAMA.UA.EDU > Subject: Re: [Rexx on z/Os]Point to particular member of PDS > > > Hi Brendan, thanks for your reply but: neither LISTDS or OUTTRAP are > internal function of Rexx(or MVS). > LISTDS is a tso command > OUTTRAP is an external function that run only in the TSO/E address space. > So I can't use them running out of TSO. > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > -- Marco Indaco MF Consultant Loc: Milan, Italy Mob (+39) 335 7035564 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: [Rexx on z/Os]Point to particular member of PDS
Thanks to all. Mr Gilmartin, really thanks for your suggest of BPXWDYN. It's really powerful and what I was looking for. Many thanks. 2006/1/18, Shmuel Metz (Seymour J.) <[EMAIL PROTECTED]>: > > In <[EMAIL PROTECTED]>, on 01/18/2006 > at 10:27 AM, Marco Gianfranco Indaco <[EMAIL PROTECTED]> said: > > >Does somebody know how to read a particular member of PDS using MVS > >address or Storage function only? > > No. > > >I used swareq sequence in different program to retrieve allocated > >dataset > > No; you can only use SWAREQ to retrieve information about an > allocated data set, not to retrieve the data set itself. > > >Does somebody know if there is a sequence to follow? > > Yes: allocate the PDS. If you want to read a single member, allocate > that member. If you want to read multiple members, write a REXX > function or use ISPF. > > -- > Shmuel (Seymour J.) Metz, SysProg and JOAT > ISO position; see <http://patriot.net/~shmuel/resume/brief.html> > We don't care. We don't have to care, we're Congress. > (S877: The Shut up and Eat Your spam act of 2003) > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > -- Marco Indaco MF Consultant Loc: Milan, Italy Mob (+39) 335 7035564 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
