Quantcast
Channel: IBM Mainframe Computers Forums
Viewing all 8500 articles
Browse latest View live
↧

IMS DB/DC :: RE: Can anybody provide a sample PL/1-IMS DB/DC PGM

December 4, 2016, 2:35 pm
$
0
0
Author: enrico-sorichetti
Subject: Reply to: Can anybody provide a sample PL/1-IMS DB/DC PGM
Posted: Mon Dec 05, 2016 4:05 am (GMT 5.5)

Quote:
Has anyone successfully compiled an IMS MPP with PL/1 (F)?


NO!

an old IMS 1.5 manual states that that the minimum supported pl/1 is the pl/1 OPTIMIZER compiler,
successor to pl/1 F
_________________
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort icon_cool.gif
↧
Search

PL/I & Assembler :: PL/I code tuning/Performance improvement

December 4, 2016, 10:27 pm
$
0
0
Author: Virendra Shambharkar
Subject: PL/I code tuning/Performance improvement
Posted: Mon Dec 05, 2016 11:57 am (GMT 5.5)

Hi,

I am looking for documents or pointers for PL/I code tuning/Performance improvement . Have look over the net but did not come across any explicit documents . Any pointers will be helpful.

Thanks in advance.
_________________
Virendra Shambharkar
↧
↧

PL/I & Assembler :: RE: PL/I code tuning/Performance improvement

December 4, 2016, 10:35 pm
$
0
0
Author: Bill Woodger
Subject: Reply to: PL/I code tuning/Performance improvement
Posted: Mon Dec 05, 2016 12:05 pm (GMT 5.5)

What's your specific problem, and are you able to "profile" it to know where it is occuring?
↧

SYNCSORT :: RE: syncsort: copy lines after the keyword

December 4, 2016, 11:08 pm
$
0
0
Author: shreya19
Posted: Mon Dec 05, 2016 12:38 pm (GMT 5.5)

Thanks, I got that working icon_smile.gif

Now, if I want to copy a group the begins with 'AB' at 1st position and should end when another 'AB' is found at 1st position.
and 5th row has a word "XYZ" at 10th column.
Can this be achieved? Any hints will be of help.
↧

SYNCSORT :: RE: syncsort: copy lines after the keyword

December 5, 2016, 1:01 am
$
0
0
Author: Bill Woodger
Subject: Reply to: syncsort: copy lines after the keyword
Posted: Mon Dec 05, 2016 2:31 pm (GMT 5.5)

Update a sequence number when it is AB, use KEYBEGIN.

If you get stuck, post what code you have, representative sample input, expected output and what you get.
↧
↧

PL/I & Assembler :: RE: PL/I code tuning/Performance improvement

December 5, 2016, 1:08 am
$
0
0
Author: Nic Clouston
Posted: Mon Dec 05, 2016 2:38 pm (GMT 5.5)

Use 'ALIGNED' and 'REORDER'. Make the most used code the targt if IF/THEN/ELSE e.g.
Code:
IF not an abort condition
THEN some code
ELSE abort


instead of
Code:
IF abort condition
THEN abort
ELSE some code


The same for SWITCH.

Avoid DATA CONVERSION WILL BE DONE BY SUB-ROUTINE CALL messages - move your data through the datatypes eg CHAR-> PIC -> FIXED DEC.

That is just some of the simpler things that should be done. There was an entire document on the subject from IBM - but it may have been Internal Use Only. I am no longer able to find my copy.
_________________
Regards
Nic
↧

PL/I & Assembler :: RE: PL/I code tuning/Performance improvement

December 5, 2016, 1:40 am
$
0
0
Author: Virendra Shambharkar
Subject: Reply to: PL/I code tuning/Performance improvement
Posted: Mon Dec 05, 2016 3:10 pm (GMT 5.5)

Thanks a lot Nic.
_________________
Virendra Shambharkar
↧

COBOL Programming :: How to move a long alphanumeric data items to another.

December 5, 2016, 6:21 am
$
0
0
Author: lind sh
Subject: How to move a long alphanumeric data items to another.
Posted: Mon Dec 05, 2016 7:51 pm (GMT 5.5)

Dear friends
I want to move an alphanumeric field with the length of 8000 to another one.
but my CICS take abend ASRA. When I define my variable with the length of 5000 , there is no problem.
My code definition if following:
Code:


       WORKING-STORAGE SECTION.                         
       01 WS-DIS-UOWT-TABLE.                       
           05 WS-DIS-UOWT-ROWS OCCURS 100 TIMES.   
               10 WS-DIS-UOWT-REC-COL PIC X(80).   

       LINKAGE SECTION.
       01  DFHCOMMAREA.
               03 R-WS-DIS-UOWT-TABLE    PIC X(8000).

       PROCEDURE DIVISION.                   
      *#-------------------------------------
       A0000-MAIN-SECT-0000  SECTION.       

           MOVE WS-DIS-UOWT-TABLE TO R-WS-DIS-UOWT-TABLE.
           EXEC CICS RETURN  END-EXEC.   

       A0000-MAIN-SECT-0000-EXIT.           
           EXIT.                             



