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 -k1
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 what needs to b
ed 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
0???
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 lists...@
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't know if
r & Grill - Israel
Did you see this link?
https://www.idug.org/communities/community-home/digestviewer/viewthread?GroupId=253=42599=02a8700a-dc76-4190-9a3c-24f0738c1067=digestviewer
--
Dale R. Smith
--
For IBM-MAIN subsc
, 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: "Ye
ne 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 original program with a trailing
space, if it fails then try changing the line as I suggested and execu
;
>
>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
--
For IBM-MAIN s
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 testing the returned value, but
Say 'Error' result 'trying to Establish the',
'SYSCALLS Environment.'
Exit result
End
rams 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, unless you use
Drop.)
For example, you are using st
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
ult 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(),DISP=SHR
The parameter is now referenced in the PROC and hopefully the val
gt;
>
>...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
--
For IBM-MAI
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.
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
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 segme
ve
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 provide someth
=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
-
our 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
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
-
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
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
gt;> ---
>> 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
--
Dale R. Smith
Value =
...
...
sysname is a variable with a value of 'foo' so SYMDEF looks for System Symbol
"foo" not SYSNAME.
--
Dale R. Smith
Factotum
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send
le:
• 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
--
say '"'MVSVAR('SYMDEF',foo)'"'
""
I did that last one to show that if the Symbol Name does not exist, then SYMDEF
returns a null value. is for use in JC
elimiters 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
(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
server'...'
scmd = 'QUIT'
src = 'FTPAPI'(apistem,'SCMD',scmd)
If src < 0 Then Call API_ERROR 'RETURN'
connected = 0
End
Say 'Terminating FTP Client API Environment...'
src = 'FTPAPI'(apistem,'TERM')
If src < 0 Then
Say 'Error Terminating the FTP
ems 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 tools you use it with!
--
Dale R. Smith
--- End Catalog Search Interface (CSI) Common Subroutines --*/
I know this is long post, but I hope it will be helpful to the OP and to anyone
else that wants to write REXX programs that extract Catalog information using
CSI. If anyone has questions about the code, either post them here
tilities 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
--
For IBM-
r
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 COPY stateme
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 +000
t;http://mason.gmu.edu/~smetz3
Try this:
Parse Value Space(Translate(parm,"","'"),0)' ' With . '(' val ') ' .
(Forgot that Translate does not support translating to nulls.)
--
Dale R. Smith
--
For IBM-MAIN su
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
ER))
> INDSN(DSNAME)
> INDSN('HLQ.DSNAME(MEMBER)')
> INDSN('HLQ.DSNAME')
Here is your one line REXX solution:
Parse Value Translate (parm,"","'")' ' With . '(' val ') ' .
Hopefully the single and
ick 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
tunately 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
ly
>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
program are before the "/"
with the "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
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
Do
osdsn = value
Leave s
End
End /* Do s = rec.0 to 1 by -1 */
Drop rec.
If osdsn = ''
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
e, if 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
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
t; 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 code WTO.MCSFLAG =
'(NOCPY)'
If you have not done so already, please download and read, (or read online),
the
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 their own! :-)> )
--
D
neral Computing Dictionary".
A version can be found here: https://comlay.net/ibmjarg.pdf
--
Dale R. Smith
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
ing:
https://www.ibm.com/support/knowledgecenter/en/SSZJDU_6.1.0/com.ibm.itnetviewforzos.doc_6.1/dqgl2mst68.htm
You need to review the Netview documentation to see what Netview commands are
available for use.
--
Dale R. Smith
--
Fo
Only the MVS control blocks that are required in
the JES2 product are supported by $MODULE. And
only the operands on those mapping macros that JES2
requires are supported.
--
Dale R. Smith
--
default option. Maybe 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
On Thu, 30 Nov 2017 03:47:51 -0600, Edward Gould <edgould1...@comcast.net>
wrote:
>> On Nov 30, 2017, at 1:23 AM, Jack J. Woehr <j...@well.com> wrote:
>>
>> “42"
>
>I know I shouldn’t ask but what is “42”.
>
>Ed
The number of employees l
)
And before there was Db2, there was SQL/DS on VM and VSE.
--
Dale R. Smith
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
mes of variables 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
r moves to numeric fields from 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
-
= 1 to Words(lcltime) */
Exit 0
--
Dale R. Smith
--
For IBM-MAIN subscribe / signoff / archive access instructions,
/* Site and Path used in the Exec. */
/*RC = nn */
/* Indicates that an error occurred while executing a command. */
/*
ode would be 0 if the file 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
n code of
4, and continue 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
--
sn't the warning message 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
-
gt;
>.phsiii
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 Navigate!" :-)>
uld involve more work!
--
Dale R. Smith
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
to make sure the COBOL program is linked 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
---
Say 'MSTR Size =' Right(mstr,5)
Say 'LOG Size =' Right(logsize,5)
Say 'Total =' Right(total,5)' Tracks =' trks
Exit 0
* End CKPTSIZE REXX *
Please note that "variables" like "!4k" start with an exclamation point (!). I
would have liked to use just "4k",
not required), so you 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
enhanced with several releases after that.
--
Dale R. Smith
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
timing
of the clone. I assume the clone was done with a snapshot?
--
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 other option not mentioned 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
-
h this is configurable.
>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
ot sure
if it'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 subsc
output field with even number 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
---
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 both, because dropping
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
=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
--
For IBM-MAIN
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 instructions
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
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
are Elementary Items so an
Elementary Move is done and data conversion will take place. Since the output
field 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
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 Comp-5 instead of Comp.
--
Dale R. Smith
MWV
The MWV allows 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
On Tue, 19 Aug 2014 09:50:57 -0500, Ron Thomas ron5...@gmail.com 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=ind1005L=ibm-mainT=0O=DF=S=P=399979
--
Dale R. Smith
of
Winders. :-)
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
.
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 IBM-MAIN subscribe / signoff / archive access instructions,
send
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
--
For IBM-MAIN
!
rec.1-rec.10 from current file, rec.11-rec.20 from previous file! */
'EXECIO' rec.0 'DISKW FILEOUT (FINIS STEM REC.' /* Writes 10 records out */
Of course, you could do a REXX Drop rec. command between the reads and that
would allow * to work, but why bother?
--
Dale R. Smith
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
accurate and totally irrelevant to my problem, so I knew it had to be
the IBM building.
--
Dale R. Smith
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
solution to VSAMs lack of sharing and access from non-mainframe systems. If
anyone needs more information, GIYF.
--
Dale R. Smith
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
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/software than 1 character? And i, is this an Apple box?)
--
Dale R. Smith
--
For IBM-MAIN
On Wed, 30 Jan 2013 10:00:47 -0600, John McKown john.archie.mck...@gmail.com
wrote:
Thanks. I'll do that after staff infection.
Is that a new version of staph infection for health care employees? :-)
--
Dale R. Smith
, 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
their operating systems equally and they don't
understand the concept of sharing data between different systems.
--
Dale R. Smith
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists
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. Smith
. 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
--
For IBM-MAIN
97 matches
Mail list logo
