Mainframe Languages

356

Solutions

429

Contributors

There are many computer languages, and they have been evolving from machine language into a more natural way of writing. Languages are generally classified into machine language (direct machine code); assembly (using mnemonics to present the instructions to be translated later into machine language by an assembly program); procedural languages, also known as high-level languages (HLL) (Pascal, FORTRAN, Algol, JCL, COBOL, REXX, PL/I, Basic, and C are common), along with several other types. Mainframe programming is largely done in the procedural languages.

Share tech news, updates, or what's on your mind.

Sign up to Post

What are the parameter types that go in INCLUDE=(??,?,??,EQ,C'??',AND,??,?,??,EQ,C'?')?
0
Note: I'm taking a class.

In this task, how would I deal with an area budget balance for one quarter and why?
T016.txt
I014.txt
T014.txt
0
Note: I'm taking a class.

Would you translate this COBOL code into English? (I.E., explain what's going on)

FD  AREA-REC.
01  AREA-REC-IN.                                                
          05  AREA-IN             PIC X(49).                                
          05  AREA-STATE     PIC X(2).                                
          05  FILLER                PIC X(1).                                
          05  AREA-TYPE       PIC X(1).                                
          05  AREA-Q1           PIC S9(8) COMP-3.                        
          05  AREA-Q2           PIC S9(8) COMP-3.                        
          05  AREA-Q3           PIC S9(8) COMP-3.                        
          05  AREA-Q4           PIC S9(8) COMP-3.                    
          05  FILLER                PIC X(7).
0
Note: I'm taking a class.

I'm trying to change this code such that it gives information for both sent and received the first time and just sent the second time.

What am I doing wrong and why?
NETIO2.txt
0
We currently have a COBOL program that calls an old IBM program to generate a graph using QGDDM.  The receiving IBM program is specific in the parameters it is receiving.  One of the parameters is looking for a three (3) item table that we have in working storage that is coded as binary.  The one that works now is IBM COBOL.  We need to use ILE COBOL because of the new postal barcode can only be handled with ILE.

When we took the current program and compiled with ILE, it gives us an error stating that the array we are sending is not subscripted.  True, we are sending the AX array, which consists of three (3) items.  The current one works because the error is only a warning.  ILE is saying it is a fatal error.  

Each item in the table is described as:

03 FX OCCURS 3 TIMES INDEXED BY F-INDEX PIC S9(5) COMP-4.

Our call looks like this:

   CALL "GDDM" USING CHBATT      
                     FRAME-COUNT
                     FX.        

The error we are getting is:

*  1285  MSGID: LNC2750  SEVERITY: 30  SEQNBR:  102600            
         Message . . . . :   'FX' table item but not subscripted.  

So we get no valid compile.  On the call, we have tried FX (1), but of course it only passes the first of three items.

QUESTION becomes:
How can we pass this array to the receiving program????

Larry

0
BACKGROUND:
  -Platform:  iSeries V5r4
  -Language:  RPG IV (using \free syntax)

Here is what i am trying to do:  
      The first RPG program declares and opens up a SQL cursor by means of "exec" statements.  It will then call the second RPG program.  The second program will try to access the SQL cursor that was opened by the first program.

According to IBM's website there is an option you can choose "*ENDSQL" and "*ENDJOB" for the parameter "CLOSQLCSR" that will keep SQL cursors open.

Question:  How can I get the called program to use the SQL cursor that should already exist in memory?
0
Note: I'm taking a class.

How do I determine the VSAM CLUSTER control interval (CI) size and how many Control Intervals the Control Area (CA) can contain?
T009.txt
I009.txt
job1.txt
job2.txt
0
In this task, a VSAM dataset gets created in making the table. What is that dataset and how is it made?
T014.txt
0
in Z/OS, how do I find the identity of a VCAT catname?
0
In SQL, how would I list columns from a table?
0
Note: I'm taking a class.

Regarding DFSORT, do you know of a reference for its parameters?
0
Disclaimer: I'm taking a class.

In this problem, I'm trying to understand why


free fi(asmin asmout)
allocate fi(asmout) da(*) shr reuse
allocate fi(asmin)  da(part3.data(z196)) shr reuse
call load(pgm1)
/*

isn't working properly.
T020.txt
I020.txt
pgm1.txt
Z196.txt
PGM1CMP.txt
0
Disclaimer: I'm taking a class.

If I were to run LISTC ENT('DATASET') ALL in Z/OS, how do I identify VSAM dataset attributes?

Do you know of any appropriate references on the web?

example output:
CLUSTER ------- ZOS.USSFILE.STUDENTS
     IN-CAT --- CATALOG.ZOS         
     HISTORY                        
        DATASET-OWNER-----(NULL)     CREATION--------2009.158                   
        RELEASE----------------2     EXPIRATION------0000.000                   
        BWO STATUS--------(NULL)     BWO TIMESTAMP-----(NULL)                   
        BWO---------------(NULL)                                                
      PROTECTION-PSWD-----(NULL)     RACF---------------(YES)                   
      ASSOCIATIONS                                                              
        DATA-----ZOS.USSFILE.STUDENTS.DATA                                      
    DATA ------- ZOS.USSFILE.STUDENTS.DATA                                      
      IN-CAT --- CATALOG.ZOS                                                    
      HISTORY                                                                   
        DATASET-OWNER-----(NULL)     CREATION--------2009.158                   
        RELEASE----------------2     EXPIRATION------0000.000                   
        ACCOUNT-INFO-----------------------------------(NULL)                   
      PROTECTION-PSWD-----(NULL)     RACF---------------(YES)                   
      ASSOCIATIONS         

Open in new window

0
Disclaimer: I'm taking a class.

I'm trying to find an error in this COBOL code; this file is related to the items at http://www.experts-exchange.com/Programming/Algorithms/Q_26637173.html.

Do you have any hints?
0
I'm working on the very last step.

My issue here is I'm having trouble getting a table and I'm getting an error:
UndefinedName.PNG
T014.txt
I014.txt
14-Code.txt
0
In this problem, I need to understand how to find whether the Aggregate Name (ZOS.USSFILE.STUDENTS) is a VSAM or a non-VSAM data set.
T012.txt
I012.txt
0
What I need to understand in this item is how to fill in the blanks. Can you explain something about how to deal with them and the machine language involved and/or a reference about them?
T006.txt
I006.txt
T06JOB1.txt
0
I need to make sense of this task in general.

How do I deal with this issue:

"The sort output data set attributes are incompatible with the
reports written by sort program."

and:

"Modify t07job3 ddname subparameter required to allocate a sort output
data set that is compatible with t07job2 sort execution."
T06CTL1.txt
T07JOB3.txt
T07JOB2.txt
I007.txt
T007.txt
T06JOB1.txt
0
What does "ddname SYSPRINT stepname LIST" mean and how do I access it?
t09.txt
T09JOB1.txt
T09JOB2.txt
T009.txt
I009.txt
0
Thats my question.  Is it possible to use "BULK COLLECT" in Pro*Cobol?  I'm trying to speed up a cursor in the program.

Thanks
Jim.
0
What does corr in COBOL means?

move corr xyz in abc to zyx cba

Thanks and regards

Michael
0
I'm trying to print names of schools and their students to a file. JCL is involved, but I think I have that correct. The file I'm looking at is just using the schools with 0 students. Where am I going wrong?
*---------------------------------------------*
      *- The identification division contains the  -*
      *- name (PROGRAM-ID) of the program as well  -*
      *- as some other identifying information.    -*
      *---------------------------------------------*
       IDENTIFICATION DIVISION.                      
       PROGRAM-ID.    COBOL.                         
       AUTHOR.        J. Colt Wright                 
                                                     
      *---------------------------------------------*
      *- The environment division contains the     -*
      *- input-output section where files are      -*
      *- initialized                               -*
      *---------------------------------------------*
                                                     
       ENVIRONMENT DIVISION.                         
      *                                              
       INPUT-OUTPUT SECTION.                         
       FILE-CONTROL.                                 
      *---------------------------------------------*
      *- The SELECT statement associates a file    -*
      *- used by the program (in this case,        -*
      *- Output-File is the file name) with the    -*
      *- DDName it will be 

Open in new window

0
This question is a continuation of http://www.experts-exchange.com/OS/MainFrame_OS/Q_26529025.html. How do I use the panels in Z/OS to set a RACF profile, or how do I do it from the command shell?
0
Does anyone know how to convert the ASCII letter 'A' to the Ascii value 65?

I would like to perform a calculation on the value of the letters entered without using evaluate of nested if statements.  I used to do this in Microfocus cobol using some sort of valueof statement.
0
I'm trying to change permissions of data sets with the permit command in the ISPF Command Shell, but I'm receiving an error like "ICH06004I IBM0428.RACF.UPDATE NOT DEFINED TO RACF." What is going wrong?
0

Mainframe Languages

356

Solutions

429

Contributors

There are many computer languages, and they have been evolving from machine language into a more natural way of writing. Languages are generally classified into machine language (direct machine code); assembly (using mnemonics to present the instructions to be translated later into machine language by an assembly program); procedural languages, also known as high-level languages (HLL) (Pascal, FORTRAN, Algol, JCL, COBOL, REXX, PL/I, Basic, and C are common), along with several other types. Mainframe programming is largely done in the procedural languages.

Top Experts In
Mainframe Languages
<
Monthly
>

No Top Experts for this time period. Answer questions to earn the title!