Re: Knowledge Centre - (was Re: Rant)

2018-12-06 Thread Dale R. Smith
able in BookManager for many years? BookManager was always fantastic for keyword searches, but sucked for printing. PDFs are great for printing, but suck for searching. Surely, an alternative between the two could have been done, (not KC!), that would have allowed sear

Re: Are there compiler options to move Working Storage in Cobol above the line?

2019-01-24 Thread Dale R. Smith
f other programs are included at Link Edit/Bind time that are set to RMODE 24, then the resulting Load Module would be RMODE 24 regardless of the COBOL RMODE setting. -- Dale R. Smith -- For IBM-MAIN subscribe / signoff / archiv

Re: Highly technical question - how do I only get my posts?

2019-03-15 Thread Dale R. Smith
On Fri, 15 Mar 2019 17:28:16 -0400, william giannelli wrote: >I just want to see replies to my posts….. So use the Web Interface to look at only entries you want to see: http://listserv.ua.edu/cgi-bin/wa?LIST=IBM-MAIN Change your Listserv setting to NOMAIL. -- Dale R. Sm

Re: Looking for clarification/guidance on SMTP DD FREE/SPIN

2020-05-17 Thread Dale R. Smith
: sysnode = SysVar('SYSNODE') ). Write your email to the DD Name you specified with EXECIO, then FREE it when you are done. REUSE lets you use the same DD Name over and over. -- Dale R. Smith -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Looking for clarification/guidance on SMTP DD FREE/SPIN

2020-05-18 Thread Dale R. Smith
needed. Using FREE=CLOSE is all that is required. I submitted a test job that sends an email in the first Step with just FREE=CLOSE and the second Step was a Sleep for 10 minutes. I received the email while the job was still running. -- Dale R. Smith -

Re: How determine local time zone *name* in Rexx?

2020-05-18 Thread Dale R. Smith
Active EST West 05.00.00 Inactive So it's trivial to get the Zone name. Of course, the name and the offset have to be defined to CP in either the system parms or via command. You would think that IBM's "Premiere OS" would be able to

Re: TSO REXX -- find absolute generation # from relative?

2019-07-26 Thread Dale R. Smith
7;--' value . If type \= 'NONVSAM' Then Iterate s m = m + 1 If num = m Then Do osdsn = value Leave s

Re: Important hardware question

2019-09-03 Thread Dale R. Smith
one of the following: P/N 33F8462 – Domestic Mouse Balls P/N 33F8461 – Foreign Mouse Balls -- Dale R. Smith -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the mess

Peter Relson Article

2019-11-12 Thread Dale R. Smith
"wildlife" on this list also! :-)> -- Dale R. Smith -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Running a Coupling Facility using a CP for a test Parallel Sysplex 0 anyh gotcha's?

2023-03-07 Thread Dale R. Smith
nvestments and avoiding costly application rewrites. I'm sure it's not cheap, but it would allow you to share the data and it may be cheaper than what you would need to do to share a VSAM file. I have no experience with the product so I don

Re: [EXTERNAL] Re: AI wipes out humanity?

2023-04-11 Thread Dale R. Smith
L 9000??? Before HAL: TOS S2.E24 March 8, 1968 - The Ultimate Computer https://www.imdb.com/title/tt0708481/?ref_=fn_tt_tt_1 -- Dale R. Smith -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to list

Re: REXX parse parens

2023-05-03 Thread Dale R. Smith
s is to use Parse Value with a space added at the end instead of Parse Var: Parse Value option' ' With varOpt '(' valueOpt ') ' . -- Dale R. Smith -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Can REXX OUTTRAP trap WTO's?

2023-05-10 Thread Dale R. Smith
x27;t trap the WTO Message, does "BATCHPGM" by any chance set a non-zero Return Code if the WTO is issued? If not, could it be modified to do so without affecting anything else? That way you could just test the Return Code from "BATCHPGM" in your REXX code and do

Re: Adding a PARM to a PROCSTEP where no PARM is coded

