September 1, 2016, 12:31 am
Author:
amitc23
Subject: Problem with GETMAIN command
Posted: Thu Sep 01, 2016 1:01 pm (GMT 5.5)
Hi
I am getting an issue with the GETMAIN command. I am calling the LAN interface multiple times to send some data out. For this module issues GETMAIN command to acquire buffer area as follows:
| Code: |
Compute NewEibcalen2 = Eibcalen + Length Newcommarea2First.
DISPLAY 'NewEibcalen2 : ' NewEibcalen2.
DISPLAY 'Eibcalen : ' Eibcalen.
DISPLAY 'Newcommarea2First : ' Newcommarea2First.
DISPLAY 'DISPLAY 1 **************************'
EXEC CICS GETMAIN
SET(ADDRESS OF NewCommarea2)
FLENGTH(NewEibcalen2)
INITIMG(NullByte)
NOHANDLE
END-EXEC.
DISPLAY 'EIBRESP:'EIBRESP.
If Debug2
if EibResp > Zero
DISPLAY EibTaskN '*' 'GETMAIN(1) EIBRESP=' EibResp
|
This is being done around 160 times, however after around 145th occurrence, this stops working.
The display in log is as follows :
| Code: |
NewEibcalen2 : 0000032509
Eibcalen : 32500
Newcommarea2First :
DISPLAY 1 **************************
0013005*Blocking Reads
0013005*I waited 00000 Cycles
|
The displays before this are as follows:
| Code: |
NewEibcalen2 : 0000032509
Eibcalen : 32500
Newcommarea2First :
DISPLAY 1 **************************
EIBRESP:0000000000
DISPLAY 2 **************************
|
Any suggestions ?
Thanks
↧
September 1, 2016, 12:40 am
Author:
mrsidhu12
Subject: I am unable to use SWAPBAR ON command on my ISPF.
Posted: Thu Sep 01, 2016 1:10 pm (GMT 5.5)
Each time i execute command SWAPBAR on command line, I get message INVALID OPTION. In my previous company i was able to use it. Is there any solution for it?
_________________
Harminder Singh Sidhu
FIS
↧
↧
September 1, 2016, 12:50 am
Author:
enrico-sorichetti
Subject: Reply to: I am unable to use SWAPBAR ON command on my ISPF.
Posted: Thu Sep 01, 2016 1:20 pm (GMT 5.5)
since we know nothing about Your environment setup, we cannot give any advice
ASK YOUR SUPPORT
_________________
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]()
↧
September 1, 2016, 12:54 am
↧
September 1, 2016, 12:57 am
Author:
PeterHolland
Posted: Thu Sep 01, 2016 1:27 pm (GMT 5.5)
FREEMAIN?
↧
↧
September 1, 2016, 1:03 am
Author:
enrico-sorichetti
Subject: Reply to: Problem with GETMAIN command
Posted: Thu Sep 01, 2016 1:33 pm (GMT 5.5)
| Quote: |
| ... however after around 145th occurrence, this stops working. |
until the TS tells HOW it stops working we are just wasting time guessing
_________________
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]()
↧
September 1, 2016, 1:04 am
Author:
amitc23
Posted: Thu Sep 01, 2016 1:34 pm (GMT 5.5)
It is there after connectio to sockets, writes and then closes.
| Code: |
1999EndTransaction.
***************************************************************
FREE MAIN STORAGE USED *
***************************************************************
EXEC CICS FREEMAIN
DATA(NewCommarea2)
NOHANDLE
END-EXEC.
|
↧
September 1, 2016, 1:47 am
Author:
mrsidhu12
Subject: SCRNAME not working on my mainframe?
Posted: Thu Sep 01, 2016 2:17 pm (GMT 5.5)
Thanks in advance folks.
Earlier SWAPBAR command was not working. so i found a rexx program and i can see the bar.
REXX PGM:
/*REXX*/
ADDRESS ISPEXEC
"SELECT PGM(ISPTL) PARM(&ZPARM)"
Executed this from command line as: TSO EXEC 'PS FILE NAME'.
Now i am trying to execute SCRNAME ABC command. It shows SCRNAME is invalid option. Is there any way to do it?
All i am trying to change screen names on SWAP BAR.
MY ISPF is 7.1. I am using COBOL 5.1
_________________
Harminder Singh Sidhu
FIS
↧
September 1, 2016, 1:49 am
Author:
mrsidhu12
Subject: reorder screeNS using SWAP LIST?
Posted: Thu Sep 01, 2016 2:19 pm (GMT 5.5)
Can you suggest?
After executing swap list from command line. For ex i have opened several screens ex. JCL on screen 2,PROCLIB on screen 4. I just want to bring JCL to Screen1, Proclib to screen 2.
Thanks in advance.
_________________
Harminder Singh Sidhu
FIS
↧
↧
September 1, 2016, 2:55 am
Author:
mistah kurtz
Posted: Thu Sep 01, 2016 3:25 pm (GMT 5.5)
From the "Identifier" pull-down on ISPF Settings screen, select "Screen name...", the Screen Name Identifier panel will be displayed.
| Code: |
âââââââââââââââââââ ISPF Settings âââââââââââââââââââ
â SETTINGS Screen Name Identifier â
â â
â Enter "/" to select option â
â / Display screen name â
â â
â Default setting for screen name â
â 1 1. Off â
â 2. On â
â â
â â
âââââââââââââââââââââââââââââââââââââââââââââââââââââ |
If you select the "Display screen identifier" option, the screen identifier is set to On. This setting only applies to the current ISPF session. To retain the setting across ISPF sessions, select "Default setting for screen identifier".
↧
September 1, 2016, 3:33 am
Author:
mrsidhu12
Subject: Reply to: SCRNAME not working on my mainframe?
Posted: Thu Sep 01, 2016 4:03 pm (GMT 5.5)
Mistah : I am talking about SCRNAME command for command bar. This will change screen names as per our requirement, which are displayed on swapbar
_________________
Harminder Singh Sidhu
FIS
↧
September 1, 2016, 3:48 am
Author:
mistah kurtz
Posted: Thu Sep 01, 2016 4:18 pm (GMT 5.5)
Did you ensure that screen name is ON, before trying SCRNAME ABC??
↧
September 1, 2016, 3:51 am
Author:
mrsidhu12
Subject: Reply to: SCRNAME not working on my mainframe?
Posted: Thu Sep 01, 2016 4:21 pm (GMT 5.5)
Yes screen name is on. Anyways the SCREEN NAME you are talking about is an option in IDENTIFIER tab under settings. This will only show screen name on top of screen.
This will not allow us to change the screen names as per our wish
_________________
Harminder Singh Sidhu
FIS
↧
↧
September 1, 2016, 3:52 am
Author:
mistah kurtz
Posted: Thu Sep 01, 2016 4:22 pm (GMT 5.5)
In that case, its your environment specific issue. Check with your site support team.
↧
September 1, 2016, 4:22 am
Author:
Pandora-Box
Posted: Thu Sep 01, 2016 4:52 pm (GMT 5.5)
You need to close your existing screens and try them.
_________________
To understand recursion, You must understand recursion
Pandora ![icon_smile.gif]()
↧
September 1, 2016, 5:49 am
Author:
enrico-sorichetti
Subject: Reply to: reorder screeNS using SWAP LIST?
Posted: Thu Sep 01, 2016 6:19 pm (GMT 5.5)
given the number of problems You are facing with Your current ISPF environment
I again suggest to get in touch with Your support to find out about the STANDARDS enforced in Your organisation
_________________
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]()
↧
September 1, 2016, 5:58 am
Author:
Robert Sample
Posted: Thu Sep 01, 2016 6:28 pm (GMT 5.5)
Since you have control over the screens, why don't you just close screen 1 and screen 3 to leave JCL as screen 1 and PROCLIB as screen 2?
Or maybe just open JCL first, PROCLIB second, and so forth?
_________________
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
↧
↧
September 1, 2016, 7:06 am
Author:
dudenithy
Subject: Wildcard logic in COBOL
Posted: Thu Sep 01, 2016 7:36 pm (GMT 5.5)
Hello all,
I would like to know is there any efficient way of matching a value against a Parameter with multiple Wildcard mask "*"? For Parameter with multiple wildcard characters "?", and for a parameter with single symbol "*", it is simple. Now I have a challenge to cater multiple "*" in a parameter.
Example: 12*5*78. Values with 12578, 123578, 12345678 are accepted, but not like 123478, 125789, 1234567. Wildcard Symbol can be placed at any place of a value (*1234*, 12*5*78*9*, etc).
I have tried checking the efficient pseudo code, but couldn't get it ![icon_eek.gif]()
.
Could anyone help or suggest? Thanks.
↧
September 1, 2016, 8:46 am
Author:
enrico-sorichetti
Subject: Reply to: Wildcard logic in COBOL
Posted: Thu Sep 01, 2016 9:16 pm (GMT 5.5)
the logic is the logic, DOES NOT DEPEND on the programming language
here is a sample in C
| Code: |
/*
a ? matches a single char
a * matches 0 more than 0 chars
*/
#include "stdlib.h"
#include "stdio.h"
int wc(const char *mask, const char *string) {
const char *cp = NULL, *mp = NULL;
while ((*string) && (*mask != '*')) {
if ((*mask != *string) && (*mask != '?')) {
return 0;
}
mask++;
string++;
}
while (*string) {
if (*mask == '*') {
if (!*++mask) {
return 1;
}
mp = mask;
cp = string+1;
}
else
if ((*mask == *string) || (*mask == '?')) {
mask++;
string++;
}
else {
mask = mp;
string = cp++;
}
}
while (*mask == '*') {
mask++;
}
return !*mask;
}
|
_________________
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]()
↧
September 1, 2016, 9:20 am
Author:
Rohit Umarjikar
Posted: Thu Sep 01, 2016 9:50 pm (GMT 5.5)
| Quote: |
| This is being done around 160 times, however after around 145th occurrence, this stops working. |
Because of what? Talk to CICS Admin and get their help to locate the problem. Are you seeing NOSTG condition occurs?
_________________
Regards,
Rohit Umarjikar
"Knowledge is knowing that a tomato is a fruit, but Wisdom is knowing not to put it in a fruit salad."![icon_razz.gif]()
↧
.