Content of WS-DIS-UOWT-TABLE was filled by another section and now I want to move it to the R-WS-DIS-UOWT-TABLE of commearea.
Is there any thing false here?
↧
Search

COBOL Programming :: RE: How to move a long alphanumeric data items to another.

December 5, 2016, 6:32 am
$
0
0
Author: Robert Sample
Subject: Reply to: How to move a long alphanumeric data items to another.
Posted: Mon Dec 05, 2016 8:02 pm (GMT 5.5)

I suspect that you're not getting exactly 8000 bytes in WS-DIS-UOWT-TABLE; that could certainly cause issues.
_________________
TANSTAAFL

The first rule of code reuse is that the code needs to be worth re-using.

"We should forget about small efficiencies, say about 97% of the time: premature optimization is the root of all evil." -- Donald Knuth
↧
↧

COBOL Programming :: RE: How to move a long alphanumeric data items to another.

December 5, 2016, 6:41 am
$
0
0
Author: Marso
Subject: Reply to: How to move a long alphanumeric data items to another.
Posted: Mon Dec 05, 2016 8:11 pm (GMT 5.5)

Check the calling program: it most certainly did not provide an 8000 bytes area, and CICS is just preventing a storage violation.
(Assuming transaction isolation is active)
↧

IMS DB/DC :: RE: Can anybody provide a sample PL/1-IMS DB/DC PGM

December 5, 2016, 10:26 am
$
0
0
Author: johnsjames
Posted: Mon Dec 05, 2016 11:56 pm (GMT 5.5)

Many thanks for that Enrico, very useful, kindest regards.
↧

COBOL Programming :: RE: How to move a long alphanumeric data items to another.

December 5, 2016, 12:07 pm
$
0
0
Author: Robert Sample
Posted: Tue Dec 06, 2016 1:37 am (GMT 5.5)

Quote:
Is there any thing false here?
Looking at your post again, definitely there's falseness! For starters, you did not say if this program is being invoked by a terminal transaction code, as an interval started background transaction, from a CICS LINK or XCTL, or as a COBOL CALL statement. The reason the type of invocation makes a difference is that variables defined in the LINKAGE SECTION do not have memory allocated in the program -- the memory must come from some other source. For CICS programs, the usual source is the calling program's WORKING-STORAGE via the DFHCOMMAREA passed by the EXEC CICS LINK or XCTL (or by the memory passed by the USING on the CALL COBOL verb) but the memory could also be obtained via EXEC CICS GETMAIN.

If the source is from the calling program, what size was the passed DFHCOMMAREA? If the DFHCOMMAREA passed by the calling program is at least 5000 bytes but less than 8000 bytes, then the behavior you described would occur -- a 5000-byte MOVE would work fine (since the LINKAGE SECTION data has at least 5000 bytes) but an 8000-byte MOVE would fail (since the LINKAGE SECTION variable is less than 8000 bytes long). As Marso mentioned, CICS has specific checks to ensure programs do not attempt to use more memory than they have allocated.

Note that COBOL subprograms have PROCEDURE DIVISION USING <linkage variable(s)> to indicate that the LINKAGE SECTION variables are defined from the calling program -- CICS inserts the USING if you don't code for it.
_________________
TANSTAAFL

The first rule of code reuse is that the code needs to be worth re-using.

"We should forget about small efficiencies, say about 97% of the time: premature optimization is the root of all evil." -- Donald Knuth
↧

COBOL Programming :: RE: How to move a long alphanumeric data items to another.

December 5, 2016, 1:53 pm
$
0
0
Author: lind sh
Posted: Tue Dec 06, 2016 3:23 am (GMT 5.5)

Dear Robert
There is same problem even if I define R-WS-DIS-UOWT-TABLE in WORKING STORAGE SECTION of this program. So I think this problem is not related to LINKAGE SECTION.
I want to know Is there any limitation in MOVE verb or not.
Is there any other techniques to move large amount of alphanumeric data to anohere one?
Best regards.
↧
↧

COBOL Programming :: RE: How to move a long alphanumeric data items to another.

December 5, 2016, 2:49 pm
$
0
0
Author: Robert Sample
Posted: Tue Dec 06, 2016 4:19 am (GMT 5.5)