2019-12-17 Thread Dale R. Smith
So possibly >PARM='/PARM,DATA' is what you need. If that's the problem, I'd expect the >program to act the same way it does with no parm at all. So that's a >mystery. > >sas Followup for those who might be interested. For COBOL Programs, parms to the p

Re: Rexx parse using period as placeholder

2020-02-26 Thread Dale R. Smith
>>>   "DSNAME(MEMBER" > >Unfortunately the value is truncated because "parse" has no way to >anchor to the end of the string. Parse Value parm' ' With . '(' val ') ' . -- Dale R. Smith -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: URL for DCF manuals

2020-02-26 Thread Dale R. Smith
lick on Search for Publications and enter DCF in the Search on field. (I would increase the Number of results per page to 50 or 100.) -- Dale R. Smith -- For IBM-MAIN subscribe / signoff / archive access instructions, send ema

Re: Rexx parse using period as placeholder

2020-02-27 Thread Dale R. Smith
ER)) > INDSN(DSNAME) >  INDSN('HLQ.DSNAME(MEMBER)') >  INDSN('HLQ.DSNAME') Here is your one line REXX solution: Parse Value Translate (parm,"","'")' ' With . '

Re: Rexx parse using period as placeholder

2020-02-27 Thread Dale R. Smith
On Thu, 27 Feb 2020 10:29:08 -0600, Dale R. Smith wrote: >On Thu, 27 Feb 2020 19:07:37 +0800, David Crayford wrote: > >>OK. Let me change the requirements again ;) How about also handling >>single quotes for a fully qualified data set. >> >>Simple to do with a r

Re: Rexx parse using period as placeholder

2020-02-27 Thread Dale R. Smith
>that it was a FQDSN. > > >-- >Shmuel (Seymour J.) Metz >http://mason.gmu.edu/~smetz3 Try this: Parse Value Space(Translate(parm,"","'"),0)' ' With . '(' val ') ' . (Forgot that Translate does not support translating to null

Re: Rexx parse using period as placeholder

2020-02-28 Thread Dale R. Smith
On Fri, 28 Feb 2020 19:48:54 +0800, David Crayford wrote: >How to do this maintaining the quotes? That's needed for allocating the >data set. > >Yet again, simple to do with a regex. > >On 2020-02-28 1:41 AM, Dale R. Smith wrote: >> On Thu, 27 Feb 2020 17:30:03

Re: Two related alias entry address questions

2020-03-03 Thread Dale R. Smith
is either PDS or PDSEs. The function of a COPYGROUP statement differs from COPYGRP only if both of the data sets are PDSs. COPYGROUP performs a full group copy operation when both data sets are PDSs. By contrast, a COPYGRP statement with two PDSs is the same as a CO

Re: Two related alias entry address questions

2020-03-06 Thread Dale R. Smith
ther utilities Return Codes are documented, (somewhat!), in "Appendix A. Invoking Utility Programs from an Application Program" in the "DFSMSdfp Utilities" manual, (at least in z/OS V2.2). -- Dale R. Smith -

Re: IGGCSI00 and REXX

