1,394 questions
0
votes
1
answer
50
views
what is the impact of the point at the end of instruction COBOL
what is the impact of the point at the end of instruction COBOL when i use SECTION. It seem that the end point is very important.
What is the difference between:
SELECT SECTION.
MOVE xxx TO Bbb
...
- 181
0
votes
2
answers
57
views
Is there a way to Call a DB2 store procedure via JCL or SPUFI
I am trying to execute my store procedure below
CREATE PROCEDURE DWR000A.SELECT_PSID_RIZ(
IN P_CONN INT
,IN P_PLNN INT
) ...
- 5
0
votes
2
answers
52
views
Why would a program abend with SQL -927?
We are upgrading our COBOL version from <4.2 to 4.2. I am facing an issue where one job fails because of SQL -927.
The job involves an IMS module and at the end, it calls a DB2 Module.
The last ...
0
votes
0
answers
58
views
Executing DB2 SQL stored procedure via JCL
I am trying to execute SQL db2 stored procedure using DSNTEP2 via JCL.
// SET DATE=241122
/* ...
- 5
1
vote
0
answers
25
views
Why is SYSOUT=* in master scheduler JCL valid if JES2 has not started yet?
In the MSI phase of the IPL, the master scheduler is loaded into the first address space. The master scheduler processing is controlled by JCL, and is usually found in the parmlib member MSTJCLXX. ...
- 205
0
votes
1
answer
108
views
How do I fix status code 90 when opening a file in COBOL
I am experiencing an issue in my COBOL application.
My application produces an error when opening a file in COBOL.
The file that I am trying to open has a fixed block size and
I want to display the ...
- 1
0
votes
1
answer
29
views
Sort group of records by year using dfsort
I am trying to sort group of records by year descending where the key field is the first 10 bytes and the year will be always occuring after '000010YY' as shown below,
I need to sort only the group ...
- 41
0
votes
0
answers
48
views
How to take printscreen from Hostexplorer and paste in MS Word
Good day. I am using Host explorer version 15.0.7 and tried creating a VBA MACRO to take the screenshot from the Mainframe to MS Word Document. As I am a newbie to this Macro, I am looking for ...
0
votes
0
answers
34
views
Teradata FastExport Issue: Incorrect Export Column into Mainframe PS File
I’m trying to export data from a Teradata table into a Mainframe PS file using FastExport, but one of the columns contains a [C] value, and it’s not being exported correctly. Instead of square ...
- 689
1
vote
0
answers
75
views
How do I fix Syncsort OUTFIL TOTAL causing "NO KEYWORDS" error?
I'm converting a buggy REXX exec that does reporting to Syncsort. I confess that I haven't used Syncsort in a very long time. There's a SORTIN and SORTOUT, the input is fixed length columns, I'm ...
- 11
1
vote
1
answer
121
views
Looking for ADCD cckd files for download for hercules install
I'm trying to setup a Hercules Mainframe emulator, but can't find the ADCD / cckd files needed to complete the setup. Anyone know where I can find them for download.
1
vote
1
answer
149
views
REXX in Mainframe TSO/ISPF how to capture JES2 Compile Output
My Rexx program accepts a value from the TSO command line when executing my Rexx program; the value is COBOL program name and then my Rexx program executes a JCL to compile it. How can I capture or ...
- 11
0
votes
1
answer
35
views
CA Endevor Mainframe - is there any option available for Freeze the Package in Endevor like Changeman
CA Endevor Mainframe - is there any option available for Freeze the Package in Endevor like Changeman
I know the we can do the following steps in PACKAGE such as CAST, REVIEW, Approve, Execute the ...
- 11
0
votes
1
answer
47
views
Error in replacing a tag information in a variable block XML file using DFSORT in JCL. ICE007A 1 SYNTAX ERROR
I have wrote a JCL using DFSORT to replace a tag information in a variable block XML file. the tag can appear in any place and N number of times.
Below is the JCL
jobcard
//SORT01 EXEC PGM=SORT
//...
- 1
0
votes
3
answers
88
views
INITIALIZE PACKED-DECIMAL field on DB2 Query
I'm using a PACKED-DECIMAL field COMP-3 on the WHERE clause on a DB2 QUERY.
When i initialize the zone and i want to display it: It shows: 0404040404
==> It means that the field contains LOW-VALUE
...
- 181
0
votes
1
answer
60
views
Find the repeated occurrence in a field using sort
Input:
----+----1----+----2----+
0112 CHENNAI
0104 HARRISON
0105 HARINI KRISHNAN
Output:
----+----1----+----2----+----3----+
0112 CHENNAI N
...
- 11
0
votes
2
answers
218
views
ROUNDED statement in COBOL
I need to write a code to round the 4 decimal data to 2 decimal data.
VAR-A PIC S9(15)V9(4) VALUE 1111.1294
VAR-B PIC S9(15)V99 VALUE ZERO.
when i MOVE VAR-A to VAR-B the expected value is 1111.13 ...
- 1
0
votes
0
answers
28
views
flask url not showing in command line on importing zowe modules
I'm working on a Flask application which uses Zowe SDK to submit mainframe batch job & download o/p dataset.
I'm importing below modules.
from zowe.zos_jobs_for_zowe_sdk import Jobs
from zowe....
- 89
1
vote
2
answers
189
views
Error compiling COBOL program with sequential files
I have this COBOL program in my mainframe:
IDENTIFICATION DIVISION.
PROGRAM-ID. TEST2.
...
- 23
1
vote
2
answers
183
views
Can't create a member in a PDS using a JCL
I'm trying to create a member in an existing PDS but it keeps sending this code:
UNIDENTIFIED KEYWORD ON THE DD DUMMY STATEMENT. I'm using this code:
...
//PASO1 EXEC PGM=IEBGENER ...
- 23
3
votes
1
answer
151
views
Trying to compare 2 files in a batch job
I have a JCL job as follows trying to compare the contents of a dataset with an HFS file.
//CHKOUTP EXEC PGM=ISRSUPC,PARM=(DELTAL,FILECMP)
//NEWDD DD DSN=&&TMP1,DISP=(...
- 7,605
0
votes
1
answer
125
views
Using sort for reformatting the variable length records
I have a input with comma delimited records
Each field will be of different variables length
Example
5467,2,567.82
243,10,856
Now I want output to be written as below first field length in the output ...
- 1
0
votes
1
answer
62
views
pl1 ROUND function for negative precision
In pl1 ROUND(expression1, expression2) function, if expression2 is negative how does rounding happen?
For VALC=ROUND(17.126,-1) , what would be the result?
- 89
0
votes
0
answers
82
views
hex representation of char string in PL/1
In PL/1 , 'C1C2C3'X is the hexadecimal representation of the character string 'ABC'.
Is this correct? If yes, how is this arrived at?
- 89
1
vote
0
answers
43
views
binary constant value in PL/1 [duplicate]
Below is a binary constant declaration in Mainframe PL/1. Please tell me how to calculate the numeric value in WAVE_LTH.
*DCL WAVE_LTH FLOAT BINARY (21)
WAVE_LTH=11001E-10B*
- 89
0
votes
1
answer
138
views
Add date at the beginning of every line in my dataset in JCL
I would like to achieve the following thing.
I need to add the date in the following format (YYYYMMDD) to my dataset (length is 300 bytes) at the beginning of every line.
Therefore, I already have ...
- 657
-1
votes
1
answer
211
views
Required sort jcl to copy last 3 days data from date format mmddyyyy in alphanumeric variable
I have input file with 10100 RL with date in MMDDYYYY format at 7033 position which is picx(08), I want to copy only last three days data.
I tried so many date functions but did not work.
0
votes
2
answers
169
views
Reading dataset with HEX ON
I'm searching how to visualize and read data manually which is declared like this:
04 DATE PICTURE 9(9) COMPUTATIONAL-3.
One of my colleagues said to me to put HEX ON
When I put the command HEX ON,...
- 181
0
votes
1
answer
160
views
How to create load modules from C code in IBM z/OS
I'm trying to compile load modules from C code on IBM z/OS using xlc compiler.
So far I have just shared object like library
xlc -c src/func1.c -o obj/func1.o
xlc -o lib/func1.o obj/func1.o
and I can ...
- 484
0
votes
1
answer
76
views
How to use Rexx in Eclipse
How to access Rexx using Eclipse. We are using Eclipse to access to mainframe, so all the Rexx tools we created in Z/OS is wasted, so trying to see any options to use those Rexx programs?
Googled and ...
- 23
1
vote
1
answer
71
views
ICETOOL returns no records
I have a requirement to copy all records with 'AB0' or 'AB9' starting at column position 8.
My job always returns an empty dataset.
Any pointers to solve this will be of much help!
- 89
0
votes
3
answers
436
views
How to modify a JCL variable inside a JCL procedure then use it in another step or another procedure
A procedure that has one step is used several times in a job, it is necessary that this step is executed only once in the whole job and the rest of the places are flushed.
also I don't want to change ...
-2
votes
2
answers
331
views
Where can I download ECI resource adapter (cicseci.rar). Unable to find out it in IBM portal
I want to use JCA(Java connector architecture) and get data from Mainframe system using IBM provided Resource adapter(.rar) file. I could not find out this file in IBM portal. Since it is an old way ...
0
votes
1
answer
882
views
Mainframe Programming Sorting, OUTFIL REMOVECC,NODETAIL
The program basically sorts the datas. And remove the duplications considering the range of 5-29 characters.
I am trying to sort some values on Mainframe accordingly :
SORT FIELDS=(5,24,CH,A,45,10,CH,...
- 818
0
votes
2
answers
156
views
Z/OS Cobol 6.3 copy: how to include only a chunk?
I need this information: I have a Cobol 6.3 program “PROGRAM1” that includes a copy statement COPY1. COPY1 contains only data definition, it can be included in WORKING STORAGE or LINKAGE SECTION. I ...
- 1
1
vote
1
answer
47
views
SHA256 Checksum of a File transmitted from Mainframe to Azure
I have SFTPed a file from Mainframe to Azure in ASCII Mode. I want to comapte the checksum of the Mainframe file against the file in Azure.How can I do that?
I can calcualte the SHA256 of a File in ...
- 55
0
votes
1
answer
536
views
open fetch and close cursor DB2
I'm using DB2 cursors. My table contains 4 rows. Bellow is the list of instructions that i have done on my code:
1- OPEN CURSOR
2- FETCH CURSOR
3- FETCH CURSOR
4- CLOSE CURSOR
5- OPEN CURSOR
6- FETCH ...
- 181
0
votes
1
answer
368
views
How to "stack" an ISPF command?
I have this rexx exec:
/* rexx */
address ispexec
"select pgm(isrdslst) parm(UDL ~)"
And I would lijke to have it invoke the / ...
- 698
-4
votes
1
answer
157
views
DB2 contention issues
We are experiencing serious performance degrades and sometimes outages due to DB2 contention issues.
Covol DB2 batch program is having contentions with distributed threads from Stored procedures ...
2
votes
3
answers
183
views
IBM z/OS TSO ISPF Editor Cancel command - how to add "Are You Sure?" query dialog
Using the ISPF Editor on z/OS (MVS) it happened several times to me that I entered then "can" (cancel) line command when I actually meant "reset". This cancelled my edit session so ...
- 194
1
vote
2
answers
207
views
FIlling a zone with S9(5)V9(8) COMP-3
I want to fill a file with this type of data.
01 FILE-LINE.
05 VAR1 PIC S9(5)V9(8) COMP-3.
05 VAR2 PIC S9(15)V99 COMP-3.
Can anyone help me to fill this lines
When i put All '0' on ...
- 181
0
votes
2
answers
192
views
Mainframe monitoring using Zabbix
I've been working on setting up a monitoring solution for IBM Z mainframes using Zabbix. However, after conducting thorough searches, I haven't been able to find suitable agents or resources to link ...
1
vote
2
answers
51
views
How to programmatically overwrite DCI 2.0 policy via REXX or JCL?
as the title states we run DCI 2.0 on our mainframes to control MSU min and max capacity for our LPARs. I would like to write an automation that increases the maximum MSU for certain LPARs based on ...
- 13
2
votes
1
answer
117
views
SEARCH ALL with a key PIC XX
I'm using SERACH ALL on a table with a key with a type PIC X(02)
Bellow is my table declaration
01 WS-VAL PIC X(02).
01 WS-TABLE.
03 WS-TABLE-LINE OCCURS 400 TIMES
...
- 181
0
votes
0
answers
178
views
Why is this COBOL code failing to compile?
I'm trying to get this code to compile and I continue to get the same error at the same location. I will show the error I'm getting when I compile it along with the code where it's erroring out.
Error:...
- 27
-1
votes
3
answers
745
views
Use MVS Dsname conventions. Mainframe name convention while downloading ftp using python
I used the following codes but the error message is as follows. I dont know how to fix it. THis is the error. '501 Invalid data set name "Qxxx.Pxxx.xxxxxx.xxxx.xxx.xxxxx". Use MVS Dsname ...
- 3
0
votes
2
answers
121
views
COBOL issue (Compiling and executing)
I am receiving an error from the compiler when compiling my COBOL program. Included below is the compiler output followed by by source code.
The error is:
==000061==> IGYPS2143-S Expected a ...
- 27
0
votes
1
answer
67
views
Behaviour of "PERFORM Paragraph THRU paragraph-exit UNTIL end"
i would like to know the behaviour of this statements bellow:
SET NOK TO TRUE
PERFORM PARAGRAPHE-1 THRU PARAGRAPHE-2 UNTIL NOK
Is paragraphs from PARAGRAPHE-1 until PARAGRAPHE-2 are executed or no ?
- 181
1
vote
1
answer
166
views
Where does a CICS region keep it's transaction definitions
Unable to really find this information online anywhere, maybe someone here could point me to the right manual. Essentially I am curious if the Transaction Definitions are keep in memory of some kind? ...
0
votes
2
answers
576
views
Connect to Db2 on z/OS from Windows. Connection failed due to a license error
I've installed Db2 Connect in Windows and I load the license successful:
Product name: "DB2 Connect Enterprise Edition"
License type: "Client ...
- 33