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
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
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
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
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
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
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
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
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
;
>
>
>
>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
-
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
Do
Say 'Error' result 'trying to Establish the',
'SYSCALLS Environment.'
Exit result
End
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
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
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
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
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 segment and/or UID assigned to it?
--
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
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
-
: 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
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
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
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
--
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
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
-
...
say '"'MVSVAR('SYMDEF',foo)'"'
""
I did that last one to
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
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
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
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
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
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
-
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
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
>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
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 . '
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
>>> "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
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
"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
7;--' value .
If type \= 'NONVSAM' Then Iterate s
m = m + 1
If num = m Then
Do
osdsn = value
Leave s
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
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
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
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
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
ing 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
upport/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
--
For IBM-MAIN
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.
--
Da
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
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.
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
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
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
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
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) */
*/
/*SAMPHTTP: Error nn Creating MVS File "OUTPUT". (RC=nn) */
/* */
/*SAMPHTTP: Creating CMS File "OUTPUT DATA x"... */
/*
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
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
---
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
-
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
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
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
)
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)
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
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
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
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
.
>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
#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
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
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
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
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
-
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
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
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
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
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
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
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=&
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
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
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
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
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
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
, 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
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
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
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
--
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
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
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)
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
1 - 100 of 103 matches
Mail list logo