2020-03-19 Thread Dale R. Smith
2,44)) /* Catalog Name */ csicretn = SubStr(csiwork,ptr3+46,4) /* Catalog Error */ Say msghdr 'Catalog Entry Error Information:' Say msghdr 'CSICNAME='csicname Say msghdr 'CSICFLG ='C2X(csicflg) Call CSI_ERRCODE csicretn /* Decode Catalog

Re: IGGCSI00 and REXX

2020-03-20 Thread Dale R. Smith
ool missing on TSO, namely CMS/TSO PIPELINEs. These two items make it more difficult then it should be to write one REXX program that can run under CMS and TSO, (I have some REXX programs that do that). Anyway, I think I have ranted long enough. In the end, REXX is only as good as the other too

Re: Does anybody remember CLIST?

2020-03-23 Thread Dale R. Smith
IE =' Value(apistem'FCAI_IE') Say 'CEC =' Value(apistem'FCAI_CEC') Say 'ReplyCode =' Value(apistem'FCAI_ReplyCode') Say 'ReturnCode =' Value(apistem'FCAI_ReturnCode') Say 'ReasonCo

Re: REXX MVSVAR SYMDEF behavoiur

2020-03-27 Thread Dale R. Smith
27;,symbol) End /* Do n = 1 to Words(utctime) */ Say ' ' Say 'MVS Dynamic System Symbols...(Local Timezone)' Do n = 1 to Words(lcltime) symbol = Word(lcltime,n) Say Left(symbol,8) '=' MVSVar('SYMDEF',symbol) End /* Do n = 1 to Words(lcltime) */ Exit 0 -- Dale R. Smith Factotum -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: REXX MVSVAR SYMDEF behavoiur

2020-03-27 Thread Dale R. Smith
ing REXX delimiters might cause unpredictable results. Seems pretty clear to me. GIGO -- Dale R. Smith Factotum -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: REXX MVSVAR SYMDEF behavoiur

2020-03-27 Thread Dale R. Smith
... say '"'MVSVAR('SYMDEF',foo)'"' "" I did that last one to

Re: REXX MVSVAR SYMDEF behavoiur

2020-03-27 Thread Dale R. Smith
example: • For system symbols within a parmlib member, when the parmlib member is processed. • For system symbols within JCL, when the JCL undergoes conversion. • When an application program is running. -- Dale R. Smith Factotum -

Re: REXX MVSVAR SYMDEF behavoiur

2020-03-27 Thread Dale R. Smith
Say 'Value =' MVSVAR('SYMDEF',sysname) Value = ... ... sysname is a variable with a value of 'foo' so SYMDEF looks for System Symbol "foo" not SYSNAME. -- Dale R. Smith Factotum

Re: About the "hello world" program

2020-04-10 Thread Dale R. Smith
ter. >> >> --- >> Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 After "Hello World!" maybe the next step would be "99 Bottles of Beer"! :-)> http://99-bottles-of-beer.net/ After a few real beers, the virtual beers would be a lot harder! Ha Ha --

Re: DB2 / DFSort question

2020-04-17 Thread Dale R. Smith
Library, (if you use SDSNEXIT, then it should come before SDSNLOAD). You can run much more complicated SELECTs then I have in this example! You can use SYNCSORT control statements to reformat the output into a readable report. -- Dale R. Smith -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

The Computer Scientist Who Can’t Stop Telling Stories

2020-04-19 Thread Dale R. Smith
Nice article about Donald Knuth. https://www.quantamagazine.org/computer-scientist-donald-knuth-cant-stop-telling-stories-20200416/?utm_source=pocket-newtab Tinyurl: https://tinyurl.com/y8k62heq -- Dale R. Smith -- For IBM

Re: Here we go again

2020-04-29 Thread Dale R. Smith
in an IEBCOPY page >header, but a hundred million times smaller. > >1982? > >-- gil Don't bother! :-)> OS/VS COBOL hasn't been supported since 1994! It was replaced by VS COBOL II, which eventually became Enterprise COBOL. -- Dale R. Smith ---

Re: When did CMS stop requiring S/370 mode?

2021-05-10 Thread Dale R. Smith
nger run 370 mode only OSes). -- Dale R. Smith -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: When did CMS stop requiring S/370 mode?

2021-05-10 Thread Dale R. Smith
On Tue, 11 May 2021 01:47:45 +, Seymour J Metz wrote: >Thanks. Do you also know when CMS first supported XC mode as an option? > > >-- >Shmuel (Seymour J.) Metz >http://mason.gmu.edu/~smetz3 CMS Release 8, VM/ESA 1.1.1.

Re: Vector examples?