The limits of the compiler are described in Appendix B of the Enterprise COBOL Language Reference manual. The 6.1 version of this manual says MOVE has no limit.

Your problem is related to LINKAGE SECTION, DFHCOMMAREA, or something in CICS -- it has nothing to do with the MOVE statement.
Quote:
Is there any other techniques to move large amount of alphanumeric data to anohere one?
In COBOL, this is done with the MOVE statement. Do not attempt to find some way around your problem by avoiding the MOVE statement -- figure out what the REAL problem is and address it.
_________________
TANSTAAFL

The first rule of code reuse is that the code needs to be worth re-using.

"We should forget about small efficiencies, say about 97% of the time: premature optimization is the root of all evil." -- Donald Knuth
↧

TSO/ISPF :: Is the 'prompt' data for the DSLIST panel stored anywhere?

December 5, 2016, 3:08 pm
$
0
0
Author: Willy Jensen
Subject: Is the 'prompt' data for the DSLIST panel stored anywhere?
Posted: Tue Dec 06, 2016 4:38 am (GMT 5.5)

Or is otherwise retrievable?
Looking at the DSLIST memberlist screen (3.4 then M).
If I enter a command name of mine in the line command field of the member list and some data in the Prompt field, my command gets the dataset- and member name returned, but not the prompt data.
There are plenty of automatic variables for the dataset list screen, but none for the member list, except from those inherited from the dataset list.
Any ideas of how to pass parameters to a command from the member list screen?
_________________
WJ
↧
Search

TSO/ISPF :: RE: Is the 'prompt' data for the DSLIST panel stored anywhere?

December 5, 2016, 5:00 pm
$
0
0
Author: steve-myers
Posted: Tue Dec 06, 2016 6:30 am (GMT 5.5)

I presume you're talking about this -
Code:
           Name     Prompt        Alias-of     Size      TTR     AC   AM   RM
_________ SMF1415                            000042A8   000004   00    31   24
_________ TEMPNAME                           000042A8   00000C   00    31   24

The primary use of the PROMPT here is for the RENAME function, where you supply a new member name. For example -
Code:
           Name     Prompt        Alias-of     Size      TTR     AC   AM   RM
_________ SMF1415                            000042A8   000004   00    31   24
r________ TEMPNAME test                      000042A8   00000C   00    31   24
Just for the H of it I tried one of my commands -
Code:
           Name     Prompt        Alias-of     Size      TTR     AC   AM   RM
_________ SMF1415                            000042A8   000004   00    31   24
lmattr___ TEMPNAME nomap                     000042A8   00000C   00    31   24

The generated command appeared to be lmattr 'data-set-name(TEMPNAME)'

I'd bet a CLIST or Rexx exec could obtain the PROMPT text, or even a properly written line mode command, but there does not seem to be a way to get the prompt text to a command line.
↧

SYNCSORT :: RE: syncsort: copy lines after the keyword

December 5, 2016, 8:06 pm
$
0
0
Author: shreya19
Subject: na
Posted: Tue Dec 06, 2016 9:36 am (GMT 5.5)

I got the below sequence numbers assigned using the code

Code:
SORT FIELDS=COPY                           
OUTREC IFTHEN=(WHEN=GROUP,                 
             BEGIN=(1,2,CH,EQ,C'AB'),     
             PUSH=(31:ID=1))               
OUTFIL BUILD=(1,30)


Code:
AB                        1
Group data 1         1
Group data 1 ABC  1
Group data 1         1
Group data 1         1

AB                        2
Group data 2         2
Group data 2         2
Group data 2         2
Group data 2         2


Now I want to display only those groups having ABC at (14,3) on any of the rows.
Stuck on how to get this done.

Code'd
↧
↧

COBOL Programming :: RE: How to move a long alphanumeric data items to another.

December 5, 2016, 9:52 pm
$
0
0
Author: lind sh
Posted: Tue Dec 06, 2016 11:22 am (GMT 5.5)

Thanks Robert. icon_wink.gif
↧

SYNCSORT :: RE: syncsort: copy lines after the keyword

December 6, 2016, 2:06 am
$
0
0
Author: Bill Woodger
Subject: Reply to: syncsort: copy lines after the keyword
Posted: Tue Dec 06, 2016 3:36 pm (GMT 5.5)

No you can identify the different groups which start with AB, yes?
↧

SYNCSORT :: RE: syncsort: copy lines after the keyword

December 6, 2016, 2:27 am
$
0
0
Author: shreya19
Posted: Tue Dec 06, 2016 3:57 pm (GMT 5.5)

yes, I got the sequence numbers assigned as above.
stuck at the next step
↧
Viewing all 8500 articles
Browse latest View live
Search