Re: publibz-infocenter-knowledgecenter
On 12/19/2014 6:09 AM, Paul Gilmartin wrote: On Thu, 18 Dec 2014 16:04:01 -0500, Hobart Spitz wrote: Have you tried http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/library ? OS390? Seriously? But did you follow the link? Browse Shelves takes you to a list of pdf bookshelves that include z/OS V2R1. -Steve Comstock --gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: publibz-infocenter-knowledgecenter
On 12/19/2014 8:33 AM, Paul Gilmartin wrote: On Fri, 19 Dec 2014 07:08:21 -0700, Steve Comstock wrote: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/library ? OS390? Seriously? But did you follow the link? Browse Shelves takes you to a list of pdf bookshelves that include z/OS V2R1. The operant qualifier is PDF. I must download an entire book in order to read a single paragraph. Then I face the choice of discarding it and refetching if I need it again, or bogarting it. You changed the playing field here, from 'OS390' dismay to 'LookAt' dismay. My point was that OS390 is misleading, that you can find current z/OS in the list. But then, you knew that. :-) -Steve Comstock -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Regular Expressions in ISREDIT z/OS 2.01
On 12/10/2014 10:45 PM, Alan Watthey wrote: David, Yes, this function works perfectly for me. You need to use R or RC in front of what you are finding or changing (first parameter). You have to learn regular expressions of course which can be a bit mind blowing but knowing PERL helps in my case. Although everyone seems to implement regular expressions differently enough to make you have to think. I love this new feature because I can now change lower case to lower case and upper case to upper case separately in files. Do you mean change lower case to upper case? Of course you could do that before; for example === c p'' p'' prefix changes the next leading lowercase letter to its uppercase version (of course, this only works correctly with character sets that distinguish between uppercase and lowercase - many languages don't). This course includes a discussion of using picture strings, which have been around a long time, but it has not been updated to include a discussion of regular expressions: http://www.trainersfriend.com/TSO_Clist_REXX_Dialog_Mgr/a633descrpt.htm Kind regards, -Steve Comstock Regards, Alan. -Original Message- From: David Speake [mailto:david.spe...@bcbssc.com] Sent: 11 December 2014 05:06 Subject: Regular Expressions in ISREDIT z/OS 2.01 We have z/OS 2.01 up in the sysprog's sandbox and I am attempting to play with regular expressions in ISREDIT FIND an CHANGE commands both from the command line and within macros. Having NO luck. When I run this MACRO /* REXX */ /* LINE */ /* LANE */ TRACE ?I ADDRESS ISREDIT SAY ADDRESS() MACRO F 'L[AI]NE' against itself it does not find line and lane, it finds 'L[AI]NE' Looking for information I went to TUTOR ISR2M21K via the long route at which point A regular expression string is used to specify a pattern for the string as supported by the C runtime library REGCOMP function, instead of the exact characters to be found. Example - === find r'l[ai]ne' word will find words lane and line in the file being edited A regular expression string is a quoted string that is preceded or followed by the letter R or the letters RC. Use RC to request a case sensitive search be performed. The string must conform to the format allowed by the REGCOMP function supported by the C runtime library and the C runtime library must be available. Could this be my problem? Is this C runtime library available in z/OS ONLY if you buy the C compiler? I do not know if we do or don't have it and I'd rather not upset my SYSPROG with invidious curiosity ;-). Whither this beast? What be its name, directory, etc. Will be back at my desk Thursday about 5:00 EDT. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Regular Expressions in ISREDIT z/OS 2.01
On 12/11/2014 8:01 AM, Paul Gilmartin wrote: On Thu, 11 Dec 2014 08:39:23 -0600, Elardus Engelbrecht wrote: Bill Ashton wrote: I took that to mean that he can change lower case data independent of upper case data, even if the text strings might be similar. For example, changing ftp.mynode.somthing to ftp.newnode.something without also changing DSN=DATAFOR.MYNODE.TRANSMIT,DISP=SHR If so, that can be done in ISPF edit session with CHANGE cftp.mynode.somthing cftp.newnode.something c - just lowercase. C - just Uppercase I thought the 'c' modifier meant ASIS; I hadn't known of the distinction between 'c' and 'C'. There is none; that's a false statement. And there's the obsolescent t'string' construct; still tolerated but no longer documented AFAIK. Huh. What was it for Paul? -Steve Comstock But can one control the case-sensitivity of picture strings? Something like cpstring? AFAIK, picture strings are unconditionally case-insensitive. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Batch cycle JCL standard... CEEDUMP or SYSUDUMP
On 12/3/2014 12:51 PM, Peter Ten Eyck wrote: My concern is that if CEEDUMP is coded instead of SYSUDUMP, that in certain cases (we just had a SOC1 like this) no dump is produced. The LE environment was not able to produce a dump. What about old COBOL programs or Assembler programs when using CEEDUMP? It would seem that coding SYSUDUMP in the JCL and running LE with something like TERMTHDACT(UADUMP,,96) would be the way to go. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN If you do not code a SYSUDUMP DD statement, you can't get a sysudump output. LE, on the other hand, will dynamically allocate a CEEDUMP DD statement if needed. -Steve Comstock -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SOC1 and SYSUDUMP and CEEDUMP
On 11/25/2014 8:19 AM, Chase, John wrote: -Original Message- From: IBM Mainframe Discussion List On Behalf Of Elardus Engelbrecht Sent: Tuesday, November 25, 2014 8:42 AM Lizette Koehler wrote: Also these share presentations may be helpful http://www-03.ibm.com/systems/z/os/zos/features/lang_environment/confer ence/share.html Ah, yes. I remember now. Thanks Lizette! Peter Ten Eyck, are you using a SLIP? According to that presentation, you should not use a SLIP on S0Cx abends. Please review your SLIP settings. Also I see there: 'LE environment has already been cleaned-up and therefore a dump at this point is useless.' Hmmm, very interesting. Indeed. We're currently working a PMR in which, to get an SVCDUMP of a S0C4 before LE's condition handlers got hold of it, we coded an LE override 'TRAP(OFF,NOSPIE)' in the PROC and set a SLIP trap for the 31 jobs (we used the default MATCHLIM=1 because we needed only one dump). We also had to disable Fault Analyzer's dump intercept with //IDIOFF DD DUMMY in the PROC. We also concurrently had a SLIP SA trap recording a GTF trace on the same 31 jobs. IBM Support now has all that doc; hopefully it will reveal the culprit. -jc- If you want to see the environment before clean up, look at these LE runtime options for TERMTHDACT: UADUMP, UAONLY, UATRACE, UAIMM. Kind regards, -Steve Comstock -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How declare in C++ a constant in an assembler module?
On 11/19/2014 6:41 AM, Paul Gilmartin wrote:
On Wed, 19 Nov 2014 07:53:56 -0500, John Gilmore wrote:
C and its sequelæ are and now seem likely to remain toys. They have
achieved all of the portability of assembly language without its
expressive power.
An amusing aphorism, about 1/3 true.
The preponderance of expressive power of HLASM rests in its
preprocessor, but that shouldn't be discounted.
[P]ortability? Be serious. I can compile and execute
#include stdio.h
int main( void ) { printf(Hello, world!\n); }
... on z, x86, ARM, Sparc, undoubtedly others I haven't access
to test. Please exhibit a HLASM program of comparable complexity
and portability. I don't believe even:
START
END
... will compile on most of those architectures (barring Hercules
or z390 which I shall call toys).
Entire operating systems which support great enterprises are
implemented in C on those platforms and others. How many
in HLASM? There are candidates to supersede C. I don't
count HLASM among them. PL/I might be more likely, but
a very long shot.
Paul: it was humor / sarcasm. [At least that's how I read it.]
-Steve Comstock
-- gil
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT/ICETOOL pondering
On 10/23/2014 10:22 AM, Thomas Berg wrote: Thanks Kolusu! It seems so easy when you (and Norbert) explains! :) Of course I should RTFM, but when you are ignorant it takes time find the relevant pieces. Or ... you could take a class. I'd come out of retirement for a bit in order to teacch in Stockholm again. :-) http://www.trainersfriend.com/JCL_courses/B625descrpt.htm (also pointed at from: http://www-01.ibm.com/support/docview.wss?rs=0uid=isg3T782 ) -Steve Comstock (I wonder how many work hours the help here at IBM-MAIN have saved?) Best Regards, Thomas Berg ___ Thomas Berg Specialist zOS/RQM/IT Delivery Swedbank AB (Publ) -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Sri h Kolusu Sent: Thursday, October 23, 2014 6:09 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: DFSORT/ICETOOL pondering Thomas, As others have explained it is quite simple to get the desired results. I am showing examples for both FB and VB files using symbols. With symbols you have the flexibility of changing it and then not worry about changing the control cards. A brief explanation of the job. 1. The first IFTHEN with WHEN=INIT, we will number all records in the file with a 8 byte sequence number. 2. The next 2 IFTHEN statements will validate that sequence number and build the record. If you have more ranges then you can add IFTHEN statements before the last IFTHEN with WHEN=NONE statement //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SYMNOUT DD SYSOUT=* //SYMNAMES DD * FILE-REC-LENGTH,1,80,CH RECORD-SEQ-NUMBER,*,8,ZD REQD-DATA1,1,3,CH REQD-DATA2,31,10,CH REQD-DATA3,71,10,CH RECD-SELECT-NUM1,5 RECD-SELECT-NUM2,7 RECD-SELECT-NUM3,9 //SORTIN DD DISP=SHR,DSN=Your Input FB file //SORTOUT DD SYSOUT=* //SYSINDD * OPTION COPY INREC IFTHEN=(WHEN=INIT,OVERLAY=(RECORD-SEQ-NUMBER:SEQNUM,8,ZD)), IFTHEN=(WHEN=(RECORD-SEQ-NUMBER,GT,RECD-SELECT-NUM1,AND, RECORD-SEQ-NUMBER,LE,RECD-SELECT-NUM2), BUILD=(REQD-DATA1,REQD-DATA2)), IFTHEN=(WHEN=(RECORD-SEQ-NUMBER,GT,RECD-SELECT-NUM2,AND, RECORD-SEQ-NUMBER,LE,RECD-SELECT-NUM3), BUILD=(REQD-DATA1,REQD-DATA2,REQD-DATA3)), IFTHEN=(WHEN=NONE,BUILD=(REQD-DATA2)) //* The above control cards will be translated as the following //SYSINDD * OPTION COPY INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,8,ZD)), IFTHEN=(WHEN=(81,8,ZD,GT,5,AND,81,8,ZD,LE,7), BUILD=(1,3,31,10)), IFTHEN=(WHEN=(81,8,ZD,GT,7,AND,81,8,ZD,LE,9), BUILD=(1,3,31,10,71,10)), IFTHEN=(WHEN=NONE,BUILD=(31,10)) //* If you have VB input files then you need to use sequencing of the records right after the RDW. //STEP0200 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SYMNOUT DD SYSOUT=* //SYMNAMES DD * FILE-RDW,1,4,BI RECORD-SEQ-NUMBER,*,8,ZD VBDATA-SPOS,= REQD-DATA1,*,3,CH SKIP,27 REQD-DATA2,*,10,CH SKIP,30 REQD-DATA3,*,10,CH RECD-SELECT-NUM1,5 RECD-SELECT-NUM2,7 RECD-SELECT-NUM3,9 //SORTIN DD DISP=SHR,DSN=Your Input VB File //SORTOUT DD SYSOUT=* //SYSINDD * OPTION COPY INREC IFTHEN=(WHEN=INIT, BUILD=(FILE-RDW,RECORD-SEQ-NUMBER:SEQNUM,8,ZD,VBDATA-SPOS)), IFTHEN=(WHEN=(RECORD-SEQ-NUMBER,GT,RECD-SELECT-NUM1,AND, RECORD-SEQ-NUMBER,LE,RECD-SELECT-NUM2), BUILD=(FILE-RDW,REQD-DATA1,REQD-DATA2)), IFTHEN=(WHEN=(RECORD-SEQ-NUMBER,GT,RECD-SELECT-NUM2,AND, RECORD-SEQ-NUMBER,LE,RECD-SELECT-NUM3), BUILD=(FILE-RDW,REQD-DATA1,REQD-DATA2,REQD-DATA3)), IFTHEN=(WHEN=NONE,BUILD=(FILE-RDW,REQD-DATA2)) //* Further if you have any questions, please let me know Thanks, Kolusu DFSORT Development IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU wrote on 10/23/2014 06:43:44 AM: From: Thomas Berg thomas.b...@swedbank.se To: IBM-MAIN@LISTSERV.UA.EDU Date: 10/23/2014 06:44 AM Subject: Re: DFSORT/ICETOOL pondering Sent by: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Elardus Engelbrecht Sent: Wednesday, October 22, 2014 3:52 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: DFSORT/ICETOOL pondering Thomas Berg wrote: Sometimes I have a need to do a selective copy of a dataset where the selection is both record sequence and record position/part dependent. And by that I mean the record part/position is varying depending on which record it's about. An example (yes, it looks silly): Who ever gave you homework is silly... ;-D ...it's me... :) I want to copy position 31 to 40 of all records but from record 8 and 9 I want to copy also (concatenate) position 71 to 80 and from record 6 to 8 I also (concatenate in front) want to copy position 1 to 3. Hmmm. Hard requirement if you want all of this in ONE pass. Could you be kind to post an example of your input and output? An hypotethical example (monospace font
Re: Specify RLSE but omit SPACE values?
On 10/21/2014 5:18 PM, Paul Gilmartin wrote:
I have allocated a data set with:
// DISP=(MOD,CATLG),SPACE=(1,(100,100))
Now, I'd like to update it with:
// DISP=SHR,SPACE=(,,RLSE)
Hmmm. Maybe SPACE=(,(,),RLSE) ?? Just a guess.
I get a message on missing positional parameter. I'd prefer not
to override the original SPACE options. Must I override, merely
to add RLSE?
Hmmm. In:
http://pic.dhe.ibm.com/infocenter/zos/v2r1/topic/com.ibm.zos.v2r1.ieab600
Syntax
z/OS MVS JCL Reference
SA23-1385-00
I see:
SPACE=
({TRK,}(primary-qty[,second-qty][,directory])[,RLSE][,CONTIG][,ROUND])
({CYL,}[, ] [,][,MXIG ]
({blklgth,} [,ALX ]
({reclgth,} [, ]
Is there a misplaced '(' there? I'm used to coding SPACE=(TRK,pri,(sec,dir))
but that seems to say it should be SPACE=(TRK,(pri,sec,dir)). Is that right?
Yes, the latter is correct.
-Steve Comstock
And the optional [...] don't seem to be nested right.
Could be a fun RCF. I hope they don't just say, Ignore the diagram; rely on
the prose.
-- gil
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Upgrade to Enterprise COBOL v5.1
On 10/8/2014 8:35 PM, Brian Peterson wrote: We have had a lot of success with COBOL 5 but have had a few edge cases where we've seen issues. Since you mention OPT(1), one thing we've seen with COBOL 5 is that the calling and called program parameter lists must be identical. Check and see if there is a coding mistake where your calling program specifies for example the 05 level of a data structure and the called program specifies the 01 level. We z/OS guys understand that it is just an address pointer, but the COBOL compiler will silently discard statements that are known to be a constant value since they cannot change. A statement cannot be 'a constant value'. A data item may be. 01 Field-01. 05 sub-field-02 pic x(8) value . 05 sub-field-03 pic x(8) value . If the calling program passes sub-field-02 to the called program instead of field-01, the compiler will assume the calling program cannot change sub-field-03 and drop for example IF statements that refer to sub-field-03 since the compiler knows what the value must be. That doesn't sound remotely accurate. Just because a field is initialized doesn't mean it cannot be changed; the compiler would not / could not arbitrarily drop data fields in parameter lists. I suggest the true cause of problems you encountered were caused by other reasons. Now, if a data item is not referenced in a program, the compiler has been known to remove the data item from a program under certain conditions. In your example, if no statement mentions any of the names Field-01, sub-field-02, or sub-field-03 then the structure might not be included in the object code at all. But that's not what you seem to be trying to say. -Steve Comstock Valid COBOL programs work well with COBOL 5 but edge cases can be tricky to debug. Another option is to try OPT(0). Brian -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: COBOL 5 compile options
On 9/27/2014 5:58 AM, John Gilmore wrote: I feel a little like a Zoroastrian intruding into a discussion among Thomist theologians about whether the archangels in moving from Samarra to Novara pass through the intervening space, but the whole notion of imposing decimal-picture constraints upon binary arithmetic strikes me as absurd. Now that it is available TRUNC(OPT) has everything to recommend it. TRUNC(OPT) has been available since VS COBOL II R3 or R4, somewhere around 2000 or earlier. -Steve Comstock It is faster, more accurate, and yields results that are more perspicuous to any but a diseased imagination. Any situation in which the twos-complement byte, halfword, and fullword hardware bounds -128 = y +127 (-2^7 = y = +2^7 - 1) (-2^15 - h = +2^15 - 1) -32768 = h = +32767 -2147483648 = f = +2147483647 (-2^31 = f = +2^31 - 1) are adjusted implicitly during and following arithmetic operations results in the generation of more (sometimes much more) and sillier code.(Explicit operations that use MAX, MIN, or both are available for performing such operations where, exceptionally, they are appropriate.) John Gilmore, Ashland, MA 01721 - USA -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: COBOL 5 compile options
On 9/26/2014 11:31 AM, Frank Swarbrick wrote: I've been pondering the TRUNC option since yesterday. Let me ask thisquestion... Is the only time the TRUNC option come in to effect when one binary field is moved to another, smaller, binary field? Because it appears if a packed-decimal or zoned decimal field is moved in to a smaller binary field the TRUNC(STD) logic is always performed. Specifically, the sending field is moved to a temp field, it is then truncated, and then converted to binary. At least in the examples I've tried. TRUNC(STD) indicates to the compiler that results of MOVEs or calculations into BINARY fields should be truncated to the precision of the PICTURE (this conforms to ANSI standards) Consider: 05 FLDA PIC S99 COMP. if you code MOVE +125 TO FLDA the result should be '25' (x'0019') in FLDA - truncation to the number of 9's in the picture - with TRUNC(STD). With TRUNC(BIN) the result is '125' (x'007D') - the whole result is included as long as it fits into physical size (halfword in this case) of the target field. With TRUNC(OPT) the compiler will choose the instruction path that is fastest; might be a MVC, might be LH / STH, etc.; it depends. IBM has never documented the rules, claiming they are 'proprietary' or at least subject to change from release to release. Recommend: binary fields should be defined with the maximimum number of nines (such as PIC S for halfword) and compile with TRUNC(OPT). -Steve Comstock If that's the case I think I'll just stay with TRUNC(STD) since situations where TRUNC(OPT) would come in to play would be rare enough anyway that there would be no noticeable gain, and too much to lose. I can't think of many cases where someone would move a large binary field to a smaller one anyway. Personally, I think picture defined COMP/BINARY fields should be eliminated in favor of the COBOL 2002 BINARY-SHORT (halfword), BINARY-LONG (fullword) and BINARY-DOUBLE (doubleword) data types, which make much more sense in the real world anyway. (of course eliminating the legacy data types is never going to happen, because its too ingrained.) Thanks, Frank From: Tom Ross tmr...@stlvm20.vnet.ibm.com To: IBM-MAIN@LISTSERV.UA.EDU Sent: Friday, September 26, 2014 10:51 AM Subject: Re: COBOL 5 compile options Thanks Tom! For HGPR, don't you mean the reverse of what you said? PRESERVE would alwa= ys be save because COBOL preserves and restores the high-halves of the regi= sters, right? Safer, but not as efficient? Ooops, at least I was 100% wrong :-) Yes, PRESERVE is safer, although NOPRESERVE might be safe for most as well. As for NUMPROC, thanks for the info. Seems to me the documentation could b= e made clearer, though I don't know exactly all. In the end I can't imagin= e doing what you suggest, even though it's the only way to be sure. So w= e'll probably, unfortunately, just go with NOPFD. But thanks a lot for the= info!! Yes, I was aware that my idea was kind of crazy, and eve asked at SHARE if anyone could ever do such a thing. On the other hand, if you did not find out if your data has preferred signed and chose PFD, you could get silent death ;-) Question about one additional option. We use TRUNC(STD) right now. What w= ould be have to be aware of if we wanted to switch to TRUNC(OPT) (where I a= ssume OPT =3D optimize)? Is OPT fully compliant with COBOL standard trun= cation rules? TRUNC(OPT) does not result in any code generated to truncate. it is NOT COBOL Standard conforming and neither is TRUNC(BIN). You could get more accurate results with TRUNC(OPT) (along with much better performance) but I know that for many customers 'more accurate' = 'different' = BAD :-) Cheers, TomR COBOL is the Language of the Future! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: COBOL 5 compile options
On 9/26/2014 2:25 PM, Frank Swarbrick wrote: Hey Steve, Your recommendation for defining binary data items and using TRUNC(OPT) does not make the following truncate with COBOL standard rules: I didn't say it did: only TRUNC(STD) is guaranteed to truncate with COBOL standard rules. But the COBOL standard rules are not very useful, I think. Of course, in either case, you still have to know your data, and define your fields appropriately. If I'm going to be moving 123451 to a binary field (or if a calculation could possibly result in such a value), I need to plan for my target to be a fullword, pic s9(9). Programmers still need to be cognizant of the limits of the fields they work with. Too many programmers, in my opinion, understand the boundaries of half word and full word (and double word) field values. As they say, common sense is not so common. -Steve 01 sixteen-pdpic 9(16) packed-decimal. 01 binaries usage binary. 05 bin-var-1 pic s99. 05 bin-var-2 pic 9(6). 05 bin-var-3 pic s9(4). 05 bin-var-4 pic s9(9). [...] move zeroes to bin-var-1 move 123451 to bin-var-2 sixteen-pd display bin-var-1 space bin-var-2 move bin-var-2 to bin-var-1 display bin-var-1 space bin-var-2 move sixteen-pd to bin-var-1 display bin-var-1 space bin-var-2 move zeroes to bin-var-3 move 123451 to bin-var-4 sixteen-pd display bin-var-3 space bin-var-4 move bin-var-4 to bin-var-3 display bin-var-3 space bin-var-4 move sixteen-pd to bin-var-3 display bin-var-3 space bin-var-4 exit. TRUNC(STD) results +00 123451 +51 123451 +51 123451 + +000123451 +3451 +000123451 +3451 +000123451 TRUNC(OPT) results +00 123451 -21 123451 +51 123451 + +000123451 -7621 +000123451 +3451 +000123451 From: Steve Comstock st...@trainersfriend.com To: IBM-MAIN@LISTSERV.UA.EDU Sent: Friday, September 26, 2014 12:06 PM Subject: Re: COBOL 5 compile options On 9/26/2014 11:31 AM, Frank Swarbrick wrote: I've been pondering the TRUNC option since yesterday. Let me ask thisquestion... Is the only time the TRUNC option come in to effect when one binary field is moved to another, smaller, binary field? Because it appears if a packed-decimal or zoned decimal field is moved in to a smaller binary field the TRUNC(STD) logic is always performed. Specifically, the sending field is moved to a temp field, it is then truncated, and then converted to binary. At least in the examples I've tried. TRUNC(STD) indicates to the compiler that results of MOVEs or calculations into BINARY fields should be truncated to the precision of the PICTURE (this conforms to ANSI standards) Consider: 05 FLDA PIC S99 COMP. if you code MOVE +125 TO FLDA the result should be '25' (x'0019') in FLDA - truncation to the number of 9's in the picture - with TRUNC(STD). With TRUNC(BIN) the result is '125' (x'007D') - the whole result is included as long as it fits into physical size (halfword in this case) of the target field. With TRUNC(OPT) the compiler will choose the instruction path that is fastest; might be a MVC, might be LH / STH, etc.; it depends. IBM has never documented the rules, claiming they are 'proprietary' or at least subject to change from release to release. Recommend: binary fields should be defined with the maximimum number of nines (such as PIC S for halfword) and compile with TRUNC(OPT). -Steve Comstock If that's the case I think I'll just stay with TRUNC(STD) since situations where TRUNC(OPT) would come in to play would be rare enough anyway that there would be no noticeable gain, and too much to lose. I can't think of many cases where someone would move a large binary field to a smaller one anyway. Personally, I think picture defined COMP/BINARY fields should be eliminated in favor of the COBOL 2002 BINARY-SHORT (halfword), BINARY-LONG (fullword) and BINARY-DOUBLE (doubleword) data types, which make much more sense in the real world anyway. (of course eliminating the legacy data types is never going to happen, because its too ingrained.) Thanks, Frank From: Tom Ross tmr...@stlvm20.vnet.ibm.com To: IBM-MAIN@LISTSERV.UA.EDU Sent: Friday, September 26, 2014 10:51 AM Subject: Re: COBOL 5 compile options Thanks Tom! For HGPR, don't you mean the reverse of what you said? PRESERVE would alwa= ys be save because COBOL preserves and restores the high-halves of the regi= sters, right? Safer, but not as efficient? Ooops, at least I was 100% wrong :-) Yes, PRESERVE is safer, although NOPRESERVE might be safe for most as well. As for NUMPROC, thanks for the info. Seems to me the documentation could b= e made clearer, though I don't know exactly all. In the end I can't imagin= e doing what you
Re: SORT JCL
On 9/15/2014 9:38 AM, Sri h Kolusu wrote: I agree that Sort may not be as easy as a programming language. For example, with REXX you can do LEFT(var,5,'0') or RIGHT(var,5,'0') and that will place zeros up to the number of positions. In Unix, or Perl, or COBOL, or EASYTRIEVE, or Assembler, not hard to do. Lizette, I have to disagree on that. In this case OP showed an complicated cards which are quite unnecessary as the solution is just as simple as a rexx LEFT/RIGHT command. ( see my solution which was posted earlier) *only if the length of the number is 4 * What about 3 or 2 or 1 digits ?. Shane, The solution I have shown will account for lengths 1 thru 6 and will pad the necessary zeroes. Without wishing to appear a die hard defender of DFSORT :-) I would expect DFSORT's I/O speed to be better than that of a program (even with decent Sequential File tuning). But that quite possibly DOESN'T matter. Thanks Martin and I agree with your statement as I am indeed a die hard defender of DFSORT. :) The OP, like many others here, does not appear to want or even to have considered writing a programmed resolution of his problem. He wants to use sort control statements instead. He can certainly do so too, but why? John, I agree with you but there are instances where a 40-50 line COBOL program work is done with a single keyword in DFSORT. Just like in programming there are many people who just complicate a simple task. In this case OP just needed a simple Overlay but instead chose an IFTHEN statement making it complicated. Over the past few years DFSORT has evolved and now can do a lot more than simple sorting. And you can learn most of the new features from the course pointed at from this page: http://www-01.ibm.com/support/docview.wss?rs=0uid=isg3T782 we can teach this, or arrange to have it taught, or you can buy a license for the course for internal teaching. -Steve Comstock Thanks Kolusu -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How tell if have OMVS Segment
Revised my earlier example; see embeded below On 9/10/2014 7:35 PM, John McKown wrote: On Wed, Sep 10, 2014 at 5:22 PM, Charles Mills charl...@mcn.org wrote: I am responsible for an LE-enabled program that runs as a conventional STC but uses various USS services and hence requires an OMVS segment. Currently, if it does not have one, it fails with a U4093/90 (?) ABEND. I would like it to be a little neater than that and put out a No OMVS segment message and quit gracefully. Is there a function or MACRO that will tell me yea/nay on having an OMVS segment? Thanks, Charles I have never done this because we set up the RACF facility which automatically creates an OMVS segment if a RACF id which does not have one attempts to do any UNIX work. But I am fairly sure the magic word is querydub. It is documented here: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/BPXZB1C0/2.145 77 QUERY-DUB PIC X(8) VALUE IS BPX1QDB'. 77 QD-RETVAL PIC S9(9) BINARY. 77 QD-RETRC PIC S9(9) BINARY. 77 QD-RETRSN PIC S9(9) BINARY. CALL QUERY-DUB USING QD-RETVAL QD-RETRC QD-RETRSN. IF QD-RETVAL IS EQUAL TO 4 THEN DISPLAY 'UNIX FACILITIES ARE NOT AVAILABLE TO THIS JOB DUE TO RACF REQUIREMENTS' UPON SYSOUT MOVE +20 TO RETURN-CODE STOP RUN END-IF I am fairly sure that something like the above will work for you. Oh, for some reason I think you are using COBOL. But the above manual has examples in HLASM too. C would be more difficult. You'd need to declare BPX1QDB as having OS linkage conventions. Maybe ... #pragma linkage(BPX1QDB,OS); int ret_val = 0; int ret_code = 0; int ret_reason = 0; ... void BPX1QDB(int *, int *, int *); ... BPX1QDB(ret_val, ret_code, ret_reason); I don't recall off hand how to do a fetch and dynamic call in C. And I don't have any examples here at home. typedef void (*mydnamcl) (int *, int *, int *); mydnamcl callptr; ... callptr = (mydnamcl) fetch(BPX1DQB); (callptr) (ret_val, ret_code, ret_reason); Worth a shot. -Steve Comstock -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Rexx Idiom (was: FTP of EBCDIC file)
On 9/10/2014 8:30 AM, Paul Gilmartin wrote: On Wed, 10 Sep 2014 08:26:53 -0400, Hobart Spitz wrote: How about something like: /* REXX */ pipe input.dsn | split after str x0D25 | joincont not trailing x0D25 | output.dsn exit RC Looks like Batchpipes. How prevalent is BatchPipes? On Wed, Sep 10, 2014 at 3:07 AM, Martin Packer wrote: Not knowing who the authors were, is it possible they were explaining REXX to (what they thought to be) a CLIST-literate audience? TSO/E 2.1 would've been a shock to some. :-) I suggested as much, perhaps sarcastically. But it's a flawed pedagogic practice. Whether in a natural language or in a computer language, a student becomes fluent by immersion, learning to think in the target language, not by composing in a previously known language and translating to the target language. One can write FORTRAN in any language. Symptoms include: o not exploiting compound symbols as associative arrays o not using boolean values as first class data objects o misuse of SIGNAL as if it were GOTO. One can speak German in English: I have been writing Rexx since ten years. One can speak Hindi in English: Please answer my doubt about Rexx syntax. Aww geez! Now I got coffee everywhere. -Steve Comstock -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How tell if have OMVS Segment
On 9/10/2014 7:35 PM, John McKown wrote: On Wed, Sep 10, 2014 at 5:22 PM, Charles Mills charl...@mcn.org wrote: I am responsible for an LE-enabled program that runs as a conventional STC but uses various USS services and hence requires an OMVS segment. Currently, if it does not have one, it fails with a U4093/90 (?) ABEND. I would like it to be a little neater than that and put out a No OMVS segment message and quit gracefully. Is there a function or MACRO that will tell me yea/nay on having an OMVS segment? Thanks, Charles I have never done this because we set up the RACF facility which automatically creates an OMVS segment if a RACF id which does not have one attempts to do any UNIX work. But I am fairly sure the magic word is querydub. It is documented here: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/BPXZB1C0/2.145 77 QUERY-DUB PIC X(8) VALUE IS BPX1QDB'. 77 QD-RETVAL PIC S9(9) BINARY. 77 QD-RETRC PIC S9(9) BINARY. 77 QD-RETRSN PIC S9(9) BINARY. CALL QUERY-DUB USING QD-RETVAL QD-RETRC QD-RETRSN. IF QD-RETVAL IS EQUAL TO 4 THEN DISPLAY 'UNIX FACILITIES ARE NOT AVAILABLE TO THIS JOB DUE TO RACF REQUIREMENTS' UPON SYSOUT MOVE +20 TO RETURN-CODE STOP RUN END-IF I am fairly sure that something like the above will work for you. Oh, for some reason I think you are using COBOL. But the above manual has examples in HLASM too. C would be more difficult. You'd need to declare BPX1QDB as having OS linkage conventions. Maybe ... #pragma linkage(BPX1QDB,OS); int ret_val = 0; int ret_code = 0; int ret_reason = 0; ... void BPX1QDB(int, int, int); ... BPX1QDB(ret_val, ret_code, ret_reason); I don't recall off hand how to do a fetch and dynamic call in C. And I don't have any examples here at home. typedef void (*mydnamcl) (int, int, int); mydnamcl callptr; ... callptr = (mydnamcl) fetch(BPX1DQB); (callptr) (ret_val, ret_code, ret_reason); Worth a shot. -Steve Comstock -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Is Lorem Ipsum a code hiding in plain sight [OT}
On 8/18/2014 1:40 AM, Charles Mills wrote: Waaay OT but too strange and wonderful not to share. I am certain that there are many here who will be fascinated by this. http://krebsonsecurity.com/2014/08/lorem-ipsum-of-good-evil-google-china/ Charles -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN That _is_ interesting. Thanks. -Steve Comstock -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: INITILAIZE COST
On 8/11/2014 7:37 PM, Ron Thomas wrote: Hello. We have a array like this , what would be best way to initlaize this array in terms of performance ? 01 EXAMPLE-TABLE. 05 MY-TABLE. 10 TABLE-ENTRY OCCURS TIMES. 15 FIRST-NAME PIC X(15). 15 LAST-NAME PIC X(15). 15 SEX-CODE PIC X. 15 DOB. 20 DOB- PIC 9(4). 20 DOB-MM PIC 99. 20 DOB-DD PIC 99. 15 SSNPIC 9(9). 15 SALARY PIC S9(9)V99 COMP-3. Thanks Ron T Put a VALUE clause on each elementary item. -Steve Comstock -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: INITILAIZE COST
On 8/11/2014 7:43 PM, Sam Siegel wrote: Don't. Use occurs depending on or keep track of number of entries in a separate variable. Populate entries as needed. All valid entrIes are initialized when populated. Restrict subsequent operations to number of rows in table. Well, of course, we don't really know what the OP wanted. In terms of performance, you want to code a VALUE clause on each elementary item. This results in the whole table being initialized (assuming COBOL 4.2 (I think) or later) in the load module / program object so the table is initialized at the time the program is loaded. Of course, all the entries will be the same. So what was the OP after? An advantage of doing this also allows you to re-initialize the table with the INITIALIZE verb. But, of course, maybe the data the OP wants to put into the table is from an external file or data base. We don't really know. -Steve Comstock On Aug 11, 2014 6:37 PM, Ron Thomas ron5...@gmail.com wrote: Hello. We have a array like this , what would be best way to initlaize this array in terms of performance ? 01 EXAMPLE-TABLE. 05 MY-TABLE. 10 TABLE-ENTRY OCCURS TIMES. 15 FIRST-NAME PIC X(15). 15 LAST-NAME PIC X(15). 15 SEX-CODE PIC X. 15 DOB. 20 DOB- PIC 9(4). 20 DOB-MM PIC 99. 20 DOB-DD PIC 99. 15 SSNPIC 9(9). 15 SALARY PIC S9(9)V99 COMP-3. Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: another question about TSO edit command
On 8/10/2014 2:19 AM, Arthur Fichtl wrote: I know, this is an issue to be discussed rather in ISPF-L than here, but i assume that all folks here are using ISPF intensively as well. What I'm really missing in ISPF edit (since I had a task that would have been solved smartly in this way) are these 2 features: ·A REDISPLAY/REFRESH command in edit macros and not sure what you mean / what you want by that ·A command to convert special lines (like notelines) to datalines. the line command MD does that, and has for many years At present we are running z/OS 1.13 but when reading the ISPF-docs for 2.1 I could not find any hint in this direction. Arthur -Steve Comstock -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: using TSO edit command
On 7/28/2014 4:06 PM, John Norgauer wrote: For the seasoned sysprog: Can TSO edit command be used against a PDS. If so, what is the format of the command. I was experimenting with the command and can not edit a member in a PDS. Thanks., -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Did you try == edit my.pds(member) emode or possibly == edit 'my.pds(member)' emode assuming you are working with an existing member; the quotes are needed if TSO is prefixing the dsn with your TSO id. -Steve -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: using TSO edit command
On 7/28/2014 4:36 PM, John Norgauer wrote: Thanks... emode got me into the edit You're welcome. We actually have a short lecture and lab on TSO edit in our CLIST class (but not our REXX class): http://www.trainersfriend.com/TSO_Clist_REXX_Dialog_Mgr/A650O.HTM -Steve Comstock -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Steve Comstock Sent: Monday, July 28, 2014 3:22 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: using TSO edit command On 7/28/2014 4:06 PM, John Norgauer wrote: For the seasoned sysprog: Can TSO edit command be used against a PDS. If so, what is the format of the command. I was experimenting with the command and can not edit a member in a PDS. Thanks., -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Did you try == edit my.pds(member) emode or possibly == edit 'my.pds(member)' emode assuming you are working with an existing member; the quotes are needed if TSO is prefixing the dsn with your TSO id. -Steve -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TSO EDIT COMMAND - BOUNDS
On 7/25/2014 7:50 AM, esmie moo wrote: Good Morning Gentle Readers I am trying the bounds command because I want to make a universal change between columns 35 to 50. I tried the HELP BNDS doc however it is not very clear. Here is what it says: The bounds may then be changed by overtyping with to define the left bound and to define the right bound. I am not sure where I would overtype the the I tried 35 but it shifted the datat to col 35 which is not what I want. I would like to set the bounds between col 35 50 so that I can enact my CHANGE command. Is this possible? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN First issue the 'bounds' primary command (or issue 'profile 8') and the bounds line will display. This is where you set and . -Steve Comstock -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Freebie software
On 7/8/2014 8:57 AM, Dave Salt wrote: You say save. Management, at least here, would translate this into real savings this by firing nine or ten developers. That is true saving. Saving money by not hiring a new employee is not saving in their world view. Saving money is reducing cost. It is not eliminating future costs. Productivity is the responsibility of the individual programmer. Or, a poor workman blames his tools! (or lack thereof). I hear you, and I've heard that same argument many times. But it makes absolutely no sense to me. If we take the example of a company that spends 10 million dollars a year to employ 100 mainframe developers, and that company licenses a tool that improves productivity by 10%, that's a REAL saving of 1 million dollars a year no matter how you look at it. Less of course the cost of licensing the tool; let's use $8,000 a year as an example g. Once the tool has been licensed the company can immediately fire 10 employees and get roughly the same amount of work done. Doing this results in a REAL annual cost saving of $1,000,000 - $8,000 = $992,000. Alternatively they could let employees go through attrition and not hire anyone to replace them. For example, even if only one of their employees leaves and doesn't do so until 6 months from now the company would still have a REAL cost saving of $50,000 - $8,000 = $42,000. Meanwhile, their other 99 employees are all doing 10% more work. Even if the company keeps hiring people because they've got so much work to do, all of their existing and new employees will be getting 10% more work done. This means projects will be completed faster and at lower cost. If those projects are charged back to end users (as they usually are), that's a REAL cost saving. Maybe in addition to increasing productivity the new tool reduces things like training costs, printing costs, CPU costs, storage costs, and more. Again, these fit under the category of REAL cost savings. A lot of tools also have 'soft' savings that managers don't even think about. Maybe it helps solve production problems faster, which means there are less outages and customers are kept happier. Maybe it helps deliver new features to market faster than competitors, which helps the company thrive and gain market share. Maybe it keeps employees happy so there's less turnover and less rehiring and retraining. Maybe it reduces the need to spend millions of dollars switching from z/OS to some other 'more productive' platform. These and many more examples of 'soft' savings could be worth more than all of the 'hard' savings put together. To use an analogy, I pay an extra $5 a month on my phone bill for a long-distance calling plan. I don't have to pay that fee, but it saves me at least $50 a month in long-distance calling charges. Not paying the extra $5 would be foolish, and I think even children in grade 5 could understand that simple logic. Incredibly, this seems much too complex for many mainframe managers to understand. I had the same problem with selling training. I even built a simple little ROI (Return On Investment) calculator on our website; it's still there: http://www.trainersfriend.com/ROI/roi.html but I don't think it helped sell a single class. We once found some (many?) customers assumed it was more expensive to bring us in from Denver than to use local people. Kitty showed them that even though we included travel and living in our charges, we were less expensive than most local vendors. That actually got us into one customer in Seattle. -Steve Comstock Dave Salt SimpList(tm) - try it; you'll get it! http://www.mackinney.com/products/program-development/simplist.html Date: Tue, 8 Jul 2014 06:59:38 -0500 From: john.archie.mck...@gmail.com Subject: Re: Freebie software To: IBM-MAIN@LISTSERV.UA.EDU On Mon, Jul 7, 2014 at 11:48 AM, Dave Salt ds...@hotmail.com wrote: On Mon, Jul 7, 2014 at 9:35 AM, DASDBILL2 dasdbi...@comcast.net wrote: The loss of time is never free. I couldn't agree more. If it costs $100,000 a year to employ a mainframe developer (salary, benefits, premises, etc.), then for every 100 developers a company employs it costs a staggering 10 million dollars a year. If a company can improve the average productivity of those workers by as little as 10% they'd save 1 million dollars a year for every 100 workers. But many companies would rather waste millions than spend a few thousand on tools that improve productivity. You say save. Management, at least here, would translate this into real savings this by firing nine or ten developers. That is true saving. Saving money by not hiring a new employee is not saving in their world view. Saving money is reducing cost. It is not eliminating future costs. Productivity is the responsibility of the individual programmer. Or, a poor workman blames his tools! (or lack thereof). Dave Salt SimpList(tm) - try it; you'll get it! http://www.mackinney.com/products
Re: PDSE member profile
On 6/27/2014 5:44 AM, Buckton, T. (Theo) wrote: Hi There, Which process determines the profile of a member in a PDSE (Library) data set. Better question: What determines the profile ...; there is no 'process'. There are some default profiles provided with the system. Generally, the low level qualifier of the dataset name (sequential, PDS, PDSE) is chosen as the profile name. If this name is not known, the general default profile attributes are copied to the profile and when you exit from edit, the new profile is saved. You can change the attributes of the current profile by issuing commands, usually the same as the attribute names, e.g.: == number off or == num off == recovery on or == rec on and so on. If the profile is unlocked, when you exit the edit, the new attributes for this profile are saved. If the profile is locked, first issue == profile unlock and go on from there. Kind regards, -Steve Comstock When one browses the PDSE, views the member and enter PROFILE on the command line of the member, it brings up some attributes. How are these attributes determined: Eg. DECKS (FIXED - 80)RECOVERY OFF WARNNUMBER OFF... CAPS ONHEX OFFNULLS ON STDTABS OFF.. AUTOSAVE ONAUTONUM OFFAUTOLIST OFFSTATS ON.. PROFILE UNLOCKIMACRO NONEPACK OFFNOTE ON HILITE OFF CURSOR FIND.. Regards Theo Buckton Nedbank Limited Reg No 1951/09/06. The following link displays the names of the Nedbank Board of Directors and Company Secretary. [ http://www.nedbank.co.za/terms/DirectorsNedbank.htm ] This email is confidential and is intended for the addressee only. The following link will take you to Nedbank's legal notice. [ http://www.nedbank.co.za/terms/EmailDisclaimer.htm ] -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Any need? DFSORT interface to C language
On 6/8/2014 12:50 PM, Rob Schramm wrote: I think it is needed. I was doing some assembler work and wanted to store source in zUnix.. no joy. Can you be more specific? What kind of problems did you encounter? I've successfully assembled and bound assembler code under z/OS UNIX using 'c89', 'as', and 'ld' in various combinations. -Steve Comstock It is annoying to have source with suffix like .asm and have to store it in a pds without it. Bleh!! Rob Schramm On Jun 8, 2014 11:11 AM, Paul Gilmartin 000433f07816-dmarc-requ...@listserv.ua.edu wrote: On Sun, 8 Jun 2014 10:00:38 -0500, John McKown wrote: ..., is there any compelling reason that I should create a source PDSE and an JCL PDS for compiling the source in the PDS? Why? Can't HLASM and the compiler(s) deal with source in UNIX directories? And you can view UNIX directories with UDLIST, edit members with ISPF Edit, and SUBMIT them, etc. Even (perhaps unsupported, but I do it) put UNIX directories in your SYSEXEC concatenation, and execute Edit macros from them. Restriction: the first catenand must be a PDS(E), not a UNIX directory. Is CP 1047 a problem? -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Friday Puzzler
On 5/23/2014 10:02 AM, Grinsell, Don wrote: I have an end user job that is getting a JCL error and I know how to fix it but I can't explain exactly why it's failing. I can recreate the error with the following JCL: //STEP1 EXEC PGM=IEFBR14 //DD1 DD DSN=F00.DUMMY,DISP=(NEW,PASS,DELETE), // UNIT=TEMPSTOR,SPACE=(TRK,1),RECFM=FB,LRECL=80 //STEP2 EXEC PGM=IEFBR14 //DD1 DD * RECORD1 // DD DSN=F00.DUMMY,DISP=OLD //STEP3 EXEC PGM=IEFBR14 //DD1 DD DSN=F00.DUMMY,DISP=(OLD,DELETE,KEEP) F00.DUMMY gets allocated in STEP1 and is deleted at the end of STEP2 causing STEP3 to get a JCL error. I can correct the situation by specifying DISP=(OLD,PASS) in STEP2 or simply removing STEP3. My question is why does the dataset get deleted in STEP2? Is it because you have no ddname on the F00.DUMMY DD statement? -Steve Comstock -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Redbook on z/OS V2.1
On 5/21/2014 8:18 AM, Lizette Koehler wrote: I just came across this DRAFT Redbook. Draft Document for Review May 14, 2014 3:41 pm SG24-8140-00 z/OS Version 2 Release 1 Technical Updates http://www.redbooks.ibm.com/redpieces/pdfs/sg248140.pdf Lizette -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN If you subscribe, you can get a weekly list of new and updated redbooks / redpieces. The doc you reference has appeared in the list at least two or three times. I find this no-charge facility a great way to keep up in many areas. -Steve Comstock -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT SVC
On 5/21/2014 9:45 AM, Richard Peurifoy wrote: On 5/21/2014 6:56 AM, Peter Relson wrote: we are using SYNCSORT as primary sort application, but although DFSORT in connection with DB2. Now we plan to install the DFSORT SVC in parallel. SYNCSORT uses SVC 109 routing code 17 (IGX00017). For DFSORT we would like to use SVC 109 routing code 38 (IGX00038). I have to ask: where did you come up with 38 as the extended routing code to use? I would have expected DFSORT to use 17 and SYNCSORT to use something in the 200-255 range that are reserved for non-IBM products. Or perhaps you might say that the sort program is to use routing code 17. Only the product can tell you if it has a dependency on the routing code that you use. Most will not have such a dependency; some might. In any case, you really ought to use something in the range 200-255 for the second. For what it's worth, there is a historical annotation from 1988 that SVC 109 routing codes up to 53 are assigned. I do not know assigned to what or even if such assignments are still correct. From Sri h Kolusu's response, it sounds like DFSORT is already setup to use routing code 38 if you specify the ALT parm. Also, according to: http://pic.dhe.ibm.com/infocenter/zos/v1r12/index.jsp?topic=%2Fcom.ibm.zos.r12.ieav200%2Fsvc109.htm (watch the wrap) routing codes C8-FF are reserved for customer use with SVC 109, so they should be able to use those as well as SVC 200-255. Umm, 'C8-FF' are hex values which equate to 200-255. There are no 'extra' values there. -Steve Comstock -- Richard -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Customizing ISPF panel
On 5/17/2014 8:17 AM, Lizette Koehler wrote: You should review the Manuals for ISPF. They have good examples of how to build applications/panels in ISPF. You will need to add the ISPF Panel displays in your REXX to do this well. Start with the ISPF Dialog Developer's Guide and Reference. http://pic.dhe.ibm.com/infocenter/zos/v1r12/index.jsp?topic=%2Fcom.ibm.zos.r12.f54dg00%2Fispzdg80.htm There are probably Share presentation as well you can use. If you use an internet search IBM ISPF PANEL BUILD There should be several entries that will work. There is also an ISPF List you might like to join to ask questions on as well. Lizette http://www.trainersfriend.com/TSO_Clist_REXX_Dialog_Mgr/a810descrpt.htm -Steve -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Rajesh Kumar Sent: Saturday, May 17, 2014 6:58 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Customizing ISPF panel Hi all, I would like to customize ISPF panel in my shop . i planed to add a new RACF password reset panel , I coded rexx already for it. My concern is how to create a new panel .Please guide me Regards, Rajesh -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Beyond the EC12
On 4/30/2014 12:50 AM, Elardus Engelbrecht wrote: Ron Hawkins wrote: Reminds me of a Hong Kong building I was living in. The floors went 11, 12, 12a, 14, 15... Weird. If you truly believe in God, you really don't need all those superstitions. If you think God is also a superstition, you don't need it / him / her. Perhaps, it is only me, but for me, avoidance or relying in specific numbers are IMHO just a waste of time. For me relying on God is just a waste of time. To each his own. Oh, wait, this is a techncial forum. And not even Friday. Which was strange seeing 14 is unlucky for the Cantonese Why? What is the matter with 14? Is this a grown-up version of 13? ;-) The Japanese don't like '4' because the reading 'shi' is also 'death'; Maybe it's a similar effect. Ok, I will not contribute anymore to this thread ... Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Compiler error in z/OS C compiler
On 3/31/2014 4:02 PM, Bernd Oppolzer wrote: We discussed this further with some co-workers on my customers site. There are some more aspects of this discussion: a) the C language manual at one certain point states what are pointers acceptable to C and what are not. From the wording there it sounds as if pointers that come from parameters from other languages (not C) were not acceptable to C - only addresses resulting from parameters from other C functions !!! If this is true ... how do I do inter-language calls between PL/1 and C successfully? Ahem. http://www.trainersfriend.com/Language_Environment_courses/m520descr.htm -Steve Comstock b) we are somehow concerned about parameter addresses having the high order bit on ... we regularly put the high order bit on on all parameter lists built by our PL/1 routines for the last parameter (we have ASSEMBLER interface modules between the PL/1 and C routines) ... so it is common for the C routines to get parameter addresses with the high bit on from PL/1 callers. c) in some of our C modules, we have logic to CLEAN some parameter addresses to 31 bit values - this was because of problems we had with 0C8 abends in the past. The logic looks like this: #ifdef HOST #define CLEAN_PTR(x)((void *)((unsigned int )(x) 0x7fff)) #else #define CLEAN_PTR(x)(x) #endif (#define HOST is present, when compiling on the mainframe) we now are concerned that the logic will be probably thrown away by the optimizer, if we recompile those modules ... if CLEAN_PTR is applied to a ptr and the ptr is supposed to be always 31 bit, the bit operation does make no sense at all. But: this worked for us in the past. Maybe the whole problem could be solved easily if the compiler did not throw away logic due to optimization considerations in certain special cases; for example: if there are typecasts of pointers to unsigned int involved. Such a solution would be really helpful and also solve my original problem. Kind regards Bernd Am 31.03.2014 20:27, schrieb Charles Mills: Well, I think I indicated that my PL/I knowledge was minimal. I was trying to illustrate a concept, not write a tutorial on PL/I syntax. From your response, I would guess I was eminently successful at my intended task. I guess it's the nature of IBM-MAIN: the more irrelevant the nit, the greater the likelihood of a thorough and tedious correction. I did miss or forget that the idea of his C routine was to go into his C library routines and correct PL/I NULLs; it was not intended to be called from recompoiled PL/I so as to provide an appropriate form of nulls to various library routines. I withdraw the suggestion. Charles -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Rexx calling clist
On 3/31/2014 4:54 PM, Micheal Butz wrote: Clist calling Rexx works But isn't your example REXX calling CLIST? That doesn't work. -Steve Sent from my iPhone On Mar 31, 2014, at 6:53 PM, Steve Comstock st...@trainersfriend.com wrote: Try EXEC'ing your CLIST, maybe exec 'library(clistlib)' clist -Steve Comstock On 3/31/2014 4:37 PM, Micheal Butz wrote: That's not it I had it in caps For some reason it's not recognizing my clist as a clist Sent from my iPhone On Mar 31, 2014, at 6:18 PM, Dave Salt ds...@hotmail.com wrote: It's been a long time since I coded CLIST but I think Proc should be PROC. Dave Salt SimpList(tm) - try it; you'll get it! http://www.mackinney.com/products/program-development/simplist.html Date: Mon, 31 Mar 2014 18:12:18 -0400 From: michealb...@optonline.net Subject: Rexx calling clist To: IBM-MAIN@LISTSERV.UA.EDU Hi I took many if your suggestion that in order to get my TSOLIB working have it sitting a clist I coded the simplest possible Rexx exec /* Rexx */ Call CLISTLIB Address TSO LISTALC The CLISTLIB Proc 0 TSOLIB The clist fails horribly it is called by the Rexx exec as I turn on tracing But the proc statement I get invalid command And the TSOLIB I get invalid syntax seems it thinks the clist is a Rexx exec even thought I don't have /* Rexx */ coded in the clist Sent from my iPhone -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Rexx calling clist
On 3/31/2014 6:36 PM, Micheal Butz wrote: Right !!! So, did you try my suggestion? -Steve Sent from my iPhone On Mar 31, 2014, at 7:03 PM, Steve Comstock st...@trainersfriend.com wrote: On 3/31/2014 4:54 PM, Micheal Butz wrote: Clist calling Rexx works But isn't your example REXX calling CLIST? That doesn't work. -Steve Sent from my iPhone On Mar 31, 2014, at 6:53 PM, Steve Comstock st...@trainersfriend.com wrote: Try EXEC'ing your CLIST, maybe exec 'library(clistlib)' clist -Steve Comstock On 3/31/2014 4:37 PM, Micheal Butz wrote: That's not it I had it in caps For some reason it's not recognizing my clist as a clist Sent from my iPhone On Mar 31, 2014, at 6:18 PM, Dave Salt ds...@hotmail.com wrote: It's been a long time since I coded CLIST but I think Proc should be PROC. Dave Salt SimpList(tm) - try it; you'll get it! http://www.mackinney.com/products/program-development/simplist.html Date: Mon, 31 Mar 2014 18:12:18 -0400 From: michealb...@optonline.net Subject: Rexx calling clist To: IBM-MAIN@LISTSERV.UA.EDU Hi I took many if your suggestion that in order to get my TSOLIB working have it sitting a clist I coded the simplest possible Rexx exec /* Rexx */ Call CLISTLIB Address TSO LISTALC The CLISTLIB Proc 0 TSOLIB The clist fails horribly it is called by the Rexx exec as I turn on tracing But the proc statement I get invalid command And the TSOLIB I get invalid syntax seems it thinks the clist is a Rexx exec even thought I don't have /* Rexx */ coded in the clist Sent from my iPhone -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Ever see automatic 30-day trials for mainframe software?
On 3/26/2014 11:38 PM, Ed Jaffe wrote: On 3/26/2014 9:20 AM, Charles Mills wrote: Right. Good input. Thanks. I have shipped software with a hard-coded expiration date. What I am looking for is a floating expiration date that would be 30 days after installation, whether installed today or a year from today. Our trial software expires n days after download. The key is stored in a load module. It would not be difficult to use the SHSCRIPT function of SMP/E to create a module in a z/OS UNIX directory with expiry date relative to install date. Food for thought for the future. :) However, I really don't like the idea of an expiry date relative to first execution. Implementation could get messy. Also, what about the shop that tries to locate the end date and zap it? You may say it doesn't happen but I have heard tales... -Steve Comstock -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Wrapping it up
Just a final word about purchasing our course materials. Sunday March 30 will be the last day we offer our course materials for sale at our standard price of USD 2000 per course day (with a 15% discount if you order 10 or more days of training in a single order). After that, the sale pages will be removed and specific courses may or may not be for sale, and there will be a premium charge for those that are available. See http://www.trainersfriend.com/SpecialSale/SpecialDeal.html for a list of all courses available See http://www.trainersfriend.com/SpecialSale/index.html for a more detailed description of the sale and each course See http://www.trainersfriend.com/SpecialSale/LicenseOrderForm.html to order courses or just to get a price estimate. Kind regards, -Steve Comstock The Trainer's Friend -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IBM assembler copybook
On 2/23/2014 10:23 AM, Ron Thomas wrote: Hello. I am new to assembler so not sure whether i am asking the right query? We have a assembler copybook and the corresponding file is a VSAM KSDS. could someone let me know how to view the data in the file using this copybook ? Thanks Ron T Really? I didn't think Assembler supported VSAM library source for copy files. Oh, wait. Are you z/OS or z/VSE? -Steve Comstock -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Xmitting file between disconnected systems
On 2/18/2014 3:27 PM, Mike Myers wrote:
I am trying to xmit a couple of files from a z/OS system and then
receive them on a different system. There is no connection between these
systems except an intervening notebook.
The process I have used is:
1. xmit the file to myself on the source system
2. use SDSF's output queue to see the xmitted file
3. use the XDC command to create a dataset from the output file (I see
that the xmit files created on the CBT tape are RECFM=F and LRECL-80, so
the dataset I create fron XDC is given these properties)
Why do this step? Why not just download the output from the XMIT as
binary?
4. transfer the data set to my PC from the source system as binary using
my 3270 emulator's transfer file screen
See above
5. transfer the file from my PC to the target system as binary using my
3270 emulator's transfer file screen
6. receive the created data set on the target system and get the message:*
INMR921I* *Received* *file* *appears* *not* *to* *be* *an* *Interactive*
*Data* *Transmission* *Facility* *file.* *The* *first* *record* *is:
After you upload the file to the mainframe issue a RECEIVE command and
all should be well (assuming the file you RECEIVE is the XMITted file
from step 1 above):
from tso READY or ISPF 6:
receive inda('fully_qualified_name_of_uploaded_file')
-Steve Comstock
*If the CBT tape can transfer files in this manner, it must be
manageable, but I must have missed something. What am I missing?
Mike Myers
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Performance question - adding
On 2/16/2014 2:10 AM, Binyamin Dissen wrote: Say I have two words, CURRENT DS F SUM DS F I want to add CURRENT to SUM, but most of the time CURRENT will be zero. CURRENT and SUM are not adjacent (different data lines) Which is best L Rx,CURRENT A Rx,SUM STRx,SUM or L Rx,CURRENT LTR Rx,Rx JZSKIP A Rx,SUM STRx,SUM SKIPDS0H How about: L Rx,CURRENT LAA R0,Rx,SUM if you have z196 or later machine -Steve Comstock -- Binyamin Dissen bdis...@dissensoftware.com http://www.dissensoftware.com Director, Dissen Software, Bar Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Need a DB2 DBA under z/OS
On 2/7/2014 12:09 PM, Cosby, Bob - OCFO wrote: We just hired a 70 year old COBOL Programmer. Ah! The Renaissance begins! -Steve Comstock, Founder The Trainer's Friend, Inc. www.trainersfriend.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of chris lindenhauer Sent: Tuesday, February 04, 2014 9:42 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Need a DB2 DBA under z/OS Hi Gang We have a desperate need for a DBA, Minneapolis MN. If anyone is interested, or knows of anyone interested, please get back to me at chrislindenha...@gmail.com Thanks all :) Chris -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN This electronic message contains information generated by the USDA solely for the intended recipients. Any unauthorized interception of this message or the use or disclosure of the information it contains may violate the law and subject the violator to civil or criminal penalties. If you believe you have received this message in error, please notify the sender and delete the email immediately. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DCB for load library
On 2/6/2014 7:29 AM, Paul Gilmartin wrote: On Thu, 6 Feb 2014 17:34:56 +1100, Greg Price wrote: On 6/02/2014 11:25 AM, Micheal Butz wrote: Is there any way of knowing a data set contains load modules If PDSE verify it is a program (and not a DATA) PDSE using ISITMGD macro. I have received a correction off-list that a PDSE must not contain load modules. Well, technically, yes: it can, however, contain program objects which are the PDSE analogy of load modules in a PDS. I'll echo the sentiment that the OP needs to clarify his objective. Yup. -Steve Comstock -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Compiled rexx program runs native in OMVS but not as CGI
On 1/29/2014 10:46 AM, Miklos Szigetvari wrote: We are using compiled REXX program's with the old HTTP Server (not the Apache based one) without problem's I can suggest to try with F httpserv,APPL=DEBUG -V or -VV option and/or check the HTTP logs directory for the actual logs, cgi-error* or httpd_errors* This might be related to how you bind (link edit) your module. You haven't shown us your compile and bind JCL or control statements. You can bind your REXX object module with one of five supplied stubs in order to ensure passed parms are handled appropriate to the environment the load module / object module will run. Or you can write your own. Might be worth investigating. Kind regards, -Steve Comstock On 29.01.2014 16:30, jan de decker wrote: Hi list, I am trying to set up a zOS HTTP server that uses compiled Rexx programs as CGI. Example: A Rexx program runs as CGI when interpreted After compilation with the REXXOEC procedure it runs when directly invoked from within OMVS When itrying to invoke the same compiled program from HTML the browser stays connecting and eventually times out. An interpreted Rexx in the same directory runs as CGI. The HTML points to the same path for both programs. The HTTP server runs with UID(0) and without user authentication. This will changed after I get a working prototype. Any help would be greatly appreciated. j@n -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: POSIX(ON) costs or disadvantages
On 1/27/2014 7:15 AM, John McKown wrote: On Mon, Jan 27, 2014 at 8:05 AM, Scott Ford scott_j_f...@yahoo.com wrote: Juergen, I know C and C++ that use threads pthread.h requires posix(on). I know there are other functions that require it Scott ford www.identityforge.com One restriction that I found is that POSIX(ON) can one enclave in an LE nested enclave environment can have POSIX(ON) active. I don't really know what a nested enclave is or why you'd use one. ref: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ceea21b0/5.4 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN In LE, an enclave is a mainline and it's subroutines. Certain program functions create a nested enclave: the invoking enclave is suspended until the invoked enclave terminates. In particular, I seem to recall that * EXEC CICS LINK and EXEC CICS XCTL * Assembler LINK * C system() function * PL/I fetch and call to a fetchable main PL/I procedure all create nested enclaves; the invoked program must be a 'main' (in the LE sense) and not a subroutine. -Steve Comstock -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: POSIX(ON) costs or disadvantages
On 1/27/2014 12:27 PM, Paul Gilmartin wrote: On Mon, 27 Jan 2014 19:33:25 +0100, Bernd Oppolzer wrote: ... (if you manage to LINK between LE modules with the help of MVS LINK or similar mechanisms, which is possible - for example: we do all linkage between our LE modules, no matter which language, with a home grown mechanism which relies on MVS LOAD macro and BASR, basically). You mean IBM provides no support for LINKing to an LE module!? No, he means that's the way they have chosen to make the connections. A LINK to an LE main creates a nested enclave; a LINK to anything else is just like any other dynamic CALL. That seems outrageous in the year 2014. How about ATTACH? How does initiator do it? ATTACH is always to a 'main'; if it is an LE module, a new enclave (not nested) is created; if it is not an LE module, it's just another task. -Steve -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: System Symbols Question
On 1/27/2014 9:03 PM, Paul Gilmartin wrote: On Mon, 27 Jan 2014 20:10:04 -0500, Gerhard Postpischil wrote: On 1/27/2014 8:03 PM, Paul Gilmartin wrote: A matter of opinion, of course. If I had cautiously coded PARM='WOMBAT._1', I would be protected from the hypothetical change, but get a changed behavior if I left WOMBAT undefined. I think from the beginning the JCL R/C (whatever) should have made reference to an undefined symbol an error. That wouldn't have been palatable, as your undefined symbol would have been valid as a temporary data set name. As today, a temporary may have I could have defined it. one or two ampersands, and it's way too late to change that. It might have made more sense to use a different character, e.g., a percent sign, to introduce variables (but clashing with the PROC convention). Sure, but couldn't it have been done right five decades ago, if only the designers hadn't been too stressed by deadlines to think clearly. By experiment, what you say is true. I'm considerably surprised. So, then, why do I get: 8 //DDFOUR DD DISP=(,PASS),DSN=amp;amp;FOUR,UNIT=SYSALLDA,SPACE=(1,0) STMT NO. MESSAGE 8 IEFC627I INCORRECT USE OF AMPERSAND IN THE DSN FIELD By JCL rules, two ampersands represent one ampersand, so four ampersands represent two ampersands, and amp;FOUR is a valid temp DSN. Huh? amp; is not a recognized construct in JCL; that's HTML (and some other places). Even if you uppercased it, AMP;AMP; simply doesn't mean anything. Now, the message may be less than clear, but that's almost to be expected in JCL. ObEmerson? I hate JCL! Along with EBCDIC. We know. But you are a strong supporter of z/OS in general, I believe. Keep fighting the good fight to fix what's fixable. -Steve -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: XMITMGR
On 1/25/2014 1:37 AM, Brian Westerman wrote: If you send me your Email address, I'll send you the modules and the directions for installing the old XMITMGR under Windows 8 and 8.1 Brian -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Well, I've been trying to get UNXMIT working under Win 8.1 and it never is successful in starting up. I get this message: A Java Runtime Environment (JRE) or Java Development Kit (JDK) must be available to run Unxmit. No java virtual machine was found after searching the following locations: C:\Program Files\unxmit\jre\bin\javaw.exe javaw.exe in your current PATH But I've just installed the latest Java. But Unxmit can't find it. Indeed, it is not installed where the message says it is not installed. Why would I install Java under the Unxmit directory? If I peek at the various config.ini files in the Unxmit directory tree there are all kinds of references to Eclipse. Does Eclipse need to be installed in order to run Unxmit? -Steve -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: XMITMGR
Replying to my own post (and top-posting at that): found the problem. Needed to install 64-bit java. Done. Works. -Steve On 1/26/2014 1:46 PM, Steve Comstock wrote: On 1/25/2014 1:37 AM, Brian Westerman wrote: If you send me your Email address, I'll send you the modules and the directions for installing the old XMITMGR under Windows 8 and 8.1 Brian -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Well, I've been trying to get UNXMIT working under Win 8.1 and it never is successful in starting up. I get this message: A Java Runtime Environment (JRE) or Java Development Kit (JDK) must be available to run Unxmit. No java virtual machine was found after searching the following locations: C:\Program Files\unxmit\jre\bin\javaw.exe javaw.exe in your current PATH But I've just installed the latest Java. But Unxmit can't find it. Indeed, it is not installed where the message says it is not installed. Why would I install Java under the Unxmit directory? If I peek at the various config.ini files in the Unxmit directory tree there are all kinds of references to Eclipse. Does Eclipse need to be installed in order to run Unxmit? -Steve -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: System Symbols Question
On 1/24/2014 9:25 AM, Charles Mills wrote: COBOL does this also, right? My COBOL skills are modest to say the least, but if FOO is PIC X(5) then MOVE 'Now is the time' TO FOO silently truncates the literal to 'Now i', correct? I'm not trying to start a language war here, just saying that the concept of silent truncation to fit should be well-understood by many mainframers, not just PL/Iers. Charles Right. And, in a sense, so does Assembler: length of bytes moved by MVC is determined by length attribute of the target (unless explicitly overriden; note that COBOL can override the length, too, using reference modification). On the other hand, COBOL also does 'silent padding' to fit, too: character moves are padded on the right with spaces; numeric moves are padded to the left and right of the decimal point with zeros. -- Kind regards, -Steve Comstock, founder The Trainer's Friend Course materials on sale at list price through March 30, 2014: http://www.trainersfriend.com/ -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Vernooij, CP (SPLXM) - KLM Sent: Friday, January 24, 2014 12:00 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: System Symbols Question If PL/I does this, it will probably be well understood by PL/I programmers, but maybe not by others. Rexx has its own way, which will probably be well understood by Rexx programmers, but maybe not by others. System Symbol coders may belong to one or both of the above groups or to none of them. So in this case it is safest to assume nothing and apply the rules strictly, i.e. assign correctly or abend. Kees. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of John Gilmore Sent: Thursday, January 23, 2014 16:47 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: System Symbols Question There is now long experience with the PL/I convention that assigns a source string that is longer than the [maximal allocated or declared] length of the target string with 1) truncation on the right and 2) silently. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Dataspace versus common area above the bar
On 1/22/2014 12:57 AM, Itschak Mugzach wrote: 64 bit addressing execution is faster if less access to real memory is required to fetch the next instruction. This is what quadword promise, is'It? the performance gain is also depend on the logic of the program (if commands sequenced well with less brunch instructions). ITschak Yes, I can see where brunch would slow things down. Almost makes one sleepy now ... :-) -Steve On Wed, Jan 22, 2014 at 5:30 AM, Jim Mulder d10j...@us.ibm.com wrote: One caveat to that statement is as follows, from the POps: The performance of CDSG on some models may be significantly slower than that of CSG. WHEN QUADWORD CONSISTENCY IS NOT REQUIRED BY THE PROGRAM, alternate code sequences should be used. (my caps) CDSG was implemented in millicode on the z900, z800, z990, z890, and z9 machines. It was moved to hardware on the z10 and later machines. Jim Mulder z/OS System Test IBM Corp. Poughkeepsie, NY -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to order HTTP Server (Appache)
On 1/15/2014 7:59 AM, Jousma, David wrote: Kirk, Very timely post. I wasn't finding the doc anywhere. Would be really nice if someone had a migration doc to get from the old to the new. Interestingly on the IBM z/os internet library, they list IBM HTTP server, but it is still the old 5.3 version. On the IBM redbooks page look for redpiece redp4987, IBM HTTP Server on z/OS - Migrating from Domino-powered to Apache-powered. -Steve -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Kirk Wolf Sent: Wednesday, January 15, 2014 9:57 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: How to order HTTP Server (Appache) FYI, the free IBM Ported Tools IHS (Apache) is version 7, whereas the IHS Apache server packaged with Websphere is currently 8.5. http://www-03.ibm.com/systems/z/os/zos/features/unix/ported/ihs/ I don't know if there is a list of differences, but I would appreciate this information if anyone has it. Kirk Wolf Dovetailed Technologies http://dovetail.com On Wed, Jan 15, 2014 at 8:18 AM, Paul Gilmartin paulgboul...@aim.comwrote: On Wed, 15 Jan 2014 08:04:17 -0600, Elardus Engelbrecht wrote: Apache is the current industry standard. But a lot of Apache shops are strongly looking at nginx to replace it. It is said to be faster (using less RAM and CPU), easier to set up, and more secure. I'm just echoing what I've heard. Interesting. Could you please be kind to supply any documentation / links about the 'industry standard'? http://nginx.org/en/ Hmm, interesting site. I think one of my colleagues may be interested in it. Thanks! Hmmm... z is not listed among the tested platforms. So: o Might it be EBCDIC-friendly? (I hate EBCDIC.) o Might it be legacy data set-friendly? o Might it be compatible with the C compiler Enhanced ASCII option. I can run little one-page tests in Enhanced ASCII; anything serious fails for lack of library support (X, Curses). -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN This e-mail transmission contains information that is confidential and may be privileged. It is intended only for the addressee(s) named above. If you receive this e-mail in error, please do not read, copy or disseminate it in any manner. If you are not the intended recipient, any disclosure, copying, distribution or use of the contents of this information is prohibited. Please reply to the message immediately by informing the sender that the message was misdirected. After replying, please erase it from your computer system. Your assistance in correcting this error is appreciated. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to order HTTP Server (Apache)
[Top posting] There are several areas that disturb me * Apache documentation, especially for configuring, is terrible; this in itself, of course, is not a show stopper, but it is a deterrent * Otherwise the main problems I encountered were in CGI processing e.g.: 1. Using the old server (I'll call it DGW since it was originally the Domino Go Webserver), when processing a POST request, the data in stdin is passed as originally found and should be treated as binary But under Apache, the data in stdin is converted to EBCDIC, which is not RFC compliant and the devil to work with if you are passed anything other than text. (Note: this behavior might be able to be changed with configuration options but I was never able to find such option(s)) 2. An Assembler CGI running under z/OS can use either bpxwrt1 or printf() to for writing to stdout; using DGW you can mix these approaches, but not running Apache 3. Similarly, you can mix and match calls to printf(), getenv(), ceenv, strlen(), bpx1wrt, sprintf(), and ceemout all in the same CGI when using DGW, but not Apache [Admittedly, the above are pretty esoteric, but I'm an esoteric kinda' guy] 4. Apache does not handle utf-16, but DGW works fine (requires correct configuration setup, of course, but I could never get Apache to handle it) Although now a bit out of date, I find the pdf doc pointed out on this page: http://www-03.ibm.com/support/techdocs/atsmastr.nsf/WebIndex/WP101170 to be interesting, especially the performance comparisons. And, of course, there's the familiarity bias: I learned HTTP servers using the DGW. -Steve On 1/15/2014 11:49 AM, Nathan J Pfister wrote: Just out of curiosity, as I have more experience with Apache than Domino (although I did support some web applications running on the old HTTP Server for about a year before I convinced them to upgrade to IHS 7...), what is it about Domino that you prefer to Apache (or IBMs implementation thereof)? Thanks; Nathan Pfister zOS Systems Programmer AES\PHEAA - Tech Services From: Steve Comstock st...@trainersfriend.com To: IBM-MAIN@LISTSERV.UA.EDU Date: 01/15/2014 01:11 PM Subject:Re: How to order HTTP Server (Appache) Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU On 1/15/2014 10:55 AM, Miklos Szigetvari wrote: Hi I already seen this redbook, elegantly avoids the httpd.conf differences Yeah. Actually, I prefer the older server for a few reasons (which I have passed on to the HTTP guys in IBM with no reaction). But I'm out of the game now, so my vote doesn't count. Kind regards, -Steve Comstock, founder The Trainer's Friend, Inc. http://www.trainersfriend.com 303-355-2752 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Subject Unicode
On 1/10/2014 10:28 AM, zMan wrote: Cute. Notepad still exists in current Windows, btw. And it handles utf-8 fine. -Steve On Fri, Jan 10, 2014 at 9:41 AM, Paul Gilmartin paulgboul...@aim.comwrote: On Fri, 10 Jan 2014 09:36:32 -0500, Harry Wahl wrote: ... Windows Notepad is particularly tricky because it adds them without you realizing it. So whether you look at a file with Notepad (or other simple editor) or don't can both affect your results and cause you to question your sanity because you didn't realize this. Notepad? What's that? Perhaps some obsolete predecessor of Wordpad? -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Subject Unicode
On 1/10/2014 3:52 PM, Paul Gilmartin wrote:
On Fri, 10 Jan 2014 10:44:10 -0700, Steve Comstock wrote:
On 1/10/2014 10:28 AM, zMan wrote:
Cute. Notepad still exists in current Windows, btw.
And it handles utf-8 fine.
SIGH
Notepad handles UTF-8 fine (on a scientific sample of 1). But it's
utterly ignorant of UNIX line separators.
Wordpad handles UNIX line separators on input, but not on output.
I guess half is better than none. But it's utterly ignorant of UTF-8.
/SIGH
Vim on both Ubuntu Linux and OS X seems to be UTF-8 clever, even
brilliant. In a document containing both Latin and Cyrillic text, the
flip case command ('~') converts majuscule-minuscule for both,
both ways.
BTW, how can I convert majuscule-minuscule with ISPF EDIT.
I know; I could write a macro ... Sheesh!
Well, on a command line:
c p'' p'' all
Or, as a line command:
LCC
.
.
.
LCC
should do it.
-Steve
-- gil
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: zOS server REXX CGI problem
On 12/28/2013 5:42 AM, Steve Comstock wrote: On 12/28/2013 4:42 AM, jan de decker wrote: Hi list, I corrected the errors that Steve found but to no avail. The structure of the file system on the HTTP server is /jedsp/web/pub underneath are directories for cgi, css and images The HTML is beneath /jedsp/web/pub The link is pppa href=../cgi/getenv.rexxEnvironment/a/p In httpd.conf: Exec/CGI/*/jedsp/web/pub/cgi/* The browser keeps syain connecting. Can somebody help? Thanks, j@n Well, not quite. You still have one anomoly in your invocation 'cgi' - 'CGI'. All the z/OS UNIX stuff is case sensitive. So go back to your HTML and make this change: pppa href=/CGI/getenv.rexxEnvironment/a/p Kind regards, -Steve So, we never heard back: did you get it to work? -Steve -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: zOS server REXX CGI problem
On 12/28/2013 4:42 AM, jan de decker wrote: Hi list, I corrected the errors that Steve found but to no avail. The structure of the file system on the HTTP server is /jedsp/web/pub underneath are directories for cgi, css and images The HTML is beneath /jedsp/web/pub The link is pppa href=../cgi/getenv.rexxEnvironment/a/p In httpd.conf: Exec/CGI/*/jedsp/web/pub/cgi/* The browser keeps syain connecting. Can somebody help? Thanks, j@n Well, not quite. You still have one anamoly in your invocation 'cgi' - 'CGI'. All the z/OS UNIX stuff is case sensitive. So go back to your HTML and make this change: pppa href=/CGI/getenv.rexxEnvironment/a/p Kind regards, -Steve -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: zOS server REXX CGI problem
On 12/27/2013 8:29 AM, jan de decker wrote: Hi all, I installed a HTTP server on zOS and sofar as HTML is concerned all goes well but I cannot manage to get a REXX CGI program to do something. The brower (Firefox) keeps showing connecting. In the http.conf file I defined: Exec CGI/* /jeds.web/cgi/* The Rexx program is in /jedsp/web/cgi and has the attributes 755 The link on the page is: pppa href=../cgi/getenv.rexxEnvironment/a/p The page is served from /jedsp/web/pub The rexx exists in /jedsp/web/cgi Any help would be greatly appreciated j@n Craig's comments are germain, plus I think your invocation does not need the leading dots. Try: 1. In your conf file code: Exec /CGI/* /jeds/web/cgi/* 2. In your invocation code: pa href=/CGI/getenv.rexxEnvironment/a/p Give this a try. Of course, you may have a bug in your CGI program also. But let's try this first. ad We include general HTTP / HTML / CGI concepts (plus lots more) in our five day course You and z/OS and the World Wide Web, see: http://www.trainersfriend.com/UNIX_and_Web_courses/u518descr.htm We focus specifically on CGI's in our one day course Introduction to CGIs on z/OS, see: http://www.trainersfriend.com/UNIX_and_Web_courses/uc01descr.htm and in my paper Hosting a Web Site on z/OS - one person's experience I include suggestions for configuration and other setup issues. The courses and the paper (along with many other courses and papers) are for sale in our going out of business sale. Course materials are priced at 90% off our list price, so USD 200 per course day. Sale ends Monday, December 30 - see info in my signature below. /ad -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * We are going out of business effective 30 December, 2013 * To purchase a set of our training materials at terrific prices, check out our Going Out Of Business Sale: http://www.trainersfriend.com/SpecialSale -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: zOS server REXX CGI problem
On 12/27/2013 10:03 AM, jan de decker wrote: Hi all, Thanks for the suggestions. I implemented them all. Now I get IMW0254E Error 404IMW0229E The file was not found, even after searching on any extensions to the file name. The file does not exist or is read-protected. I just noticed an error in your HTML that I missed before: pppa href=../cgi/getenv.rexxEnvironment/a/p --- should be pppa href=../cgi/getenv.rexxEnvironment/a/p and I propgated this error in my post. Don't know if this was just a cut and paste error on your part or if the HTML actually was like that, but you might test the suggested solution with the correct end tag. pa href=/CGI/getenv.rexxEnvironment/a/p Also, another error I just noticed: you specify your directory two different ways: jeds.web/cgi jedsp/web/cgi So, if your directory is actually jedsp/web/cgi, change your config file to contain: Exec /CGI/* /jedsp/web/cgi/* - Let us know if that helps. Kind regards, -Steve Comstock -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Curiosity: TCB mapping macro name - why IKJTCB?
On 12/22/2013 9:56 AM, Paul Gilmartin wrote: On Sun, 22 Dec 2013 10:01:33 -0600, Andreas F. Geissbuehler wrote: Straight from a slowly fading memory... In the early '70 IBM released a new and improved CRJE called TSO, a TCAM application program. I believe it was part of IBM's worst-ever release, OS/MVT Release 19. TSO brought us Sub-Tasking and related macros ATTACH and DETACH using a newly expanded control block called TCB mapped by IKJTCB among many other IKJ's of TSO. ... ATTACH/DETACH appeared contemporaneously with TSO!? I'm astonished! I'd have guessed they were much older, perhaps even aboriginal OS/360. Was there no multiprocessing mechanism older than TSO? RYO, I suppose. That's what I understand JES and CICS (others?) do. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN That can't be right. MVT had ATTACH/DETACH. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * We are going out of business effective 30 December, 2013 * To purchase a set of our training materials at terrific prices, check out our Going Out Of Business Sale: http://www.trainersfriend.com/SpecialSale -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: APF authorization and JOBLIB DD card
On 12/20/2013 7:50 AM, Lizette Koehler wrote: And the other question is If I have a STEPLIB and a JOBLIB and the module I need is only in the JOBLIB, would not the step with the STEPLIB looking for that module fail? //JOBLIB DD DSN=MYLOAD.LIB,DISP=SHR Module XYZ resides here //S1 EXEC PGM=XYZ //STEPLIB DD DISP=SHR,DSN=APPL.LIB Module XYZ does not exist in this library Would not S1 then abend with a S806 due to the JOBLIB being ignored? My understanding has been that if you code a JOBLIB any module not found in the STEPLIB would then search the JOBLIB and hopefully not fail. This would also allow for testing a new version without having to alter JCL by swapping load libraries on JOBLIB and STEPLIB. I could have the production version of the module in JOBLIB and a testing version in the STEPLIB. If it is bad, I delete the version in STEPLIB and the job will find it in the JOBLIB. That as soon as the module was found, then no more searching no matter where it was found. So if it is in the STEPLIB, then searching stops If it is found in the JOBLIB then searching stops If it is found in the JPA, then searching stops. So perhaps the intent is not that the JOBLIB is ignored. But that searching stops if the module is found in the STEPLIB Lizette Well, carry on with your experiment. But my understanding is if a step contains a STEPLIB then JOBLIB is ignored, and it's been that way for decades. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * We are going out of business effective 30 December, 2013 * To purchase a set of our training materials at terrific prices, check out our Going Out Of Business Sale: http://www.trainersfriend.com/SpecialSale -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of John Gilmore Sent: Friday, December 20, 2013 7:34 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: APF authorization and JOBLIB DD card The last time I looked at the text Lizette quotes was a long time ago, and its current version contains the subtext begin extract from extract The directory is located on DASD with the data set, and is updated whenever the module is changed. The directory entry contains information about the module and where it is located in storage. /end extract from extract which is at best misleading. The data-set directory contains no information about where in virtual or real storage any copy of a member may have been loaded and no indicator that it is currently resident. The phrase 'in storage' should replaced by 'in the data set'. John Gilmore, Ashland, MA 01721 - USA -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IBM Knowledge Center beta
On 12/18/2013 11:42 PM, David Crayford wrote: The new IBM knowledge center, which will replace Information Center, is available for beta http://www-01.ibm.com/support/knowledgecenter/. First impressions are quite good. It's snappy, well laid out and allows customers to add content. A quick look under the hood shows it's using the dojo web toolkit with a lot of fancy JavaScript, HTML5, CSS3. More good news is that it seems to be using a responsive layout so it works well in tablets. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Instead of HTML 5 it looks to me to be XHTML 1.0. Look at the DOCTYPE statement. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * We are going out of business effective 30 December, 2013 * To purchase a set of our training materials at terrific prices, check out our Going Out Of Business Sale: http://www.trainersfriend.com/SpecialSale -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Intercept USS calls
On 12/17/2013 9:03 PM, Skip Robinson wrote: It's days from Friday, but I can't resist. The NSA can intercept calls to US(S) or anywhere else. You don't even have to ask. OK, also off topic (and off color?): driving to an audition today saw a bumper sticker that really overloads the USS acronymn: Universal Semen Sales 'struth! -Steve Comstock . . JO.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 626-302-7535 Office 323-715-0595 Mobile jo.skip.robin...@sce.com From: Rob Schramm rob.schr...@gmail.com To: IBM-MAIN@LISTSERV.UA.EDU, Date: 12/17/2013 07:01 PM Subject:Re: Intercept USS calls Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU There at least one prior thread on USS files and SMF exits. Need IEFU83/84/85 to make sure you have captured file close. major snippage -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SMP/E RECEIVE ORDER and Internet Delivery Questions
On 12/14/2013 12:21 PM, retired mainframer wrote: :: -Original Message- :: From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On :: Behalf Of Ed Jaffe :: Sent: Saturday, December 14, 2013 8:40 AM :: To: IBM-MAIN@LISTSERV.UA.EDU :: Subject: Re: SMP/E RECEIVE ORDER and Internet Delivery Questions :: :: On 12/14/2013 7:59 AM, Paul Gilmartin wrote: :: On Sat, 14 Dec 2013 06:37:56 -0800, Ed Jaffe wrote: :: Direct download to z/OS is the only way to fly! As a matter of :: principle, I refuse to let z/OS products or service touch any other :: platform or media. :: :: An interesting contrast to reports of other enterprises which as a :: matter of principle refuse to let z/OS touch the Internet. :: :: I find that astonishing! It's like tying one hand behind z/OS' back! :: :: Internet connectivity is practically *required* to service other :: operating systems. If our RHEL systems on any server (including System :: z) don't connect to RedHat and signal the AOK, the red flags start :: flying! And, if service is not regularly applied to those systems, :: ominous warnings start accumulating... :: :: Most mainframers agree that z/OS has an image problem - thought by :: many to be an old, creaky operating system that simply can't compete :: against newer alternatives. The paranoid Luddites that refuse to level :: the playing field, by allowing z/OS to leverage modern service :: deployment technologies used by those alternatives, aren't just hurting :: themselves - they're hurting the platform as a whole... For us it is not a question of image but of mandated security. We have administrative systems (mostly PCs and Suns) for email, payroll, etc connected to the internet and the company intranet. But all of our mission systems (Suns, PCs, one z10) are connected to a private internal network and absolutely nothing external. And it's not merely myopic corporate policy (we have enough of that) but a matter of federal regulation from multiple countries. The extra measures required to allow internet connections are way to onerous for the meager benefit of automatic service downloads. Vendors, including IBM, send us z10 compatible media for voluminous quantities such as new versions. The burden of using admin PCs to download smaller quantities, copying to write protectable media, uploading to mission PCs, and transferring to z/OS is really quite minor in the overall scheme of things. Especially if you are a 'retired mainframer', I suspect. ;-) -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * We are going out of business effective 30 December, 2013 * To purchase a set of our training materials at terrific prices, check out our Going Out Of Business Sale: http://www.trainersfriend.com/SpecialSale -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Lookat
On 12/13/2013 6:43 AM, Staller, Allan wrote: What URL are you using. I used www.ibm.com/systems/z/os/zos/bkserv/lookat/ And got re-directed to http://www-03.ibm.com/systems/z/os/zos/library/bkserv/index.html which *IS NOT* the LOOKAT I was expecting. ??? snip I just tried it ! Lookat is back !! Now that's what I call good news. /snip -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Interesting. I just tried the first link you gave me and it went right there! -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * We are going out of business effective 30 December, 2013 * To purchase a set of our training materials at terrific prices, check out our Going Out Of Business Sale: http://www.trainersfriend.com/SpecialSale -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Lookat
On 12/13/2013 6:57 AM, Steve Comstock wrote: On 12/13/2013 6:43 AM, Staller, Allan wrote: What URL are you using. I used www.ibm.com/systems/z/os/zos/bkserv/lookat/ And got re-directed to http://www-03.ibm.com/systems/z/os/zos/library/bkserv/index.html which *IS NOT* the LOOKAT I was expecting. ??? snip I just tried it ! Lookat is back !! Now that's what I call good news. /snip -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Interesting. I just tried the first link you gave me and it went right there! -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * We are going out of business effective 30 December, 2013 * To purchase a set of our training materials at terrific prices, check out our Going Out Of Business Sale: http://www.trainersfriend.com/SpecialSale -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Well, on closer examination, I did get re-directed, but it was to http://www-03.ibm.com/systems/z/os/zos/bkserv/lookat/ which is the classic LookAt. -Steve -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Lookat
[top posting] Very curious since it worked fine for me using Firefox 25.0.1 Question: are you using an add-on like NoScript? -Steve On 12/13/2013 7:07 AM, Staller, Allan wrote: Curiuosor and Curiuosor! Works fine with Google Chrome Works OK with IE 10 (need to look at the Microsoft article) Re-directs w/Firefox 25.0.1 Al Staller | Z Systems Programmer | KBM Group | (Tel) 972 664-3565 | allan.stal...@kbmg.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Steve Comstock Sent: Friday, December 13, 2013 8:01 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Lookat On 12/13/2013 6:57 AM, Steve Comstock wrote: On 12/13/2013 6:43 AM, Staller, Allan wrote: What URL are you using. I used www.ibm.com/systems/z/os/zos/bkserv/lookat/ And got re-directed to http://www-03.ibm.com/systems/z/os/zos/library/bkserv/index.html which *IS NOT* the LOOKAT I was expecting. ??? snip I just tried it ! Lookat is back !! Now that's what I call good news. /snip - - For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Interesting. I just tried the first link you gave me and it went right there! -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * We are going out of business effective 30 December, 2013 * To purchase a set of our training materials at terrific prices, check out our Going Out Of Business Sale: http://www.trainersfriend.com/SpecialSale -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Well, on closer examination, I did get re-directed, but it was to http://www-03.ibm.com/systems/z/os/zos/bkserv/lookat/ which is the classic LookAt. -Steve -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: OMVS UID display
On 12/13/2013 10:35 AM, Skip Robinson wrote: I don't see that 'commands' like ID or WHOAMI are true z/OS components. We have some variations of these as CLIST or Rexx that live in installation-defined libraries. Obtaining additional data for such commands may depend on the authority of the user. For example, anyone can issue LU (LISTUSER) for oneself, but getting info for another user requires at least AUDIT authority. Skip, Did you notice this is for OMVS? The commands 'id', 'whoami', and 'who' are part of z/OS UNIX. -Steve Comstock . . JO.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 626-302-7535 Office 323-715-0595 Mobile jo.skip.robin...@sce.com From: Nathan J Pfister npfis...@aessuccess.org To: IBM-MAIN@LISTSERV.UA.EDU, Date: 12/13/2013 09:22 AM Subject:Re: OMVS UID display Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU I'm not sure quite what you're trying to do...but maybe the 'id' command would be better than the 'whoami' command for you? Thanks; Nathan Pfister zOS Systems Programmer AES\PHEAA - Tech Services From: venkat kulkarni venkatkulkarn...@gmail.com To: IBM-MAIN@LISTSERV.UA.EDU Date: 12/13/2013 12:19 PM Subject:OMVS UID display Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Hello, When I am trying to use WHOAMI command on omvs I am getting my UID displayed, but my requirement is to display userid as output of WHOAMI command. Can anyone one suggest where to make this change to display userid inplace of UID for this command. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Something to Think About - Optimal PDS Blocking
On 12/9/2013 7:54 AM, DASDBILL2 wrote: I believe an application can create a short FB block in the middle of an output data set with the TRUNC macro. Bill Fairchild Ah, maybe. I forgot about that macro. I knew it existed but I've never had cause to use it. -Steve - Original Message - From: Steve Comstock st...@trainersfriend.com To: IBM-MAIN@LISTSERV.UA.EDU Sent: Sunday, December 8, 2013 10:00:49 AM Subject: Re: Something to Think About - Optimal PDS Blocking On 12/8/2013 8:58 AM, Jon Perryman wrote: With the exception of DISP=MOD with multiple open/writes and that the last block will always be, I don't see the difference between FB and FBS. How would FB create a short block in the middle? Well, except for DISP=MOD, it won't: it is a DSIP=MOD situation that allows the possibility. -Steve Comstock Jon Perryman - Original Message - From: nitz-...@gmx.net nitz-...@gmx.net To: IBM-MAIN@LISTSERV.UA.EDU Cc: Sent: Saturday, December 7, 2013 10:55 PM Subject: Re: Something to Think About - Optimal PDS Blocking Yes, however FBS stands for Fixed Block Standard, not Spanned. Exactly. And the last record in an FBS data set can be short, i.e. less than lrecl. The short record denotes the end of the data set. And all the utility programs know it and stop processing once they reach the short record. That is all fine and well as long as we are not dealing with a multivolume data set. Think standalone dump written striped to - say - 5 volumes. Each volume has a data set in format FBS, but only one of the volumes can have a short record. SAdump knows that, and IPCS knows it, too. The utilities don't. So assume that you took a complete sadump to 5 volumes and the sort record happens to be on the first volume. Then you use a utility (ICEGENER is my favourite) to copy somewhere else. You end up with a severely truncated sadump. One fifth, to be exact. IPCS will read the truncated dump to the best of its abilities, but you will get all kinds of 'storage not available' warnings when looking at the dump. Last time a customer sent me an sadump, it had 27000cyl. I got all kinds of warnings and got lucky in that the sadump messages were clearly truncated and didn't show the 'successfully finished' message. It turned out that the wrong utility was used for copying, and the actual dump had 63000 cyls. Visible when IPCS COPYDUMP was used for copying. IPCS knows that a striped sadump can have the short record earlier. Barbara -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Something to Think About - Optimal PDS Blocking
On 12/9/2013 8:10 AM, Paul Gilmartin wrote: On Mon, 9 Dec 2013 07:58:32 -0700, Steve Comstock wrote: On 12/9/2013 7:54 AM, DASDBILL2 wrote: I believe an application can create a short FB block in the middle of an output data set with the TRUNC macro. Ah, maybe. I forgot about that macro. I knew it existed but I've never had cause to use it. Or use BSAM. -- gil Actually, no. I've used BSAM a fair amount. Just never TRUNC, that I can recall. -Steve -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Something to Think About - Optimal PDS Blocking
On 12/8/2013 8:58 AM, Jon Perryman wrote: With the exception of DISP=MOD with multiple open/writes and that the last block will always be, I don't see the difference between FB and FBS. How would FB create a short block in the middle? Well, except for DISP=MOD, it won't: it is a DSIP=MOD situation that allows the possibility. -Steve Comstock Jon Perryman - Original Message - From: nitz-...@gmx.net nitz-...@gmx.net To: IBM-MAIN@LISTSERV.UA.EDU Cc: Sent: Saturday, December 7, 2013 10:55 PM Subject: Re: Something to Think About - Optimal PDS Blocking Yes, however FBS stands for Fixed Block Standard, not Spanned. Exactly. And the last record in an FBS data set can be short, i.e. less than lrecl. The short record denotes the end of the data set. And all the utility programs know it and stop processing once they reach the short record. That is all fine and well as long as we are not dealing with a multivolume data set. Think standalone dump written striped to - say - 5 volumes. Each volume has a data set in format FBS, but only one of the volumes can have a short record. SAdump knows that, and IPCS knows it, too. The utilities don't. So assume that you took a complete sadump to 5 volumes and the sort record happens to be on the first volume. Then you use a utility (ICEGENER is my favourite) to copy somewhere else. You end up with a severely truncated sadump. One fifth, to be exact. IPCS will read the truncated dump to the best of its abilities, but you will get all kinds of 'storage not available' warnings when looking at the dump. Last time a customer sent me an sadump, it had 27000cyl. I got all kinds of warnings and got lucky in that the sadump messages were clearly truncated and didn't show the 'successfully finished' message. It turned out that the wrong utility was used for copying, and the actual dump had 63000 cyls. Visible when IPCS COPYDUMP was used for copying. IPCS knows that a striped sadump can have the short record earlier. Barbara -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: OT? Opinion article on software design being deliberately unfriendly
On 11/27/2013 6:26 AM, John McKown wrote: The attitude described in this article: http://arstechnica.com/business/2013/11/its-the-little-things-pt-3-harder-is-not-better/ Is one that I've noticed here at times. Basically is that it seems that some things are simply written to be harder to use than is reasonable, especially given the advancement in hardware and UI design knowledge. Unfortunately, the author does not address the monetary cost of improving the UI. Which is a major concern. I tell my students, User friendly means programmer difficult. That is, it is the designer and coder who should work hard so that the user doesn't have to. So, yes that means more effort (cost) on the design side. But, hey, that's why they pay us the big bucks, right? :-) -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * We are going out of business effective 30 December, 2013 * To purchase a set of our training materials at terrific prices, check out our Going Out Of Business Sale: http://www.trainersfriend.com/SpecialSale -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Last notice of Trainer's Friend training kits sale
This is for organizations who need 30 days to get through a requisition / paperwork cycle, and it will be the last notice of our sale, so in the future we will not take up any bandwidth on it. The Trainer's Friend, Inc. is closing its [virtual] doors as of December 31, 2013. Prior to that, we are holding a Going Out Of Business (GOOB) sale of our training kits and a collection of my technical papers. Tons of detail are available at: http://www.trainersfriend.com/SpecialSale/ but here's a quick overview... A training kit is a collection of files that enables an instructor to teach a course (or allows a course to be taken as self-study[-with-mentor]). Typically a training kit from us contains: * Presentation version of content (PDF) * Print master for student handout version of content (PDF) * Instructor notes (PDF) * Lab files (XMIT) * Instructions for installing lab files on mainframe (PDF) Historically, we have priced training kits at USD 2000 per course day. For this sale, we are pricing them at USD 200 per course day - a 90% discount. Our courses are focused on z/OS application programmers, although some courses might be useful for beginning systems programmers, operators, end users, and so on. The topic areas for which we have training kits include: * Introduction to application programming (z/OS) * ISPF, CLIST, REXX, Dialog Manager * JCL and Utilities, DFSORT * Assembler Language * COBOL * PL/I * C * VSAM * DB2 * Language Environment * Cross program communications * DLLs * Debug Tool * z/OS UNIX (including building web pages and coding CGIs) 64 courses in all, totalling 192 training days. In addition we have these special offers: * Total package - all courses plus technical papers USD 3 * Steve package - all my courses plus technical papers USD 17000 * Hunter packate - all Hunter's courses USD 16000 * Bulk discount - if purchasing individual courses, if total is 10 or more training days, additional 15% discount for training kits (so: USD 170 per course day) This is spelled out here: http://www.trainersfriend.com/SpecialSale/SpecialDeal.html The sale is going well so far, but we just wanted to put in a gentle reminder before it is no longer available. Sale ends December 30, 2013. Kind regards, -Steve Comstock, founder The Trainer's Friend, Inc. 303-355-2752 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: [slightly] off topic: SPFPRO on Win 8.1
[top posting] Got it. Had to set emulation to Windows 95, not Windows XP. Thanks for the suggestions. -Steve On 10/28/2013 8:11 PM, Steve Comstock wrote: On 10/28/2013 7:28 PM, Lance D. Jackson wrote: Steve, It runs just fine on my Win 8.0 machine. What issues are you having? -Original Message- From: Steve Comstock [mailto:st...@trainersfriend.com] Sent: Monday, October 28, 2013 06:04 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: [slightly] off topic: SPFPRO on Win 8.1 Has anybody gotten SPFPRO to run on Windows 8.1 (oreven 8.0, for that matter)?Looks like I'll have to give up one of my favorite tools.Kind regards,-Steve Comstock--For IBM-MAIN subscribe / signoff / archive access instructions,send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Well, first I simply copied over the directory containing the program files to my new system. I set up the program properties to run in compatibilty mode for Win XP SP 3. When I launch the progam I get two phenomema: 1) I get prompted if it's OK for this program to make changes to this computer - I reply Yes 2) then I get a system error that the program can't start because SPW32DM.DLL is missing from the computer. Try reinstalling the program to fix the problem [Note: all the DLLs are in the directory containing all the SPFPRO files] --- Now, I have not been successful running any install program from this directory; there are very few candidates: PATCH.EXE PDSUTIL.EXE PRFUPGDW.EXE SETUP.EXE SPFECHO.EXE Spfpro.exe SPW32THK.EXE UPG50.EXE UPGRADE.BAT VOL.EXE When I try any of these (except Spfpro.exe which is described above) I get This App can't run on your PC -- I notice the properties for the icon I use to launch Spfpro.exe says the program is located in C:\Users\SteveComstock\Desktop but I actually put everything in C:\SPFPRO, so that's a mystery. Any suggestions? Thanks. -Steve -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: USS Callable Assembler Services
On 11/18/2013 12:01 PM, esst...@juno.com wrote: Tony Harminc wrote after the BPX1QSN call, since the only defined RETVALs for BPX1QSN are 0 and -1, yet your branch goes to RETVAL_ERROR in both those cases. Are you perhaps reporting on some leftover stuff in the return and reason code fields? Those field values are undefined (generally means not updated) if the routine returns a 0. Point well taken, I used the BNP imstruction as it was referenced on the BPX1QGT service. The sample code in the publications do leave out some details. Having said that the value in RETVAL contained all X'' Which is, of course, -1. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * We are going out of business effective 30 December, 2013 * To purchase a set of our training materials at terrific prices, check out our Going Out Of Business Sale: http://www.trainersfriend.com/SpecialSale -- Original Message -- From: Tony Harminc t...@harminc.net To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: USS Callable Assembler Services Date: Mon, 18 Nov 2013 13:35:05 -0500 On 18 November 2013 12:20, esst...@juno.com esst...@juno.com wrote: After I issue BPX1QSN I receive a Return Code of 0079 and a Reason Code of 030A I'm a little puzzled at your ICM R0,B'',UMSGVALGet Return Value JNP RETVAL_ERROR No after the BPX1QSN call, since the only defined RETVALs for BPX1QSN are 0 and -1, yet your branch goes to RETVAL_ERROR in both those cases. Are you perhaps reporting on some leftover stuff in the return and reason code fields? Those field values are undefined (generally means not updated) if the routine returns a 0. Tony H. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Aging Sysprogs = Aging Farmers
On 11/6/2013 7:47 AM, Alan Field wrote: Possibly because many of us don't run Session manager. Here's what I get: SESSION MANAGER NOT ACTIVE - SMCOPY IGNORED in response to the SMCOPY command. Alan Field Technical Engineer Principal BCBS Minnesota Phone: 651.662.3546 Mobile: 651.428.8826 Interesting. I knew that the 'SM' in 'SMCOPY' stood for session manager, but my recent experience has been that the SMCOPY command has always worked. Must have lucked out in that session manager was always running where I happened to test it. Can you show us the actual command you issued? Kind regards, -Steve From: Steve Comstock st...@trainersfriend.com To: IBM-MAIN@LISTSERV.UA.EDU, Date: 11/05/2013 21:39 Subject:Re: Aging Sysprogs = Aging Farmers Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU On 11/5/2013 5:26 PM, David Crayford wrote: On 6/11/2013 12:37 AM, John Gilmore wrote: I do of course agree that z/OS is perceived to be boring, but that is another question. I don't think it's perceived as boring, certainly it's perceived as user hostile. Take Pauls cp command example, it's easy to copy files using a simple command. For those that prefer GUIs they can drag and drop or copy/paste. On the mainframe one has no choice but to run JCL. JCL certainly is an antique, and a very unpleasant one. Actually, in a TSO session (analogous to a UNIX session), you can use the SMCOPY command without JCL. It's just that most people aren't aware of it. ad Covered in our courses TSO CLIST Programming in z/OS - 3 days http://www.trainersfriend.com/TSO_Clist_REXX_Dialog_Mgr/a650descrpt.htm TSO REXX Programming in z/OS - 5 days http://www.trainersfriend.com/TSO_Clist_REXX_Dialog_Mgr/a750descrpt.htm /ad -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * We are going out of business effective 30 December, 2013 * To purchase a set of our training materials at terrific prices, check out our Going Out Of Business Sale: http://www.trainersfriend.com/SpecialSale -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Aging Sysprogs = Aging Farmers
On 11/6/2013 8:04 AM, Alan Field wrote: Simply from option 6 I entered SMCOPY Alan Field Technical Engineer Principal BCBS Minnesota Phone: 651.662.3546 Mobile: 651.428.8826 Ah. In the TSO Command Reference you will see: If the source and target of the copy request are both data sets, (SYSOUT or QSAM), you do not have to be logged on under the Session Manager to use the SMCOPY command. Try something like smcopy fds(from_datasetname) tds(to_datasetname) note that if 'to_datasetname' does not exist, SMCOPY will create it. you can also add the option notrans to ensure no translation of non-printable characters to blanks (e.g., if you have packed decimal or binary data fields) you can also add the option 'line(start:end)' to copy a subset of the source file. Kind regards, -Steve From: Steve Comstock st...@trainersfriend.com To: IBM-MAIN@LISTSERV.UA.EDU, Date: 11/06/2013 08:58 Subject:Re: Aging Sysprogs = Aging Farmers Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU On 11/6/2013 7:47 AM, Alan Field wrote: Possibly because many of us don't run Session manager. Here's what I get: SESSION MANAGER NOT ACTIVE - SMCOPY IGNORED in response to the SMCOPY command. Alan Field Technical Engineer Principal BCBS Minnesota Phone: 651.662.3546 Mobile: 651.428.8826 Interesting. I knew that the 'SM' in 'SMCOPY' stood for session manager, but my recent experience has been that the SMCOPY command has always worked. Must have lucked out in that session manager was always running where I happened to test it. Can you show us the actual command you issued? Kind regards, -Steve From: Steve Comstock st...@trainersfriend.com To: IBM-MAIN@LISTSERV.UA.EDU, Date: 11/05/2013 21:39 Subject:Re: Aging Sysprogs = Aging Farmers Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU On 11/5/2013 5:26 PM, David Crayford wrote: On 6/11/2013 12:37 AM, John Gilmore wrote: I do of course agree that z/OS is perceived to be boring, but that is another question. I don't think it's perceived as boring, certainly it's perceived as user hostile. Take Pauls cp command example, it's easy to copy files using a simple command. For those that prefer GUIs they can drag and drop or copy/paste. On the mainframe one has no choice but to run JCL. JCL certainly is an antique, and a very unpleasant one. Actually, in a TSO session (analogous to a UNIX session), you can use the SMCOPY command without JCL. It's just that most people aren't aware of it. ad Covered in our courses TSO CLIST Programming in z/OS - 3 days http://www.trainersfriend.com/TSO_Clist_REXX_Dialog_Mgr/a650descrpt.htm TSO REXX Programming in z/OS - 5 days http://www.trainersfriend.com/TSO_Clist_REXX_Dialog_Mgr/a750descrpt.htm /ad -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * We are going out of business effective 30 December, 2013 * To purchase a set of our training materials at terrific prices, check out our Going Out Of Business Sale: http://www.trainersfriend.com/SpecialSale -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Aging Sysprogs = Aging Farmers
On 11/6/2013 8:45 AM, Paul Gilmartin wrote: On Wed, 6 Nov 2013 08:14:04 -0700, Steve Comstock wrote: Ah. In the TSO Command Reference you will see: If the source and target of the copy request are both data sets, (SYSOUT or QSAM), you do not have to be logged on under the Session Manager to use the SMCOPY command. What's a data set? What's not a data set? I believe the obvious authority should be Using Data Sets, which avers in an early section, that a data set can be many things (from memory): DASD, tape, terminal, card reader, punch, printer, UNIX file, ... (And, no, I've failed using that citation to IBM support when they tell me, No, that needs to be a data set.) -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Good question, Paul. I no longer have a system to test on. How about trying SMCOPY with z/OS UNIX files as input and / or output and letting us know how it works? Kind regards, -Steve -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Aging Sysprogs = Aging Farmers
On 11/6/2013 1:06 PM, Bill Godfrey wrote: In case this is causing confusion to some readers, the Session Manager that includes the SMCOPY command, which was mentioned earlier, has nothing to do with multiple sessions. There is a chapter about it in the TSO/E User's Guide. http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IKJ4C260/4.2.1 Bill I wondered how long it would take for someone to come up with that. Thanks, Bill. In the old days (80's), lots of shop ran SM, as I recall. It had its points, but I was never totally comfortable with it. I don't know if anybody runs it now. Kind regards, -Steve Comstock On Wed, 6 Nov 2013 11:36:19 -0800, Jon Perryman wrote: I don't know if IBM still maintains session manager. When they acquired Candle, they had CL/Supersession which provides different but similar functionality. They need CL/Supersession for OMEGAMON so if they were to get rid of one, it would probably be session manager. Session manager is the equivalent of running multiple TN3270 session. Think of it �Nothing more so it doesn't have anything to do with single user signon for TSO.� As far as TSO COPY, it is so heavily used that IBM could not withdraw it. I don't know if it's still priced. Jon Perryman. From: Paul Gilmartin To: IBM-MAIN@LISTSERV.UA.EDU Sent: Wednesday, November 6, 2013 9:44 AM Subject: Re: Aging Sysprogs = Aging Farmers On Wed, 6 Nov 2013 08:55:05 -0800, Jon Perryman wrote: Session manager allowed multiple terminal sessions from a single terminal. Past tense? Is it gone? STTL? Multiple sessions with the same user ID? On the same LPAR? I know there are CBTTape type hacks for this, but it hasn't become mainstream. Is ENQ on the ISPF profiles a further obstacle? Do multiple sessions run in the same address space? How do they deal with DDNAME conflicts? Is every utility invoked with an alternate DDNAME list? And concerning COPY, wasn't it mentioned earlier here that it belonged to a separately priced feature, perhaps now withdrawn? -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How can I write this program to a load library
On 11/4/2013 8:59 PM, Paul Gilmartin wrote: On Mon, 4 Nov 2013 20:21:38 -0700, Steve Comstock wrote: To do that has nothing to do with COBOL: it's JCL you need to brush up on. Point LKED.SYSLMOD to a PDS/PDSE that contains load modules or program objects. Be very careful doing that! When I was very young I tried something similar without understanding that the following GO step contained: //STEPLIB DD DISP=(OLD,DELETE),DSN=*.LKED.SYSLMOD Oops! -- gil Yeah, I did something similar once. State of New Mexico was down for two days. But the point is that the OP really needs to beef up his understanding of JCL as well as his knowledge of COBOL if he is teaching for the z/OS environment. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * We are going out of business effective 30 December, 2013 * To purchase a set of our training materials at terrific prices, check out our Going Out Of Business Sale: http://www.trainersfriend.com/SpecialSale -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Aging Sysprogs = Aging Farmers
On 11/5/2013 12:51 AM, Robin Atwood wrote: Diverting the thread a tad, does anyone know where you can do an HLASM course? My young colleague wants to be inducted into the mysteries of the ancient craft and we found various IBM courses (see below) but none of them are currently being offered. Of course, various outfits are happy to come to your shop and give one-on-one instruction, but HR won't wear the expense of that. Well, there may be a middle way ... If you have someone who can mentor your colleague, perhaps you could purchase our course materials and have him or her take these courses as mentored self-study. This allows the student to go at their own pace. And it allows your organization to use the materials to teach other students later at no additional charge. With our going out of business sale in full swing, you can purchase our four main Assembler courses for USD 2600 (actually, if you buy them all at the same time the price is just USD 2210). Of course, the student may need an ISPF course and / or a JCL course at some time in the process: it's not clear what they already know. The price is just USD 200 per course day to purchase any of our courses in the sale; and if you buy ten or more days at one time you get an additional 15% off. These are complete training kits: lecture version, handout version, setup notes, instructor notes, data for lab files. You can use this page as a price calculator: http://www.trainersfriend.com/SpecialSale/LicenseOrderForm.html plug in various options and it shows you the price; then instead of placing an order (the 'Submit' button), you can cancel the order (the 'Cancel' button) or just leave the page. Tons of detail are available here: http://www.trainersfriend.com/SpecialSale/ So a little different perspective that might help you meet your need. Kind regards, -Steve Comstock, founder The Trainer's Friend, Inc. ES10AGB http://www-304.ibm.com/jct03001c/services/learning/ites.wss/gb/en?pageType=c ourse_descriptioncourseCode=ES10AGB ES34GB http://www-304.ibm.com/jct03001c/services/learning/ites.wss/gb/en?pageType=c ourse_descriptioncourseCode=ES34GB ES35GB http://www-304.ibm.com/jct03001c/services/learning/ites.wss/gb/en?pageType=c ourse_descriptioncourseCode=ES35GB He is in the UK but travel would not be a problem. Any suggestions gratefully received! Thanks -Robin -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Clark Morris Sent: 05 November 2013 10:15 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Aging Sysprogs = Aging Farmers On 4 Nov 2013 11:49:17 -0800, in bit.listserv.ibm-main you wrote: They said enough -- just because some are doesn't mean there's enough! Somehow I got into the field with only 1 course in Numerical Analysis and Programming for Digital Computers (2 semesters) in 1961 and 1 course in Symbolic Logic. I was lucky that my company sent me to several IBM course and from 1977 to 1990 to SHARE. Should Colleges and Universities be teaching vendor specific operating systems? Should they be teaching the basic concepts of operating systems and of security? Clark Morris - Ted MacNEIL eamacn...@yahoo.ca Twitter: @TedMacNEIL -Original Message- From: George Rodriguez george.rodrig...@palmbeachschools.org Sender: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Date: Mon, 4 Nov 2013 10:58:04 To: IBM-MAIN@LISTSERV.UA.EDU Reply-To: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Aging Sysprogs = Aging Farmers That's not 100% true... Schools aren't training enough mainfarmers. There's a program in North Carolina that's teaching TSO, Cobol, JCL, etc... and graduates are being hired by businesses that are using mainframe computer systems. We in south Florida were thinking of offering the same programs... -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How can I write this program to a load library
On 11/4/2013 8:21 PM, Steve Comstock wrote: On 11/4/2013 7:49 PM, Cameron Seay wrote: All: I am a re-newbie to COBOL (learned it years ago but it's very rusty). I am teaching it to my students because it's a great job skill now. Below is job that contains the source code inline and runs great. It compiles, links and runs error free. What I want is the syntax to place the LOAD module into a data set. I tried what I thought would work, but it didn't. Many thanks! To do that has nothing to do with COBOL: it's JCL you need to brush up on. Point LKED.SYSLMOD to a PDS/PDSE that contains load modules or program objects. //KC02177B JOB (12345678),'V HAMPTON',MSGLEVEL=(1,1),REGION=0M, // NOTIFY=SYSUID,MSGCLASS=A,CLASS=A // //COBOL1 EXEC IGYWCLG, // PARM.COBOL='TEST,RENT,APOST,OBJECT,NODYNAM,LIB,SIZE(5048376)' //COBOL.SYSPRINT DD SYSOUT=* //COBOL.SYSIN DD * Lots of very old syntax here. IDENTIFICATION DIVISION. 0004 PROGRAM-ID. PROG1. 0006 AUTHOR. VICKI HAMPTON. Obsolete paragraph, AUTHOR * LAB EXERCISE 1. 0007 ENVIRONMENT DIVISION. 0009 CONFIGURATION SECTION. 0011 INPUT-OUTPUT SECTION. 0017 FILE-CONTROL. 0019 SELECT INPUT-FILE ASSIGN TO DA-S-INPUT. 0021 just ASSIGN TO S-INPUT is fine, my bad; S-INPUT won't work; AS-INDD would work for ESDS better would be: ASSIGN TO INDD (the DA-S stuff is ignored, but 'INPUT' itself is a reserved word) SELECT PRNT-FILEASSIGN TO UR-S-PRNT. 0024 just ASSIGN TO PRNT is better * INPUT-FILE IS THE NAME THE PROGRAM WILL USE *DA-S-INPUT TELLS JCL TO ASSIGN THE INPUT DATA *TO THE FILE NAME INPUT-FILE, SAME FOR PRNT-FILE *AND UR-S-PRNT EJECT EJECT and SKIP are only relevant when you print out your compiles to hard copy; otherwise pretty meaningless 0025 * EJECT DIRECTS THE PRINTER TO START THE NEXT * OUTPUT TO BEGIN AT THE TOP OF THE PAGE Well, yes, but the output of the _compile_, not the output of the report DATA DIVISION. 0026 SKIP3 0027 * SKIP 3 INSERTS 3 BLANK LINES the current compilers simply accept blank lines FILE SECTION. 0028 SKIP2 0029 *SKIP TO INSERTS 2 BLANK LINES FD INPUT-FILE 0030 BLOCK CONTAINS 0 RECORDS 0031 * THIS INFORMS THE SYSTEM THAT NO RECORDS ARE PRESENT * WHEN WE START (WE ARE READING OUR DATA FROM * AN INLINE STREAM No, it does not. It tells the operating system to choose the block size LABEL RECORDS ARE STANDARD. 0032 ' recording mode is F. ' is more important This is unnecessary, since it is the only option for disk and the default for tape 01 INPUT-REC PIC X(80). 033 SKIP2 0034 FD PRNT-FILE 0045 LABEL RECORDS ARE OMITTED. 0046 Unnecessary; ' recording mode is F. ' is more important 01 PRNT-REC. 0047 03 PIC X(60). 03 PIC X(65). * THIS IS FORMATTING FOR OUR REPORT SKIP2 0048 EJECT 0049 WORKING-STORAGE SECTION. 0050 SKIP2 0051 ** 0052 * LAYOUT FOR THE INPUT FILE *0053
Re: Aging Sysprogs = Aging Farmers
On 11/5/2013 5:26 PM, David Crayford wrote: On 6/11/2013 12:37 AM, John Gilmore wrote: I do of course agree that z/OS is perceived to be boring, but that is another question. I don't think it's perceived as boring, certainly it's perceived as user hostile. Take Pauls cp command example, it's easy to copy files using a simple command. For those that prefer GUIs they can drag and drop or copy/paste. On the mainframe one has no choice but to run JCL. JCL certainly is an antique, and a very unpleasant one. Actually, in a TSO session (analogous to a UNIX session), you can use the SMCOPY command without JCL. It's just that most people aren't aware of it. ad Covered in our courses TSO CLIST Programming in z/OS - 3 days http://www.trainersfriend.com/TSO_Clist_REXX_Dialog_Mgr/a650descrpt.htm TSO REXX Programming in z/OS - 5 days http://www.trainersfriend.com/TSO_Clist_REXX_Dialog_Mgr/a750descrpt.htm /ad -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * We are going out of business effective 30 December, 2013 * To purchase a set of our training materials at terrific prices, check out our Going Out Of Business Sale: http://www.trainersfriend.com/SpecialSale -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Aging Sysprogs = Aging Farmers
On 11/4/2013 8:58 AM, George Rodriguez wrote: That's not 100% true... Schools aren't training enough mainfarmers. There's a program in North Carolina that's teaching TSO, Cobol, JCL, etc... and graduates are being hired by businesses that are using mainframe computer systems. You missed the pun: 'mainfarmers', not 'mainframers' ~~~ -Steve Comstock We in south Florida were thinking of offering the same programs... *George Rodriguez* *Specialist II - IT Solutions* *IT Enterprise Applications* *PX - 47652* *(561) 357-7652 (office)* *(561) 707-3496 (mobile)* *School District of Palm Beach County* *3348 Forest Hill Blvd.* *Room B-251* *West Palm Beach, FL. 33406-5869* *Florida's Only A-Rated Urban District For Eight Consecutive Years* On Mon, Nov 4, 2013 at 10:26 AM, Dave Salt ds...@hotmail.com wrote: Schools aren't training enough mainfarmers.;-) Dave Salt SimpList(tm) - try it; you'll get it! http://www.mackinney.com/products/program-development/simplist.html Date: Mon, 4 Nov 2013 02:41:39 -0600 From: elardus.engelbre...@sita.co.za Subject: Aging Sysprogs = Aging Farmers To: IBM-MAIN@LISTSERV.UA.EDU News for you aging Sysprogs... :-) It is not the mainframers who is aging while struggling to get new young guys/gals into mainframes. The farmers are also struggling here with this aging thing in South Africa and United States. Now read up those links before you retire! ;-) http://www.agriculture.com/news/business/is-agriculture-aging-too-quickly_5-ar34746 http://www.cnbc.com/id/101087391 etc. Happy reading. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How can I write this program to a load library
* 0262 ** 0263 1600-PRINT-NAMES. 0264 MOVE I-NAME TO L-NAME1. 0271 MOVE DEPT TO DEPT1. WRITE PRNT-REC FROM PRNT-DATA1 0272 AFTER ADVANCING 1 LINE. 0273 ** 0324 *READS THE INPUT FILE * 325 ** 0326 2000-READ-INPUT. 327 READ INPUT-FILE INTO INPUT-DATA 000328 AT END MOVE 1 TO EOF-I. 0329 //GO.SYSOUT DD SYSOUT=* //GO.SYSPRINT DD SYSOUT=* //GO.INPUT DD * VICKI HAMPTON CIS GEORGE WASHINGTON ENG IVAN ISGREATPHY IGOR ISBETTER IVANA GOHOME COB OL HUGH LESS GARY MORE PAULA PANTHER //GO.PRNT DD SYSOUT=* What compiler are you using? What version of the operating system? Kind regards, -Steve Comstock -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: [slightly] off topic: SPFPRO on Win 8.1
On 10/28/2013 4:15 PM, Dan Skomsky wrote: I have it running Win 98 mode on Windows 7 Pro 32 bit and tried it successfully on the Windows 8 pre-release 32 bit. Hmm. No luck on win 8.1 64-bit. -Steve -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Steve Comstock Sent: Monday, October 28, 2013 5:04 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: [slightly] off topic: SPFPRO on Win 8.1 Has anybody gotten SPFPRO to run on Windows 8.1 (or even 8.0, for that matter)? Looks like I'll have to give up one of my favorite tools. Kind regards, -Steve Comstock -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: [slightly] off topic: SPFPRO on Win 8.1
On 10/28/2013 11:42 PM, Brian Westerman wrote: Steve, I realize that this isn't exactly the answer you wanted, but While I can get my copy to work on Windows 8.1 (I run it in compatibility mode by right clicking on the executable and choose the compatibility option), I have (as of a couple years ago), moved to SPFLITE (http://www.spflite.com). It supports all versions of Windows. And if you like it you can license a copy for (I think) $25. It's not a bad replacement for CTC's SPF and it's well maintained. If there are any options that you need that aren't there, the author is really good about adding things. I only keep the CTC stuff around now because I'm too careful to throw anything out. I don't get the same problem you are having with the CTC code though, maybe you damaged a module somewhere or maybe it's just the compatibility stuff that you need to do. Brian -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN I'll have a look at it. Thanks. -Steve -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: AW: [slightly] off topic: SPFPRO on Win 8.1
On 10/29/2013 3:18 AM, Michael Knigge wrote: Steve, I don't know what's wrong with SPFPRO on Win 8, but maybe it is time for a change. You may want to have a look at SPF/365 (well known as SPF/SE) that is now selled at a much more reduced price. The subscription for one year is at 25 $ US (you can use it after the year, but you get no more updates and no support)... See http://www.commandtechnology.com/ In my optinion it is much better than SPFLite (http://spflite.co.nr/) (because of the integrated Macro language - I use it a lot!) which is selled at 25 $ US, too. I personally use SPF/SE with the font of Tom Brennan's Vista TN3270 and it looks so fu* great ;-) Bye, Michael -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Thanks, Michael, I'll have a look at it. Kind regards, -Steve -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
[slightly] off topic: SPFPRO on Win 8.1
Has anybody gotten SPFPRO to run on Windows 8.1 (or even 8.0, for that matter)? Looks like I'll have to give up one of my favorite tools. Kind regards, -Steve Comstock -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: [slightly] off topic: SPFPRO on Win 8.1
On 10/28/2013 7:28 PM, Lance D. Jackson wrote: Steve, It runs just fine on my Win 8.0 machine. What issues are you having? -Original Message- From: Steve Comstock [mailto:st...@trainersfriend.com] Sent: Monday, October 28, 2013 06:04 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: [slightly] off topic: SPFPRO on Win 8.1 Has anybody gotten SPFPRO to run on Windows 8.1 (oreven 8.0, for that matter)?Looks like I'll have to give up one of my favorite tools.Kind regards,-Steve Comstock--For IBM-MAIN subscribe / signoff / archive access instructions,send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Well, first I simply copied over the directory containing the program files to my new system. I set up the program properties to run in compatibilty mode for Win XP SP 3. When I launch the progam I get two phenomema: 1) I get prompted if it's OK for this program to make changes to this computer - I reply Yes 2) then I get a system error that the program can't start because SPW32DM.DLL is missing from the computer. Try reinstalling the program to fix the problem [Note: all the DLLs are in the directory containing all the SPFPRO files] --- Now, I have not been successful running any install program from this directory; there are very few candidates: PATCH.EXE PDSUTIL.EXE PRFUPGDW.EXE SETUP.EXE SPFECHO.EXE Spfpro.exe SPW32THK.EXE UPG50.EXE UPGRADE.BAT VOL.EXE When I try any of these (except Spfpro.exe which is described above) I get This App can't run on your PC -- I notice the properties for the icon I use to launch Spfpro.exe says the program is located in C:\Users\SteveComstock\Desktop but I actually put everything in C:\SPFPRO, so that's a mystery. Any suggestions? Thanks. -Steve -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: John Dvorak explains why the z is doomed (indirectly)
On 10/22/2013 7:56 AM, Staller, Allan wrote: No, but the techies were! There was (sigh of nostalgia) training! ad And here's an opportunity to bring back training on a do-it-yourself basis: The Trainer's Friend, Inc. is having a going out of business sale of their training materials. PDF files containing instructor lecture version, student handout version (containing virtualy all of the lecture notes), instructort notes and, for courses with labs (all but three courses), files containing test data, starter programs, sample solutions. At 90% off our list price. If you have employees who can teach, you can run these powerful, rich, courses internally for a fraction of the cost of bringing in outside instructors: maybe this can make training economically feasible in your company. These materials can also be used for self study (best if each student has a mentor). Content is current as of z/OS 1.13, DB2 V10, COBOL V4.2, etc. including: * Introduction to application programming * ISPF / Dialog Manager / TSO / REXX / CLIST * JCL, some utilities, lots of DFSORT * Assembler language * COBOL * PL/I * C * VSAM * DB2 * Debug Tool * Language Environment / binder / DLLs * z/OS UNIX, including + scripting + hosting a website (without WebSphere) + HTML 5, CSS, JavaScript, DOM + CGIs written in COBOL and Assembler The sale ends on December 30, 2013 (wanted to give corporations and government organizations lots of lead time for requisitions, paperwork, etc.). On January 1, 2014 we are closing our doors. Now is a good time to visit http://www.trainersfriend.com/ which links you to http://www.trainersfriend.com/SpecialSale/ with tons of details, special deals, etc. /ad Kind regards, -Steve Comstock, founder The Trainer's Friend, Inc. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: John Dvorak explains why the z is doomed (indirectly)
On 10/22/2013 10:16 AM, Lou Losee wrote: Is it truly required for *everyone* to be computer literate? In the early days computers were not so widespread the few that used them were those that understood them and how they worked. This was necessary as the systems themselves were crude with regard to interfaces and services provided. Now that the computer has become more of an appliance why should users need to understand it anymore than they need to understand how a phone or a car transmission (manual or automatic) works in order to use it. True, every one does not need to be computer literate. End users need only be 'application literate' for the applications they use. Still, I believe some understanding of: drives, directories (excuse me: folders) and files; how to distinguish between a file and a program; and a feel for how to organize files can make the experience much better. If you want to spread technology to the masses, you need to remove the complexity and the need for intimate understanding. Everyone does not have the time, knowledge or possibly the intellect for understanding complex systems that are in common use. Lou Lately I've been thinking it was a mistake to try to make IT 'cool'. People who just want to be cool tend not to want to take the time to think things through: quick and dirty. Perhaps we should make apps cool, but reserve application development for unashamed intellectuals, nerds, and thoughtful people. -Steve -- Artificial Intelligence is no match for Natural Stupidity - Unknown On Tue, Oct 22, 2013 at 9:46 AM, Gerhard Adam gada...@charter.net wrote: Fair enough, but let's forget about users in this regard. In my experience, the business environment has become unnecessarily restrictive regarding risk, so that even supposed sandbox systems may have significant limits on what an individual can do. When this is coupled with there being zero benefit to taking on such a risk, it becomes easier to see why individuals shy away from it. What's the point in trying to learn something when the only time you get attention is when you make a mistake. So while it was certainly true that there were PLMs and training more readily available in the past, it is equally true that many techies learned because of mistakes and errors, whereas today there is little praise and much blame for those taking on those tasks. Adam Good question. For professional training (which costs $$), it is likely the business environment. But I've also had users refuse to take free, internal, courses because they: (1) don't have the time; (2) already know all that stuff; and (3) don't want to bother because software should be intuitive (i.e. should do what I want/need, not what I tell it to). -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: John Dvorak explains why the z is doomed (indirectly)
On 10/22/2013 10:44 AM, Gerhard Adam wrote: Let's also remember that in the good old days you paid for every manual, so there's no comparison to the ability to access hundreds of manuals and have them available for free. This doesn't even count all the SHARE presentations and numerous other sources of information. In the good old days IBM had Customer Service Reps and Field Engineers that assisted in the Education. The best we can hope for now is Web presentations. Excellent points, Gerhard. Some things are better, some are worse. Kind regards, -Steve Comstock, Founder The Trainer's Friend, Inc. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Best Desktop 3D Printers | Digital Trends
On 10/14/2013 12:56 PM, efinnell15 wrote: Best Desktop 3D Printers | Digital Trends I've been looking at these for the Holidays...don't know if there's an Adobe or Corel interface. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Do you suppose you can use a 3D printer to manufacture a 3D printer? -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * We are going out of business effective 30 December, 2013 * To purchase a set of our training materials at terrific prices, check out our Going Out Of Business Sale: http://www.trainersfriend.com/SpecialSale -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Best Desktop 3D Printers | Digital Trends
On 10/14/2013 1:20 PM, Bass, Walter W wrote: Steve Comstock said: snip Do you suppose you can use a 3D printer to manufacture a 3D printer? /snip Certainly. Google REPRAP. Bill Bass United HealthCare Greenville, SC Very cool. Thanks for the suggestion. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * We are going out of business effective 30 December, 2013 * To purchase a set of our training materials at terrific prices, check out our Going Out Of Business Sale: http://www.trainersfriend.com/SpecialSale -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: PDS/E, Shared Dasd, and COBOL V5
On 10/9/2013 2:19 PM, Paul Gilmartin wrote: On Tue, 24 Sep 2013 08:47:24 -0400, Farley, Peter x23353 wrote: Programmers like me would desperately love to see the new compiler in action and get going on using the enhanced facilities -- but the procedural hurdles that IBM has thrown up with this PDSE requirement are going to be staggeringly expensive to cross over. Actually, I don't believe program objects are required to reside in PDSEs, or does COBOL impose this as an additional requirement? Program objects may reside in z/OS UNIX files. (Of course there's a drawback: program objects not in PDSes are not readily accessible to LOAD/LINK/ATTACH/XCTL facilities.) -- gil However, COBOL calling programs could use the BPX1LOD service to LOAD an executable stored as a z/OS UNIX file (COBOL can't ATTACH or XCTL anyway). Then COBOL 'CALL data-item' can invoke the loaded module. How to do this is covered in our three day course Developing Applications for z/OS UNIX. See http://www.trainersfriend.com/UNIX_and_Web_courses/u520descr.htm for details on the course. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * We are going out of business effective 30 December, 2013 * To purchase a set of our training materials at terrific prices, check out our Going Out Of Business Sale: http://www.trainersfriend.com/SpecialSale -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Determining number of Parameters passed to a COBOL program
On 10/2/2013 10:36 AM, Raupach, Robert E (CTO Architecture + Engineering) wrote: Greetings... A colleague asked me the following question: Is there a way to determine how many parameters are being passed into a COBOL program? I could show him in Assembler, but in COBOL, I wouldn't have a clue. Can someone advise? Thx, Bob R I doubt you could show him in Assembler, in the general case. Since parameters can now be passed by reference (the classic style), by content (like the classic style but passing the address of a copy of the data instead of the address of the actual data), and by value (value embedded in the parameter list); and since not all languages honor the end of list flag (leftmost bit on in the last entry in the parameter list), I don't think there is a generic way to find out the answer you are asking. However, the subroutine is the source for what is allowed / expected, so if it is properly invoked, and if there is a chance of multiple arguments being recieved, there must be some convention established for determining this (e.g., one argument might be expected to contain the count of the number of arguments coming in). In our 3 day course Cross Program Communication in z/OS we include some discussion on how to pass and receive a varying number of parameters / arguments in Assembler, COBOL, PL/I, and C. See: http://www.trainersfriend.com/Language_Environment_courses/m520descr.htm -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * We are going out of business effective 30 December, 2013 * To purchase a set of our training materials at terrific prices, check out our Going Out Of Business Sale: http://www.trainersfriend.com/SpecialSale -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Determining number of Parameters passed to a COBOL program
On 10/2/2013 10:47 AM, Roberts, John J wrote: This is of course for a COBOL BATCH MAIN program. Whar do you mean by 'This'? Are you refering to your original question or to the answer below? -Steve -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Roberts, John J Sent: Wednesday, October 02, 2013 11:43 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Determining number of Parameters passed to a COBOL program Is there a way to determine how many parameters are being passed into a COBOL program? It all depends on the convention you employ for passing parameters. The most common is to pass the PARM string as a comma delimited string. So in the simplest form, the number of parameters is the number of commas plus one. In the example //S1 EXEC PGM=P1,PARM='ABC,12345,X87,,55' you have five parameters, one of which is the null string. Typically you use the COBOL UNSTRING statement to parse the PARM string looking for delimiters. The PARM string is typically declared like this: LINKAGE SECTION. 01 LS-PARM. 05 LS-PARM-LEN PIC S9(4) COMP. 05 LS-PARM-TXT PIC X(100). PROCEDURE DIVISION USING LS-PARM. John -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: UNICODE to EBCDIC
On 9/23/2013 9:54 AM, Donald Likens wrote: WebSphere Application Server supplies some of its information in its SMF records in Unicode format. Is there a facility available to convert Unicode to EBCDIC? Which EBCDIC code page would you like? Check out Unicode Services User's Guide and Reference, SA22-7649-14 -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * We are going out of business effective 30 December, 2013 * To purchase a set of our training materials at terrific prices, check out our Going Out Of Business Sale: http://www.trainersfriend.com/SpecialSale -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Very large tables/ records in COBOL was Re: Unused variables
On 9/23/2013 10:55 AM, Clark Morris wrote: On 23 Sep 2013 06:09:02 -0700, in bit.listserv.ibm-main you wrote: Adjacent 01 levels have been used to allocate storage larger than the maximum allowed by COBOL. With the more recent versions of COBOL is the practice still necessary or can the tables be large enough? Given the existence of BLOBs (Binary Large OBjects?) of over a megabyte in size, I would think that serious relaxation of limits was needed and I have read that major changes have been made in that regard. Yes. Enterprise COBOL supports table sizes up to 128MiB and COBOL 5 supports table sizes up to 999,999,999 bytes. But folks are unlikely to change existing code to work with this unless a program is having some other maintenance done too. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * We are going out of business effective 30 December, 2013 * To purchase a set of our training materials at terrific prices, check out our Going Out Of Business Sale: http://www.trainersfriend.com/SpecialSale Clark Morris On Sat, 21 Sep 2013 20:18:53 -0300 Clark Morris cfmpub...@ns.sympatico.ca wrote: :On 20 Sep 2013 08:12:42 -0700, in bit.listserv.ibm-main John Gilmore :wrote: : :The idea of eliminating unreferenced variables in COBOL record :declarations is of course absurd, and fulminations against it are at :best otiose. It is always possible to construct quietist arguments :against change, any and all change; but this straw man is too :obviously so to very useful to careerist obstructionists. : :Basically all COBOL can do is eliminate unreferenced 77 levels which :are independent (not in a structure and logically equivalent to 01 :levels or records) and unused 01 (records) levels in Working-Storage. :This may also apply to LOCAL-STORAGE. While fields within a record :may be unused, eliminating them changes the structure and can cause :problems. In one sense are we straining at gnats in an era when :people send megabyte size pictures to each other over the Internet and :product files may contain 1 or more pictures of each product? I agree :with people that crud should be eliminated but changing record :structures which may be used in multiple programs can have interesting :results. : :Clark Morris : :We are left with working-storage and local-storage declarations for :variables that then go unused. In many cases they were once used, but :maintenance changes have made them redundant. In any case they may be :eliminated safely, and they should be when an occasion to do so :arises. They are individually ugly; and they add to source-program :clutter, which is substantial in old COBOL programs. : :Whether a major undertaking, a formal project or the like, for their :elimination is jusitified is another, very different question. I :think not. All optimizing compilers eliminate dead code, sequences of :instructions that can never be executed, and dead variables, which are :never referenced. : :Some compilers and backends are better at these operations than :others. The current IBM C/C++ and PL/I backend, for example, detects :almost all aliasing schemes and even reflects these 'obscured' :references in its XREF output. The current COBOL compiler does a :modest but adequate job of this when full optimization is used. There :is therefore almost no resource-savings argument to be made for a :campaign to eliminate unreferenced variables; and further :bureaucratization of this particular programming milieu is highly :undesirable. : :John Gilmore, Ashland, MA 01721 - USA : : :-- :For IBM-MAIN subscribe / signoff / archive access instructions, :send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: UNICODE to EBCDIC
On 9/23/2013 10:22 AM, John McKown wrote: If you mean a program, then the UNIX iconv command can do that. There is also the iconv set of C language subroutines if you want to write your own. http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/edclb1c0/3.440 http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/cbcpg1c0/8.6.3 If you are really good with COBOL, you can probably figure out how to call these using COBOL. Actually, COBOL has the builtin function DISPLAY-OF that converts UTF-16 to ASCII, EBCDIC, or UTF-8 There is a similar builtin in PL/I. For HLASM you can use the various translate instructions (but you gotta' build your own translate table). Likewise with PL/I or HLASM. If _I_ needed these in COBOL, I would likely write an HLASM stub routine to marshall the argument to/from the COBOL / C calling conventions. DFSORT can do it, with some difficulty, on a field basis by using the TRAN=ALTSEQ phrase in an INREC or OUTREC FIELDS= command. Too bad there isn't an easy way that I can see to just use UNICODE System Services. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * We are going out of business effective 30 December, 2013 * To purchase a set of our training materials at terrific prices, check out our Going Out Of Business Sale: http://www.trainersfriend.com/SpecialSale -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