2021-10-19 Thread Dale R. Smith
for any pointers. > > > >...phsiii Dan Greiner recently posted this link on the Assembler list about Vector instructions. Very good stuff! https://drive.google.com/file/d/13OhBkhgbU7N6a20nVo5uEAnR-s3-Pyz8/view -- Dale R. Smith

Re: How can I set Non-zero return code in DFSORT when SORTOUT record count is not zero

2017-04-15 Thread Dale R. Smith
inue processing when there are no records for the SORTOUT data set. RC16 specifies that DFSORT should issue message ICE206A, terminate, and give a return code of 16 when there are no records for the SORTOUT data set. -- Dale R. Smith ---

Re: How can I set Non-zero return code in DFSORT when SORTOUT record count is not zero

2017-04-16 Thread Dale R. Smith
e is not empty? :-) RC=0 file is not empty, RC=4 file is empty, RC=nn error -- Dale R. Smith -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: How to pull webpage into batch job

2017-04-26 Thread Dale R. Smith
*/ /*SAMPHTTP: Error nn Creating MVS File "OUTPUT". (RC=nn) */ /* */ /*SAMPHTTP: Creating CMS File "OUTPUT DATA x"... */ /*

Re: JCL System symbols

2017-05-05 Thread Dale R. Smith
l Timezone)' Do n = 1 to Words(lcltime) symbol = Word(lcltime,n) Say Left(symbol,8) '=' MVSVar('SYMDEF',symbol) End /* Do n = 1 to Words(lcltime) */

Re: Long execution & high CPU usage due to decimal overflow (PGM 00A) and large system trace tables

2017-05-17 Thread Dale R. Smith
rom alphanumeric fields or literals, except when the sending field is reference modified. Will find cases of ‘hidden’ loss of data when statements truncate numeric data items. This is Compile time only, no affect on program execution. -- Dale R. Smith

Re: Trying to use long parm= in started task

2021-12-02 Thread Dale R. Smith
icult in a real Production environment. Depending on the parameter you might be able to add a dummy statement to the PROC like: //DUMMYDD DD DUMMY,DSN=SYS1.PROCLIB(&OBPARM.),DISP=SHR The parameter is now referenced in the PROC and hop

Re: Rexx routine to dump all variables when debugging?

2022-02-17 Thread Dale R. Smith
EXX stack so it could be used within a REXX script. -- Dale R. Smith -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Command execution through OUTTRAP giving rc -1645

