Re: Abend0C1 while calling an IBM-Cobol routine from OS/BS Cobol Main.
Any chance you don't have the newer LE runtime library first in your steplib concatenation? On Wed, Aug 13, 2008 at 7:43 AM, Itschak Mugzach [EMAIL PROTECTED] wrote: I am running a n IMS MPP transaction written in OS/VS Cobol and is statically binded. The main program calls a routine compiled in Cobol for VM and MVS. The binder output marks IGZETUN and IGZEOPT as weak external references. When the Cobol routine gets control, module IGZCBSO abends with S0C1, failng to create a new Cobol environment. It look like that the CEESTART module (I think it is a kind of branch table) doesn't hold all addresses. I know that IGZETUN IGZEOPT are not supported under LE, but how come LE holds V constants to those modules? Please advise. Regards, Itschak -- 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 -- 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: Data set's lost
Perhaps DEFINE ... RECATALOG followed by DELETE!? On Thu, Jun 12, 2008 at 5:23 AM, HELIO [EMAIL PROTECTED] wrote: Hello list, I have some data set's vsam not catalogued and are lost on the disks, tried to delete them and I am not able, used the IDCAMS VVR and NVR and I am getting the following messages: DELETE SFRPD.A2S11002.CD0RJI0R + VVR FILE(VVDSD1) IDC3014I CATALOG ERROR IDC3009I ** VSAM CATALOG RETURN CODE IS 90 - REASON CODE IS IGG0CLFP-46 IDC0551I ** ENTRY SFRPD.A2S11002.CD0RJI0R NOT DELETED IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 8 IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 8 BOTTOM OF DATA *** DELETE SFRPD.A2S11002.CD0RJI0R+ NVR FILE(VVDSD1) IDC3014I CATALOG ERROR IDC3009I ** VSAM CATALOG RETURN CODE IS 50 - REASON CODE IS IGG0CLE4-88 IDC0551I ** ENTRY SFRPD.A2S11002.CD0RJI0R NOT DELETED IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 8 IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 8 BOTTOM OF DATA *** Note: The data set's are controlled by SMS. Does anyone have any solution to delete files lost? -- Hélio José da Silva Depto. Software Básico -- 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 -- 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: Long running Batch programs keep IMS databases offline
PROCOPT=GO(T) basically is read-only. Anyways, these days DLI batch and the online IMS systems can be setup to share the databases as well as update them concurrently, so there are no access restrictions. On Wed, May 7, 2008 at 5:03 AM, Visser, Hans (PinkRoccade Infrastructure Services Technisch Specialist) [EMAIL PROTECTED] wrote: you can keep the databases online. Either you can run the batch jobs as a BMP or you can run them as DLI with PROCOPT=GO(T). Mvg, Hans Visser -- 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 -- 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: Any Utility that will allow correction of a corroupt library
Bad news, good news here. First the bad, for the IMS referral library, the library (along with IMS.FORMAT) is supposed to be updated by the MFSUTL process, not IEBCOPY. IMS.REFERAL is also used as input to MFSUTL process for verification that all device type formats are being created/changed properly. Good news is it sounds like your users are yusing some other set of FORMAT/REFERAL libraries and copying the results to your 'production' libraries, so maybe identifying those libraries might be possible. In any case, the really good news is while it may be convenient for verification purposes to have the referral library when doing MFSUTL, you don't really need one (make it a temporary data set when running MFSUTL) so if your recovery is not possible, maybe just erase it and start over. On Fri, Mar 14, 2008 at 12:00 PM, Stocker, Herman [EMAIL PROTECTED] wrote: Thanks for the help. I think it was corrupted with a compress share operation or two people/jobs doing a copy. this could of happened any number of times since there are so many members that have been damaged. I am not able to compress or copy it. I am having trouble using superc to locate the good members. I'll Try the PDS command with Verify, after I get it downloaded and installed. Thanks again. Regards, Herman Stocker Technical Specialist Data Center Operations avis budget group Phone: 1973-496-4847 fax: 1973-496-8201 E-Mail: [EMAIL PROTECTED] -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Dave Kopischke Sent: Friday, March 14, 2008 2:29 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Any Utility that will allow correction of a corroupt library On Fri, 14 Mar 2008 11:49:14 -0500, Rick Fochtman wrote: I have a problem that I hope someone has come across before and has or knows of a utility to program that will help me out. I have a corrupt IMS Referral library and it seems to have been corrupted for a long time. I have no good back ups of it. It has over 14,000 members and looking at it there seems to be a very large number that are NG. Any idea how it got corrupted in the first place ??? I had a PDS get reblocked a few weeks ago and that essentially corrupted the PDS. If you have some members corrupted and some not, this might be the same issue. IEBCOPY it to a NEW PDS using DCB parameters with larger block sizes on both input and output and see if you recover the bad ones. You might have to keep trying multiples of LRECL to get a combination that works 100%. -- 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 The sender believes that this E-mail and any attachments were free of any virus, worm, Trojan horse, and/or malicious code when sent. This message and its attachments could have been infected during transmission. By reading the message and opening any attachments, the recipient accepts full responsibility for taking protective and remedial action about viruses and other defects. The sender's employer is not liable for any loss or damage arising in any way from this message or its attachments. -- 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 -- 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: What identifies a jobname/address space as a unique instance in time?
Have your system task create a system-level name/token (nopersist) - when the task goes down, the token disappears as well. On Nov 11, 2007 7:36 PM, Todd Burch [EMAIL PROTECTED] wrote: From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Peter Relson Sent: Sunday, November 11, 2007 9:06 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: What identifies a jobname/address space as a unique instance in time? The real question is: why is the question being asked? That might be a better way to derive the answer that is needed. Peter Relson z/OS Core Technology Design -- I have some code that runs in CSA, independent of the started task that puts it there. Occasionally, the started task and the CSA code talk. If the rug gets pulled out of my started task, (it gets cancelled by the operator) and it restarts, I need the CSA code to be aware of this and act accordingly. Is that enough explanation? I'm pretty sure I could accomplish what I need to do (inform the CSA code of a shutdown) from the started task side by having a resource manager termination routine, but it seems to me at this point in the game (product maintenance lifecycle), that working out the hey, my started task went away, and now it's back would be simpler from the CSA code side. Todd No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.15.28/1123 - Release Date: 11/10/2007 3:47 PM -- 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 -- 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: EBCDIC to HEX translation in Assembler?
Maybe something like? PACK wk1,parmfld+1 PACK wk2,wk1 UNPK outfld+1,wk2 On 7/23/07, Phil Kingston [EMAIL PROTECTED] wrote: Hi all, Does anyone have a quick assembler routine to convert a hexadecimal number represented in EBCDIC into the real hex number? Phil. No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.476 / Virus Database: 269.10.14/912 - Release Date: 22/07/2007 19:02 -- 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 -- 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: 1.7 and Internal Reader
Probably needs to be something like: //SYSUT1 DD DDNAME=IEFRDER //IEFRDER DD DSN=FILE(MEM),DISP=SHR On 6/5/07, Daniel McLaughlin [EMAIL PROTECTED] wrote: Has anyone else had their venerable internal reader proc go crazy under 1.7? Ours gets JCL errors and doesn't pull the job to submit. Must be some more holes that got close in this release. Here is what we use, which shows an override error on IEFPROC.IEFRDER. //*--* //*---THIS JOB PROVIDES A MEANS TO START A JOB FROM A PDS * //*--* //RDR PROC FILE=SYS1.PROD.ZOS17.PROCLIB, // MEM= //* RUN THROUGH JCLPREP ON 05/27/2007 AT 08:53:14 //* //RDR EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=A //SYSUT1DD DSN=FILE(MEM), // DISP=SHR //SYSUT2DD SYSOUT=(A,INTRDR) //SYSIN DD DUMMY As always, help is appreciated. -- 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 -- 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: Cobol Internal sort and DLI Databases
Sorry - I have to believe this is a coding error. My guess is that many of the 6 segments were re-read after every success selection (RELEASE) because the logic in the input procedure probably started retrieving over at the beginning of the database. Post the code. On 3/27/07, GAVIN Darren * OPS EAS [EMAIL PROTECTED] wrote: Does anyone know why when an Internal Sort is performed while a program also accessing a DLI Database That the amount of I/O against DLI increases by a few orders of magnitude? I had a program extracting data off a DLI Database inside a Sort Input phase. It was extracting only 181 records form 60,000 DLI Segments, but taking over 800,000K EXCP I/O and 10 minutes. When I instead just wrote the Sort Record to a Flat file and Eliminated the sort completely, It extract the same records, but only took 11,000 EXCP I/O and about 5 seconds. Thanks, Darren -- 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 -- 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: BPXWDYN problem
I think you will have better luck using FI and DA instead of DD and DSN. On 3/12/07, Steve Comstock [EMAIL PROTECTED] wrote: OK, so I'm writing this CGI in Assembler to access a VSAM file [seemed like a fun thing to do]. The program is reentrant and LE-conforming. To allocate the file, I want to call BPXWDYN, but I'm having all kinds of troubles. You can't really CALL, you should LINK. So, I set the parm up as R1 -- a(alloc)+x'800' where alloc is allocds 0cl62 dc h'60' dc cl60'alloc dd(meals) dsn(stnt329.train.meals) shr reuse' then I LINK EP=BPXWDYN but I get, in R15: FFEC which is -21 decimal The doc says this is a key error (it uses this term key a lot and never defines it, I notice), for the first key. But it looks good to me. [I've also tried it all upper case; I've also tried it double-quoted inside the single quotes, both upper-case and lower-case; always this result.] Anyone have any hints, suggestions, solutions? TIA for any help. Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-393-8716 http://www.trainersfriend.com -- to be included in our opt-in list of announcements of -- new courses and other products and services from The -- Trainer's Friend, send an email to [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 -- 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: BPXWDYN problem
I coded a module using Steve's example and got the same return code. So i changed DD to FI and DSN to DA and got a zero return code (and a successful dynamic allocation). I guess I messed up the original parmlist I coded as well when I got Steve's result - DD and DSN work as well as FI and DA. Never mind. -Emily L On 3/13/07, Paul Gilmartin [EMAIL PROTECTED] wrote: In a recent note, Rich Tabor said: Date: Tue, 13 Mar 2007 05:34:15 -0700 I think you will have better luck using FI and DA instead of DD and DSN. Why? -- gil -- StorageTek INFORMATION made POWERFUL -- 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 -- 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
SVC99 and MPF Exits
Any restrictions for using dynamic allocation in an MFS user exit? -- 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
SVC99 and MPF exits
Any restrictions for using dynamic allocation (SVC99)in MPF exits? -- 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: BPXWDYN problem
My actual initial error was FFEB (not FFEC for Steve) because I coded DS cl60'alloc...' instead of dc cl60'alloc...'. Since then, I tried lower case (CAPS OFF) for the cmd and BPXWDYN works for lower case commands as well. On 3/13/07, Roger Bolan [EMAIL PROTECTED] wrote: Could it be that case matters? When you edited it, did it change to all uppercase, for example? Regards, Roger Bolan IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU wrote on 03/13/2007 10:19:08 AM: I coded a module using Steve's example and got the same return code. So i changed DD to FI and DSN to DA and got a zero return code (and a successful dynamic allocation). I guess I messed up the original parmlist I coded as well when I got Steve's result - DD and DSN work as well as FI and DA. Never mind. -Emily L On 3/13/07, Paul Gilmartin [EMAIL PROTECTED] wrote: In a recent note, Rich Tabor said: Date: Tue, 13 Mar 2007 05:34:15 -0700 I think you will have better luck using FI and DA instead of DD and DSN. Why? -- gil -- StorageTek INFORMATION made POWERFUL -- 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 -- 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: INFO ZIP Large File Error
You maybe hitting the 2GB max. On 1/6/07, Crystal Kay [EMAIL PROTECTED] wrote: Hi, I have Infozip working on MVS/TSO. It zips up a 17 cylinder file (85% compression). But when I double the size of the file, it gives the following message: :zip warning: new zip file left as: zip I/O error: EDC5047I An invalid file name was specified as a function paramet zip error: Temporary file failure (was replacing the original zip file) //LIBEXEC PGM=INFOZIP,REGION=4000K, // PARM='-B -v -b TESTMST dd:zipout TESTMST.SMP1MVB' I had created TESTMST.ZIP as big as the input file to make sure that it isn't a problem. Would appreciate any help. Thanks, Crystal -- 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 -- 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: Allocating STEPLIB in TSO
In your description below, did you actually issue TSOLIB ACT
DS('SOME.OTHER.LIBRARY') before attempting the CALL
my.library.one(SOMEPROG) command?
On 10/11/06, Charles Mills [EMAIL PROTECTED] wrote:
OK. Simplest, since you say you want to use a TSO call
command, why not
CALL libraryname(pgmname) 'parms'
??
I am doing that. I guess I was not clear. I issue
CALL my.library.one(SOMEPROG)
And it works just fine, so far as it goes. Subsequently, while SOMEPROG is
executing, it would like to LOAD or LINK OTHRPROG. OTHRPROG is in
SOME.OTHER.LIBRARY that is not in my STEPLIB or link pack concatenation and
for political/procedural reasons is not going to be put there right away.
What can I do so that SOMEPROG can find OTHRPROG? The answer does not seem
to be TSOLIB.
Charles
--
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
--
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: Allocating STEPLIB in TSO
TSOLIB does work for subsequent load/link/attach. On 10/11/06, Paul Gilmartin [EMAIL PROTECTED] wrote: In a recent note, Charles Mills said: Date: Wed, 11 Oct 2006 16:33:19 -0700 CALL my.library.one(SOMEPROG) And it works just fine, so far as it goes. Subsequently, while SOMEPROG is executing, it would like to LOAD or LINK OTHRPROG. OTHRPROG is in SOME.OTHER.LIBRARY that is not in my STEPLIB or link pack concatenation and for political/procedural reasons is not going to be put there right away. Are SOMEPROG and OTHERPROG in different libraries? Ugh! Otherwise, I'd be somewhat surprised. I had thought CALL did a DYNALLOC for my.library.one, then an ATTACH using the generated DDNAME as a TASKLIB argument. Can you allocate a concatenation of my.library.one and SOME.OTHER.LIBRARY, then write the program to ATTACH SOMEPROG,TASKLIB=concatenation? -- gil -- StorageTek INFORMATION made POWERFUL -- 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 -- 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: IDENTIFY questions
If your IDENTIFY was for a module originally loaded from LPA, then I don't think DELETE cleans everything up, otherwise I agree with Shmuel, et al that DELETE is the un-IDENTIFY. On 10/6/06, Charles Mills [EMAIL PROTECTED] wrote: Shmuel, I still think you have this wrong. Let's assume that no such entry point as ZZZ exists anywhere on our system, okay? I issue a LOAD EP=ZZZ and it fails. This is my initial condition. This is the condition in which our hypothetical process starts and to which it should return if it wishes to leave things as it found them. It issues an IDENTIFY EP=ZZZ. Now LOAD (and DELETE) EP=ZZZ succeed. What macro could the program issue now to get back to its original state, the one in which ZZZ did not exist? Not DELETE. No matter how many DELETEs I issue for ZZZ, a LOAD EP=ZZZ will still succeed. So the question remains, what is the un-IDENTIFY function? Charles -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Shmuel Metz (Seymour J.) Sent: Thursday, October 05, 2006 4:29 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: IDENTIFY questions In [EMAIL PROTECTED], on 10/05/2006 at 07:01 AM, Charles Mills [EMAIL PROTECTED] said: I don't think so. DELETE is the opposite of LOAD, IDENTIFY is analogous to LOAD. DELETE decrements the use count Water is wet. it does not destroy a created entry point, does it? It does if the use count goes to zero. -- 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 -- 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
APPC/MVS System Base LU
Are there any control blocks or services an application written in assembler can use to determine the system's base LU for APPC/MVS? I' have tried the REXX MVSVAR(SYSAPPCLU) function but only get spaces returned. Some sample execs on CBT have the use of MVSVAR(SYSAPPCLU) coded but also commented out which leads me to believe the function doesn't really work for this variable. TIA, Rich -- 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
Z890 CF LPAR
Is it possible to partition a Z890 into an LPAR that functions as a coupling facility? -- 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 in IMS-DC
It sounds like your transaction may be defined as NONRESPONSE instead of RESPONSE. You probably can get more help on the IMS discussion group which can be joined at PO.MISSOURI.EDU (IMS-L). On 12/6/05, sudhanshu Kumar [EMAIL PROTECTED] wrote: Hi all, I have created an online IMS-DC program that uses only one screen(mfs)both for taking input and displaying the output.The data is fed into the screen first and once enter key is pressed,we get the output ,which contains output message. The problem is if user does not feed any value and just presses enter key many number of times,and then give the inputs,then the output screen toggles between two previous screens giving output of fed input in one screen and showing that input was not entered in the screen in the other. Hope I have clarified the problem. Thanks Sudhanshu __ Yahoo! India Matrimony: Find your partner now. Go to http://yahoo.shaadi.com -- 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 -- 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 regarding IMS-DC
The second ISRT call without the modname means that the modname IMS will use may be the previously specified modname on the previous ISRT call. On 12/6/05, sudhanshu Kumar [EMAIL PROTECTED] wrote: Hi all, I am having a problem in my IMS-DC code. I want to know what's the difference between the below two statements CALL 'CBLTDLI' USING IMS-INSERT IOPCB MOD-AREA MODNAME. (MODNAME PIC X(08)VALUE'FFOLMRCO'.) __ CALL 'CBLTDLI' USING IMS-INSERT IOPCB MOD-AREA. __ Enjoy this Diwali with Y! India Click here http://in.promos.yahoo.com/fabmall/index.html -- 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 -- 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: How to copy a DASD data set with 56k blocks
Perhaps TRSMAIN On 10/17/05, Bruce Black [EMAIL PROTECTED] wrote: Is there a utility program that can copy 56k blocks from DASD to tape, or to another DASD data set with BLKSIZE=32760? The record format is VBS and the data set was created in VSE. I tried to write a quick-and-dirty (QD) program to do it but neither LBI nor BSAM will read large blocks from DASD. I could use EXCP instead, of course, but that would definitely take the Q out of QD. I am not sure if this will work on disk (I know that it works on tape). Use your BSAM program, but override the DCB to RECFM=U and BLKSIZE=32760. But in the READ, override the blocksize to 56K (with RECFM=U, on tape at least, BSAM does not care that the read length is larger than the blocksize). You will have to break down the VBS blocks yourself, reblock them, and write them to the disk output with BSAM or QSAM. This is probably in the category of somewhat quick and a little dirty. -- Bruce A. Black Senior Software Developer for FDR Innovation Data Processing 973-890-7300 personal: [EMAIL PROTECTED] sales info: [EMAIL PROTECTED] tech support: [EMAIL PROTECTED] web: www.innovationdp.fdr.com -- 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 -- 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