2022-04-07 Thread Dale R. Smith
lly end fairly quickly. In long running REXX programs like yours, you eventually run out of storage. To prevent this from happening, Drop any stems after you have finished processing them and before you create the stem again. (REXX does not free storage until the program ends, unle

Re: Some questions on SYSCALL

2022-06-28 Thread Dale R. Smith
Do Say 'Error' result 'trying to Establish the', 'SYSCALLS Environment.' Exit result End

Re: Some questions on SYSCALL

2022-06-28 Thread Dale R. Smith
mes use the "If Function(arg1,arg2...)" , but only if it's very obvious that I'm jut testing the returned value. I don't like it for SYSCALLS because it's not obvious that "If SYSCALLS('ON')" is not just t

Re: REXX Testing a bit?

2022-08-02 Thread Dale R. Smith
; > > > >Lionel B. Dyck <>< Assuming flag1 is a one byte field: If BitAnd(flag1,'40'x) == '40 × Then Say 'got it' Make sure you use exactly equal (==) especially when testing for hex 40! -- Dale R. Smith -

Re: How to set time parameter in TSO/E REXX getmsg function

2022-08-17 Thread Dale R. Smith
regards, > >Nobuhiko Furuya(古谷信彦) >V-SOL Inc. Try changing this line from: ARG hsmcmd':'seconds to ARG hsmcmd':'seconds . it's possible that the the parameter was entered with a trailing space and now it does not have a trailing space. Try the

Re: Bytes in a 3390 track

2022-11-23 Thread Dale R. Smith
apply, leaving space as more dominant. >> >> >> -- >> Shmuel (Seymour J.) Metz >> http://mason.gmu.edu/~smetz3 Reminds me of an ad in a printed magazine many years ago, (yes that long ago :-)> ). A management type person is in the ad saying: &qu

Re: Examples of REXX DSNACCOX calls (DB2)

2023-01-07 Thread Dale R. Smith
r & Grill - Israel Did you see this link? https://www.idug.org/communities/community-home/digestviewer/viewthread?GroupId=253&MID=42599&CommunityKey=02a8700a-dc76-4190-9a3c-24f0738c1067&tab=digestviewer -- Dale R. Smith

Re: What am I doing wrong with BPXWUNIX sort?

2024-03-06 Thread Dale R. Smith
C Validation > >My expectation is that -k2 would have caused sort to sort on the "descriptive >strings" (ignoring the ) but obviously that is not what has happened. What >am I doing wrong? (I have tried both -k2 and -k 2, and also

Re: Couple of questions about job id

2024-08-07 Thread Dale R. Smith
is >already going through all the ASCB and related control blocks, so that would >be the best place to look for that info. > >Thanks for your help. 🙂 > >Kind regards, >Lindy  JES2 and a Million Jobs: http://www.nasp

Re: Rexx and member statistics question

2015-12-30 Thread Dale R. Smith
10 records from the previous member! Not good! It would be best to use "EXECIO" mem.0 "DISKW" instead of "*" or to "Drop mem." after the write and before the next read. If the REXX program is processing a lot of members, it may be a good idea to do bot

Re: COBOL Code Gened for MOVE COMP-3 S9(9) to S9(8)

2015-12-31 Thread Dale R. Smith
umber of digits. In COBOL V5.2 they have added a new RULES compiler option and one of the new rules that can be used is NOEVENPACK. NOEVENPACK will issue Warning messages for Packed fields with an even number of digits! -- Dale R. Smith

Re: Compile error

2016-01-19 Thread Dale R. Smith
#x27;s still shipping as part of z/OS or if it was just left around on the OP's system. We still have OS/VS COBOL programs that are running on VM/CMS, (none on z/OS). -- Dale R. Smith -- For IBM-MAIN subscribe / signoff

Re: Identifying creator of SMF records

2016-01-25 Thread Dale R. Smith
. >Close, Charles! > > > >.phsiii Hey Phil! Shouldn't they be 220?! :-)> -- Dale R. Smith -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SYSCALL environment not available

2020-09-26 Thread Dale R. Smith
is not available on my system. >What is the "SYSCALL" environment and how might I get it available? >thanks >Bill Could the problem be that the userid running the REXX program does not have an OMVS segment and/or UID assigned to it? -- Dale R. Smith --

Re: CFSIZER no longer available?

2018-06-08 Thread Dale R. Smith
On Fri, 8 Jun 2018 14:13:58 +, Allan Staller wrote: >C'mon IBM, get your act together! > >When are the PFCSK's in charge going to get shown the door! It's not the PFCSKs, it's the PHBs that should be shown the door! (They can't find it on the

Re: Issue WTO message using MVS SEND command

2018-06-23 Thread Dale R. Smith
7; you could code WTO.DESC = '(3,11)'. 3 and 11 mean "Eventual Action Required" and "Critical Eventual Action Required". I don't know if that means the message will be displayed in "red". Instead of coding WTO.MCSFLAG = '' you could

Re: GETMSG null with out ADABAS command

2017-09-19 Thread Dale R. Smith
les passed to functions must be uppercase. Using quotes around a name is also a good idea, but then you must enter it as upper case. -- Dale R. Smith -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Db2! was: NODE.js for z/OS

2017-10-31 Thread Dale R. Smith
duggery. >. >J.O.Skip Robinson >Southern California Edison Company >Electric Dragon Team Paddler >SHARE MVS Program Co-Manager >323-715-0595 Mobile >626-543-6132 Office ⇐=== NEW >robin...@sce.com Well, there is a DB1, (or Db1), but it's called IMS! :-) And before there

Re: IBM does what IBM does best: Raises the chopper again

2017-12-01 Thread Dale R. Smith
On Thu, 30 Nov 2017 03:47:51 -0600, Edward Gould wrote: >> On Nov 30, 2017, at 1:23 AM, Jack J. Woehr wrote: >> >> “42" > >I know I shouldn’t ask but what is “42”. > >Ed The number of employees left at IBM i

Re: Addressing Question

2016-12-23 Thread Dale R. Smith
above would be to change the called program to run AMODE 31 so it can access parameters above the line. Because you are not currently passing parameters to the called program, you are not having any problems calling it. -- Dale R. Smith -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IPLing z/OS 2.2 from 1.13 for first time getting JES2 catastrophic error

2017-01-06 Thread Dale R. Smith
rmat, so I went back to your original entry! In all your tests since the original one, are you using the same cloned system? I was wondering if you try a new clone of the production system whether it will work or not. There is a possibility of some kind of error due to timing of the c

Re: Cobol and PreCompile for CICS and DB2

2017-01-12 Thread Dale R. Smith
ator. I only have access to Enterprise COBOL V4.2, but I don't believe it has changed for V5 or V6 of Enterprise COBOL. Lizette, I believe the Integrated Translator, (EXEC CICS, EXEC DLI), and the Integrated PreCompiler (EXEC SQL) were added in Enterprise COBOL V3.1 and enhan

Re: How to calculate the JES2 Checkpoint and Spool Space

2017-01-22 Thread Dale R. Smith
u can use it as a basis to create an interactive app if you want, by adding a ISPF front-end, or just modify the variables and run it as is. -- Dale R. Smith -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: How to calculate the JES2 Checkpoint and Spool Space

2017-01-22 Thread Dale R. Smith
) Say 'ZJC Size =' Right(zjc,5) Say 'RSO Size =' Right(rso,5) Say 'LCK Size =' Right(lck,5) Say 'DAS Size =' Right(das,5) Say 'NITC Size =' Right(nitc,5) Say 'RECY Size =' Right(recy,5)

Re: Program now working, but why?

2017-02-07 Thread Dale R. Smith
Rmode 24. (If you are using the RENT Compile option, then you would have to specify the DATA(24) Compiler option to have your COBOL Working Storage allocated below the line. -- Dale R. Smith -- For IBM-MAIN subscr

Re: Program now working, but why?

2017-02-07 Thread Dale R. Smith
y well be allocated above the line with Enterprise COBOL. THe record would have to be moved to an area in Working Storage and passed to the Assembler program from that area instead. Making the Assembler program work in Amode 31 would be the best choice, but it could involve more

Re: IBM SR process -- brilliant

2017-02-08 Thread Dale R. Smith
Never heard of it before, but I think I know what it is, (after a little searching). I won't post what I think it means, but I will post what it should stand for, based on Phil's experience: ICN = "I Can't Navig

Re: COBOL/LE question

2017-02-13 Thread Dale R. Smith
sage after all. > >Thanks again for all your suggestions and help. > >Rex http://www.computerworld.com/article/3163192/data-center/just-because-it-fails-doesnt-mean-its-a-failure.html -- Dale R. Smith -

Re: Sysplex Common Time Source

2014-02-08 Thread Dale R. Smith
, shaken but unhurt, one of them says to the pilot, "I'm certainly glad you were able to land safely, but I don't understand how the response you got was any use." "Simple," responded the pilot. "I got an answer that was completely a

Re: SYSB-II

2014-02-08 Thread Dale R. Smith
o be changed in a controlled manner from using VSAM to directly calling DB2. After all programs/regions/JCL were converted to DB2, CICS VSAM Transparency could be removed, (SYSB II would no longer be required also). Just thought I would mention it in case someone else is looking for a "s

Re: Rexx substr not retiring string

2014-04-01 Thread Dale R. Smith
N (FINIS STEM REC.' /* Lets say 10 records were read, rec.0 = 10 */ 'EXECIO * DISKW FILEOUT (FINIS STEM REC.' /* Writes 20 records out! rec.1-rec.10 from current file, rec.11-rec.20 from previous file! */ 'EXECIO' rec.0 'DI

Re: Executing a remote TSO command or CLIST with FTP?

2014-04-04 Thread Dale R. Smith
rles How about defining a Batch Job in your Scheduler product that is setup to run when a specific dataset is created? FTP creates the file, the Scheduler submits the Batch Job, Batch Job runs whatever you want, RECEIVE, etc. -- Dale R. Smith

Re: CA JMR and shared JES V2R1 migration

2014-04-29 Thread Dale R. Smith
igration period. > >Scott Barry >SBBWorks, Inc. Is the JES2 text format change a result of having long JES2 Job Classes enabled or just from running JES2 for z/OS 2.1 without it being enabled? -- Dale R. Smith -- For

Re: HP P4015tn paper tray selection

2014-06-26 Thread Dale R. Smith
s. :-)> You can download it from here: http://www.softcircuits.com/cygnus/fe/ -- Dale R. Smith -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Dataset update error from MVS guest

2014-08-19 Thread Dale R. Smith
ws Read/Write access even if another ID also has it Read/Write, (do you have another ID that might have this same volume linked R/W?). The "V" tells VM to use Virtual Reserve Release for the volume, (Very important if you are sharing the volume with other MVS Guests!). -- Dale R. Smith -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: U4093-92

2014-08-19 Thread Dale R. Smith
On Tue, 19 Aug 2014 09:50:57 -0500, Ron Thomas wrote: >Z/OS 01.13.00. This is a CICS program. Thanks! You may want to read this entry in the Archives. It might be your problem also. https://listserv.ua.edu/cgi-bin/wa?A2=ind1005&L=ibm-main&T=0&O=D&F=&S=&

Re: Rexx Code

2014-09-23 Thread Dale R. Smith
contain 9. And of course, since it is "unsigned", don't even think about moving a negative number to it or subtracting something from it that should cause it to go negative, since it can't go negative. COBOL 5.1 may improve the efficiency of having an unsigned even nu

Re: Performance in S9(08) COMP

2014-10-15 Thread Dale R. Smith
ge this so you had 3 options, of which none of them generate code as good as OS/VS COBOL. Of the three TRUNC options available, TRUNC(OPT) is the best choice. If you need the equivalent of TRUNC(BIN) for one or more Comp fields, then define them as

Re: Data type declaration

2014-10-16 Thread Dale R. Smith
is signed, COBOL generates extra instructions to make sure the output field contains a valid sign. If you want the data as is, then change ITEM-NUMB-OUT to be PIC 9(9). -- Dale R. Smith -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Using NOTE and POINT simulation macros on CMS?

2012-08-06 Thread Dale R. Smith
info: The NOTE macro instruction causes the system to return the position of the last block read from or written into a data set. All input and output operations using the same data control block must be tested for completion bef

Re: Using NOTE and POINT simulation macros on CMS?

2012-08-07 Thread Dale R. Smith
like it was with the TMC. It's a kludge, but what else can you do when IBM doesn't support their operating systems equally and they don't understand the concept of sharing data between different systems. -- Dale R. Smith -

Re: Using NOTE and POINT simulation macros on CMS?

2012-08-07 Thread Dale R. Smith
iginal TMS code or the company that they outsourced to, (where I wrote the RMM code), or the company that I was contracting with for the outsourcer after they "released" me, I doubt that it will ever happen. :-)> I'm sure it would of have been some fun code to write! -- Dale R

Re: Using NOTE and POINT simulation macros on CMS?

2012-08-07 Thread Dale R. Smith
TTR value based on how many 256 byte blocks there are in a track. Years later, TMS was enhanced to support having the TMC file blocked so now you had to compute the offset into the block to get the correct volser record after reading the correct block. -- Dale R. Smith

Re: Nested enclaves and POSIX(ON)

2012-10-20 Thread Dale R. Smith
Then ... When ANSWER-NO Then ... When Other ... End-Evaluate Of course COBOL also has built in functions to convert lower case to upper case or vice versa so I would use that instead for a "case" like this. :-)> Move Function Upper-Case (ANSWER-FIELD)

Re: Looking for COBOL V5R1 Softcopy Librarian docs

2013-09-16 Thread Dale R. Smith
at have to be accessed in "compatibility" mode, etc.) -- Dale R. Smith -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: JES2 C/I Data (re: PARMDD issue)

2014-12-23 Thread Dale R. Smith
are looking for is not in any JES2 Macros, but in Macros IEFTXTFT and IEFVKEYS in SYS1.MODGEN. -- Dale R. Smith -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: a bit of hope? What was old is new again.

2015-02-02 Thread Dale R. Smith
5fac3ecf37a2550&elqCampaignId=12357 or http://tinyurl.com/mfavfj6 Read it with your tongue firmly planted in your cheek! :-)> (I thought the video was pretty funny.) -- Dale R. Smith -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: XMLPARSE(COMPAT) for COBOL V5?

2015-02-04 Thread Dale R. Smith
change their source code. XMLPARSE(COMPAT) is also available in the previous release through the Enterprise COBOL for z/OS, V5.1.1 PTF (APAR PI22094). -- Dale R. Smith -- For IBM-MAIN subscribe / signoff / archive access instructi

Re: Multifactor authentication

2015-03-06 Thread Dale R. Smith
722&internalRecordTicket=4832534b00020b9f971a6991fb33925fc93c6a33c6f0211019825b3345c06ffe94fc668a68f6 or http://tinyurl.com/nh7elco I have not seen this webinar so I have no idea if it will be helpful to you or not. -- Dale R. Smith -

Re: RDJFCB

2015-03-19 Thread Dale R. Smith
lbert Saint-Flour at the bottom of this page: http://gsf-soft.com/Freeware/ In particular, COB2JOB and COB2SYS. -- Dale R. Smith -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Storage paradigm [was: RE: Data volumes]

2013-06-10 Thread Dale R. Smith
known by many different names), addresses everything in "storage/memory" and on disk and has been 64-bit since the mid 1990s, (and it was 48-bit before that). There is however, no need for system programmers on the i, (really IBM, you can't come up with better names for hardware

Re: CHPID TYPE OSE Port 1 of OSA Express3

2012-12-03 Thread Dale R. Smith
PATH=((CSS(0),04)),UNIT=OSA IODEVICE ADDRESS=(FC20,031),UNITADD=00,CUNUMBR=(FC20),UNIT=OSA IODEVICE ADDRESS=(FC3F,001),UNITADD=FE,CUNUMBR=(FC20),UNIT=OSAD The first 31 devices are OSA and the 32nd device in each range is an OSAD. All wr

Re: Etymology 101; was Parsing

2012-12-07 Thread Dale R. Smith
you can't say something nice, don't say nothin' at all. ” ― Thumper (from the Disney classic "Bambi") -- Dale R. Smith -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Any CA Endevor tutorial | training - low or no cost?

2013-01-30 Thread Dale R. Smith
On Wed, 30 Jan 2013 10:00:47 -0600, John McKown wrote: >Thanks. I'll do that after staff "infection". Is that a new version of "staph infection" for health care employees? :-)> -- Dale R. Smith --

Re: COBOL source code quality check for performance

2018-01-29 Thread Dale R. Smith
to look at Marble Computing products Control/DCD and possibly Control/SE. Their website is: https://marblecomputer.com/ -- Dale R. Smith -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists.

Re: Question for COBOL users

2018-02-13 Thread Dale R. Smith
if it was allowed to be an installation default, that would satisfy the RFE? Maybe with an additional parameter for an installation default to specify when SYSOPTF is to processed, first or last? -- Dale R. Smith -- For IBM-MAIN su

  1   2   >