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

All Other Mainframe Topics :: RE: resume binary ftp in z/os

January 23, 2017, 5:04 am
$
0
0
Author: Robert Sample
Posted: Mon Jan 23, 2017 6:34 pm (GMT 5.5)

Quote:
So, what is your idea for this ftp situation?
Talk to your site support group. You have not provided very much information so there's not much for us to help you with. Your site support group should be able to do things like trace the route your FTP is taking to find out where the network instability comes from and therefore how to 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
↧
Search

DFSORT/ICETOOL :: RE: Sorting group data

January 23, 2017, 7:54 am
$
0
0
Author: Arun Raj
Posted: Mon Jan 23, 2017 9:24 pm (GMT 5.5)

Just curious - Will you always have the '016' and '015' records as the first 2 records in the ACTNO group, if at all they are present, or no.
_________________
Arun
----------------------------------------------------------------------------------------------------
Love is like an hourglass, with the heart filling up as the brain empties. -Jules Renard
↧
↧

All Other Mainframe Topics :: RE: CICS transaction slow response time

January 23, 2017, 11:43 am
$
0
0
Author: vasanthz
Posted: Tue Jan 24, 2017 1:13 am (GMT 5.5)

Hi meykh2014,

This issue happened only during a specific interval and did not happen again. So we were unable to reproduce the same delayed response time for the transaction.
_________________
Set all passwords to "incorrect", that way when I forget it will tell "Your password is incorrect"
- Jagermeister
↧

CICS :: Dynamic array request/response containers

January 23, 2017, 10:07 pm
$
0
0
Author: Suja.Sai
Subject: Dynamic array request/response containers
Posted: Tue Jan 24, 2017 11:37 am (GMT 5.5)

Hi,

We have the below requirement.

The input request container has the count of number of records passed in the input request array container. For each input record fetched, we have to query the table and if the record is found in the table, then we have to put it in the response array container.

The response array container is declared as an unbounded dynamic array.

We do not have the count of the output records until we process the final input record. For each input record, there may/maynot be an output record.


Please suggest if the below approach is ok to populate the dynamic response array container?

Do the below processing for each record fetched from the table...
1) Calculate the dynamic response array length for the fetched record
2) GetMain
3) Populate the response array container
4) Put the response array container
5) FreeMain

I doubt if it is a good practice to use getmain and freemain frequently in a loop. Please let me know if there are other better ways to achieve this.


Please help.

Thanks,
Suja
↧

CICS :: RE: Dynamic array request/response containers

January 23, 2017, 10:21 pm
$
0
0
Author: Rohit Umarjikar
Posted: Tue Jan 24, 2017 11:51 am (GMT 5.5)

How if you build the output of all into cobol array and from there then into the response array containers?
_________________
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
↧
↧

CICS :: RE: Dynamic array request/response containers

January 23, 2017, 10:47 pm
$
0
0
Author: Suja.Sai
Posted: Tue Jan 24, 2017 12:17 pm (GMT 5.5)

Is there any other way to do this other than using a cobol internal array?
↧

All Other Mainframe Topics :: RE: resume binary ftp in z/os

January 23, 2017, 11:16 pm
$
0
0
Author: meykh2014
Posted: Tue Jan 24, 2017 12:46 pm (GMT 5.5)

Robert Sample wrote:
Quote:
So, what is your idea for this ftp situation?
Talk to your site support group. You have not provided very much information so there's not much for us to help you with. Your site support group should be able to do things like trace the route your FTP is taking to find out where the network instability comes from and therefore how to address it.


Thank you. Finally, I preferred to move the file to local linux system and ftp from it to destination. In this plan we have "resume capability" and network instability isn't matter. But the question is still remains.
How can i transfer binary file with RESUME capability from z/OS system to LUW systems when the RESTART and SRESTART not worked for EBCDIC?
↧

CICS :: MAX-RC 88 and Return code 606 in DFH0CXCC.

January 23, 2017, 11:53 pm
$
0
0
Author: lind sh
Subject: MAX-RC 88 and Return code 606 in DFH0CXCC.
Posted: Tue Jan 24, 2017 1:23 pm (GMT 5.5)

Dear friends
I am running the JCL :
Code:
//EXCI    JOB NOTIFY=&SYSUID,CLASS=A,TIME=1440,REGION=100M         
//*===============================================================
//*    JCL to execute an external CICS interface client program   
//*===============================================================
//EXCI10  EXEC PGM=DFH0CXCC,PARM=(CICSAPL1,CICSUSER)               
//STEPLIB   DD DISP=SHR,DSN=CICSTS41.CICS.SDFHEXCI                 
//          DD DISP=SHR,DSN=CICSTS41.CICS.SDFHLOAD                 
//SYSPRINT  DD SYSOUT=*                                           
//SYSMDUMP  DD SYSOUT=*                                           
//SYSIN     DD DUMMY                                               
/*                                                                 
//                                                                 

But it return
Code:

*===================== EXCI Sampl  Batch Client Program =======================*
*                                                                              *
*    Parameters: APPLID=CICSAPL1   USERID=CICSUSER                              *
*                                                                              *
*  EXEC Level Processor.                                                       *
*    Setting up the EXEC level ca l.                                           *
*    The Link Request has failed.  Return codes are:                           *
                    00000088  00000606                                         
*    >>>> Aborting further proces ing <<<<                                     *
*                                                                              *
*=================== End of EXCI  AMPLE BATCH CLIENT PROGRAM ==================*


I can't solve this problem.
Can eny body help me?
↧
Search

CICS :: RE: MAX-RC 88 and Return code 606 in DFH0CXCC.

January 24, 2017, 1:22 am
$
0
0
Author: Garry Carroll
Posted: Tue Jan 24, 2017 2:52 pm (GMT 5.5)

The 00000088 is RESP while 00000606 is RESP2 from the EXEC CICS LINK PROGRAM(...) in the DFH0CXCC program.

You can find the sample source for DFH0CXCC in the .SDFHSAMP library and the copybook used in it is in the .SDFHCOB library.

Google 'EXCI RESP 88 RESP2 606' for an explanation of the error.

Garry.
_________________
Everyone's entitled to ONE fatal mistake.....
↧
↧

SYNCSORT :: RE: SYNCSORT SEQNUM and FI fields.

January 24, 2017, 10:49 am
$
0
0
Author: nartcr
Posted: Wed Jan 25, 2017 12:19 am (GMT 5.5)

Thanks Bill. I changed the query from FI to BI and it worked seamlessly. I will take some time to refresh my memory on FI and BI data formats.
_________________
Regards,
Nara
↧

SYNCSORT :: Sort Card to Remove Duplicate records of delimited InputFile

January 24, 2017, 3:14 pm
$
0
0
Author: raj4neo
Subject: Sort Card to Remove Duplicate records of delimited InputFile
Posted: Wed Jan 25, 2017 4:44 am (GMT 5.5)

Hi ,

Could some one help to identify the Duplicate records in a Delimited File using Sort Card

Here is the record Details

Input file

APPS;BRANDON;MICHAEL;LEE;BRANDON MICHAEL
APPS;BRANDON;MICHAEL;LEE;BRANDON MICHAEL
APPS;JAMES;;CAMPBELL;JAMES CAMPBELL

I need Output File as
APPS;BRANDON;MICHAEL;LEE;BRANDON MICHAEL
APPS;JAMES;;CAMPBELL;JAMES CAMPBELL
_________________
G.Rajkumar,
↧

SYNCSORT :: RE: Sort Card to Remove Duplicate records of delimited InputFile

January 24, 2017, 4:43 pm
$
0
0
Author: Rohit Umarjikar
Posted: Wed Jan 25, 2017 6:13 am (GMT 5.5)

You should be posting this to beginners forum, wait matter of the fact do research on google first to see what solutions you get for your problem instead of blindly posting it.
Moreover, you must tell us dataset property and the sort key to remove duplicate in case of somebody to help you.
_________________
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
↧

SYNCSORT :: RE: Sort Card to Remove Duplicate records of delimited InputFile

January 24, 2017, 5:00 pm
$
0
0
Author: raj4neo
Subject: Reply to: Sort Card to Remove Duplicate records of delimited InputFile
Posted: Wed Jan 25, 2017 6:30 am (GMT 5.5)

Thanks
_________________
G.Rajkumar,
↧
↧

Mainframe Jobs :: Major Incident Manager is sought for Atos in Apodaca, Mexico

January 25, 2017, 1:04 am
$
0
0
Author: Express
Subject: Major Incident Manager is sought for Atos in Apodaca, Mexico
Posted: Wed Jan 25, 2017 2:34 pm (GMT 5.5)

Company Information

Atos is a leader in digital services with annual revenue of € 12 billion and 100,000 employees in 72 countries. Serving a global client base, Atos offers Consulting & Systems Integration, Managed Services & BPO, Cloud, Big Data & Cyber-security solutions. With deep technology expertise and industry knowledge, Atos works with clients across many business sectors: Defense, Financial Services, Health, Manufacturing, Media, Utilities, Public Sector, Retail, Telecommunications, and Transportation.

Atos is focused on business technology that powers progress and helps organizations to create their firm of the future. In addition, Atos is the Worldwide Information Technology Partner for the Olympic & Paralympic Games and operates under the brands Atos, Bull, Canopy, Unify and Worldline.

Atos offers a broad professional perspective and the opportunity to build a rewarding career across either the technical or business paths. With our worldwide presence and our broad range of professional services, Atos provides training programs across all our competencies and markets worldwide for employees in all stages of their career. In addition, we offer programs that are focused on engaging and developing people who are at the beginning of their career through internships and graduate opportunities.

For more information, please see the Atos corporate web site: www.atos.net.

Atos is an EEO employer, providing employment opportunity regardless of race, color, religion, sex, age, national origin veteran status, disability or other factors protected by law.

Job Description

The primary position objective is to provide oversight and Service Restoration activities for the Global enterprise in support of maximum system availability to the business and external customers. In support of Service Restoration, the Major Incident Manager (MIM) will initiate and lead Major Incident Management calls, gathering technical resources who can remediate the issue. The MIM will also provide business impact updates to IT leadership as required (in verbal and written form). Another key component of the MIM function is to collect relevant incident related statistics and publish operational health metrics to IT senior leadership and others on a regular basis. This includes but is not limited to incident duration, root cause analysis and follow-on preventative/corrective action monitoring. Other responsibilities may include but are not limited to:
- MIM will capture all Major Incident details and update all necessary documents and databases
- MIM will participate in Post Mortem meetings and drive technical team to define root cause
- MIM will provide a Daily call document to all IT Managers and Leadership
- MIM will lead a Daily Call with Managers and Leadership to provide data on recent Incidents, Emergency RFC’s, daily Monitoring Alerts, Post Mortem status and action Items, Ongoing Operational Risks and Special Business processing needs.

Job Requirements

- Accountable that all the Configuration Items of his scope are recorded in the CMDB/CMS with the correct attributes/relationships following ACM policies and applicable Data Quality Goals (General and Specific).
- Accountable for any Changes to CI Records (CI Record Owner).
- Accountable for any Reporting activities providing a service management (Technical) view on data of his scope.
- Handles quality issues impacting data of his scope.
- Performs any necessary verification or audit to ensure that all required data is provided to Service Management.
- Documents control procedures and work-instructions and defines data access policies to ensure that the security level required by client and inte
Excellent interpersonal skills especially communication and presentation skills.
- Above average keyboarding skills.
- Proven track record of collaborative working across service lines and practices.
- Able to direct, support and mentor team members.
- Able to manage resources to optimize efficiency.
- Able to use a process framework, analytical tools and reporting to direct, monitor and evaluate progress and change.
- Builds long-term relationships with high level internal colleagues.
- Excellent English communication skills (written and oral), with experience interacting with all levels of management.
- Ability to work independently and make decisions where necessary.
- Promotes and supports standardization and continuous improvement.
- Competent with Microsoft Office products and especially Outlook.
- Competent with voice/video collaborations tools such as MS Lync or Webex.
- Capable of multi-tasking in an environment with 3-4 monitors operating from one laptop.
- Experience with ITSM tools such as SMD12, Remedy or ServiceNoew required.
rnally are met ; e.g.: provide list of authorized ACM requesters, list of updaters/readers, …
- Performs regular audits to check Configuration Structures consistency regarding the physical state and vice versa.
- Works closely to CI Type Managers to align his scope data to corresponding CI Type, regulations and standards.
- In case of major or recurring issues on SACM Data Quality, escalates to the Account or any other interested party

Apply here:https://express.candarine.com/campaign/url/forward/225abefd2d60
↧

DB2 :: DB2 9.1.0 not move values to Host-Variables on PL1 3.7.0

January 25, 2017, 6:54 am
$
0
0
Author: Miguel Fernandez
Subject: DB2 9.1.0 not move values to Host-Variables on PL1 3.7.0
Posted: Wed Jan 25, 2017 8:24 pm (GMT 5.5)

I have tested the program written in PL1-DB2 with the SELECT & FETCH clauses where host variables whose TYPES are declared as characters lose the CONTENT of their value when executing the EXEC SQL statement from program PL1.

However the variables declared as numerical are fully deployed with their true values that are defined in the columns of the consulted table.

Is this an error in PL1-DB2 versions that need to be repaired or is it a bad programming?



[img]
OUTPUT

1 REPORTE DE PROYECTOS AFECTADOS AL AUMENTO DE SALARIOS
EMPLEADO NOMBRE-EMPLEADO SALARIO BONUS COMM
ÍÍÍÍºÍ ‡ÿÿ‰ 695.31 160.00 42.20
-RPT1.EMPNO='ÍÍÍͺÍ' RPT1.FIRSTNME='„‡ˆ¤‰Š¤+ ' RPT1.MIDINIT='¤' RPT1.LASTNAME='‡ÿÿ‰'
RPT1.WORKDEPT='ÿÍÍ' RPT1.PHONENO='¼Ë¹' RPT1.HIREDATE='ºËÌÉͺͺ' RPT1.JOB='&ˆ ‰ÄÄÄÄ'
RPT1.EDLEVEL= 18 RPT1.SEX='Æ' RPT1.BIRTHDATE='ºË¼¼Í¹º»' RPT1.SALARY= 695.31
RPT1.BONUS= 160.00 RPT1.COMM= 42.20;

[/img]
↧
Search

DB2 :: RE: DB2 9.1.0 not move values to Host-Variables on PL1 3.7.0

January 25, 2017, 7:04 am
$
0
0
Author: Miguel Fernandez
Posted: Wed Jan 25, 2017 8:34 pm (GMT 5.5)

Code:

1                     REPORTE DE PROYECTOS AFECTADOS AL AUMENTO DE SALARIOS
       EMPLEADO             NOMBRE-EMPLEADO      SALARIO       BONUS        COMM
     ÃÃÃÃÂºÃ          ‡ÿÿ‰                         695.31      160.00       42.20
-RPT1.EMPNO='ÍÍÍͺÍ'     RPT1.FIRSTNME='„‡ˆ¤‰Š¤+ '                       RPT1.MIDINIT='¤'        RPT1.LASTNAME='‡ÿÿ‰'
 RPT1.WORKDEPT='ÿÍÍ'     RPT1.PHONENO='¼Ë¹'     RPT1.HIREDATE='ºËÌÉͺͺ'                      RPT1.JOB='&ˆ ‰ÄÄÄÄ'
 RPT1.EDLEVEL=       18  RPT1.SEX='Æ'            RPT1.BIRTHDATE='ºË¼¼Í¹º»'                     RPT1.SALARY=      695.31
                         RPT1.BONUS=      160.00 RPT1.COMM=       42.20;

↧

DB2 :: RE: DB2 9.1.0 not move values to Host-Variables on PL1 3.7.0

January 25, 2017, 7:06 am
$
0
0
Author: Miguel Fernandez
Posted: Wed Jan 25, 2017 8:36 pm (GMT 5.5)

Code:

1DB2 SQL PRECOMPILER         VERSION 9 REL. 1.0                                                        PAGE 2                       
0        1      PLIEX: PROC OPTIONS(MAIN);                                                                                           
         2                                                                                                                           
         3        DCL SYSPRINT FILE EXTERNAL OUTPUT STREAM PRINT;                                                                   
         4                                                                                                                           
         5        EXEC SQL INCLUDE SQLCA;                                                                                           
         6                                                                                                                           
         7        EXEC SQL  BEGIN DECLARE SECTION;                                                                                   
         8        DCL 1 RPT1,                                                                                                       
         9               15 EMPNO CHAR(6) INIT (''),                                                                                 
        10               15 FIRSTNME CHAR(12) VAR INIT (''),                                                                         
        11               15 MIDINIT CHAR(1) INIT (''),                                                                               
        12               15 LASTNAME CHAR(15) VAR INIT (''),                                                                         
        13               15 WORKDEPT CHAR(3) INIT (''),                                                                             
        14               15 PHONENO CHAR(4) INIT (''),                                                                               
        15               15 HIREDATE CHAR(10) INIT (''),                                                                             
        16               15 JOB CHAR(8) INIT (''),                                                                                   
        17               15 EDLEVEL FIXED(15) BINARY INIT(0),                                                                       
        18               15 SEX CHAR(1) INIT (''),                                                                                   
        19               15 BIRTHDATE CHAR(10) INIT (''),                                                                           
        20               15 SALARY FIXED DECIMAL (9,2) INIT (0),                                                                     
        21               15 BONUS FIXED DECIMAL (9,2) INIT (0),                                                                     
        22               15 COMM FIXED DECIMAL (9,2) INIT (0);                                                                       
        23        EXEC SQL  END   DECLARE SECTION;                                                                                   
        24                                                                                                                           
        25        EXEC SQL  DECLARE EMP TABLE                                                                                       
        26                (EMPNO              CHAR(6)           NOT NULL,                                                           
        27                 FIRSTNME           VARCHAR(12)       NOT NULL,                                                           
        28                 MIDINIT            CHAR(1)           NOT NULL,                                                           
        29                 LASTNAME           VARCHAR(15)       NOT NULL,                                                           
        30                 WORKDEPT           CHAR(3)           NOT NULL,                                                           
        31                 PHONENO            CHAR(4)           NOT NULL,                                                           
        32                 HIREDATE           DATE              NOT NULL,                                                           
        33                 JOB                CHAR(8)           NOT NULL,                                                           
        34                 EDLEVEL            SMALLINT          NOT NULL,                                                           
        35                 SEX                CHAR(1)           NOT NULL,                                                           
        36                 BIRTHDATE          DATE              NOT NULL,                                                           
        37                 SALARY             DECIMAL(9,2)      NOT NULL,                                                           
        38                 BONUS              DECIMAL(9,2)      NOT NULL,                                                           
        39                 COMM               DECIMAL(9,2)      NOT NULL);                                                           
        40                                                                                                                           
        41        OPEN FILE(SYSPRINT);                                                                                               
        42      /*                     EMPNO,  LASTNAME,  SALARY,  BONUS,  COMM */                                                   
        43      /*                    :EMPNO, :LASTNAME, :SALARY, :BONUS, :COMM */                                                   
        44                                                                                                                           
        45        EXEC SQL WHENEVER SQLERROR GO TO SELECT_ERROR;                                                                     
        46                                                                                                                           
        47        EXEC SQL     SELECT                                                                                               
        48                           EMPNO, FIRSTNME, MIDINIT, LASTNAME, WORKDEPT,                                                   
        49                           PHONENO, HIREDATE, JOB, EDLEVEL, SEX,                                                           
        50                           BIRTHDATE, SALARY, BONUS, COMM                                                                 
        51                       INTO                                                                                               
        52                           :RPT1                                                                                           
        53                       FROM                                                                                               
        54                           EMP                                                                                             
        55                    WHERE  SALARY = 695.31;                                                                               
        56                                                                                                                           
        57        EXEC SQL COMMIT;                                                                                                   
        58                                                                                                                           
1DB2 SQL PRECOMPILER         VERSION 9 REL. 1.0                                                        PAGE 3                       
0       59        EXEC SQL WHENEVER SQLERROR GO TO REPORT_ERROR;                                                                     
        60                                                                                                                           
        61        /* Write the header */                                                                                             
        62        PUT FILE(SYSPRINT)                                                                                                 
        63            EDIT('REPORTE DE PROYECTOS AFECTADOS AL AUMENTO DE SALARIOS')                                                 
        64                (COL(22),A);                                                                                               
        65        PUT FILE(SYSPRINT)                                                                                                 
        66            EDIT('EMPLEADO','NOMBRE-EMPLEADO','SALARIO','BONUS','COMM')                                                   
        67            (SKIP,COL(7),A,X(13),A,X(6),A,X(7),A,X(8),A);                                                                 
        68        PUT FILE(SYSPRINT)                                                                                                 
        69          EDIT(EMPNO,LASTNAME,SALARY,BONUS,COMM)                                                                           
        70          (SKIP,COL(5),A,X(10),A,X(22),F(9,2),X(3),F(9,2),X(3),F(9,2));                                                   
        71        PUT SKIP(3);                                                                                                       
        72        PUT DATA(RPT1);                                                                                                   
        73        IF SQLCODE = 0 THEN GOTO FINISHED;                                                                                 
        74                                                                                                                           
        75        /* Error occurred while selecting table. Inform and rollback       */                                             
        76      SELECT_ERROR:                                                                                                       
        77        EXEC SQL WHENEVER SQLERROR CONTINUE;                                                                               
        78        PUT FILE(SYSPRINT) EDIT('--> ERROR OCURRIDO AL SELECT TABLA EMP  '||                                               
        79         '  SQLCODE=',SQLCODE)(SKIP,A,F(5));                                                                               
        80        EXEC SQL ROLLBACK;                                                                                                 
        81                                                                                                                           
        82        GO TO FINISHED;                                                                                                   
        83                                                                                                                           
        84        /* Error occurred while generating reports.  Inform user and exit. */                                             
        85      REPORT_ERROR:                                                                                                       
        86        PUT FILE(SYSPRINT) EDIT('--> ERROR OCURRIDO MIENTRAS GENERA  '||                                                   
        87         'REPORTE.  SQLCODE=',SQLCODE)(SKIP,A,F(5));                                                                       
        88                                                                                                                           
        89        /* All done  */                                                                                                   
        90      FINISHED:                                                                                                           
        91        CLOSE FILE(SYSPRINT);                                                                                             
        92        RETURN;                                                                                                           
        93                                                                                                                           
        94      END PLIEX;                                                                                                           
1DB2 SQL PRECOMPILER         SYMBOL CROSS-REFERENCE LISTING                                            PAGE 4                       
0DATA NAMES                     DEFN     REFERENCE                                                                                   
0"BIRTHDATE"                    36       DATE(10) COLUMN (NOT NULL) IN "EMP"                                                         
                                                                                                                                     
 "BIRTHDATE"                    ****     COLUMN                                                                                     
                                         50                                                                                         
 "BONUS"                        38       DECIMAL(9,2) COLUMN (NOT NULL) IN "EMP"                                                     
                                                                                                                                     
 "BONUS"                        ****     COLUMN                                                                                     
                                         50                                                                                         
 "COMM"                         39       DECIMAL(9,2) COLUMN (NOT NULL) IN "EMP"                                                     
                                                                                                                                     
 "COMM"                         ****     COLUMN                                                                                     
                                         50                                                                                         
 "EDLEVEL"                      34       SMALL INTEGER COLUMN (NOT NULL) IN "EMP"                                                   
                                                                                                                                     
 "EDLEVEL"                      ****     COLUMN                                                                                     
                                         49                                                                                         
 "EMP"                          25       TABLE                                                                                       
                                         54                                                                                         
 "EMPNO"                        26       CHARACTER(6) COLUMN (NOT NULL) IN "EMP"                                                     
                                                                                                                                     
 "EMPNO"                        ****     COLUMN                                                                                     
                                         48                                                                                         
 "FIRSTNME"                     27       VARCHAR(12) COLUMN (NOT NULL) IN "EMP"                                                     
                                                                                                                                     
 "FIRSTNME"                     ****     COLUMN                                                                                     
                                         48                                                                                         
 "HIREDATE"                     32       DATE(10) COLUMN (NOT NULL) IN "EMP"                                                         
                                                                                                                                     
 "HIREDATE"                     ****     COLUMN                                                                                     
                                         49                                                                                         
 "JOB"                          33       CHARACTER(8) COLUMN (NOT NULL) IN "EMP"                                                     
                                                                                                                                     
 "JOB"                          ****     COLUMN                                                                                     
                                         49                                                                                         
 "LASTNAME"                     29       VARCHAR(15) COLUMN (NOT NULL) IN "EMP"                                                     
                                                                                                                                     
 "LASTNAME"                     ****     COLUMN                                                                                     
                                         48                                                                                         
 "MIDINIT"                      28       CHARACTER(1) COLUMN (NOT NULL) IN "EMP"                                                     
                                                                                                                                     
 "MIDINIT"                      ****     COLUMN                                                                                     
                                         48                                                                                         
 "PHONENO"                      31       CHARACTER(4) COLUMN (NOT NULL) IN "EMP"                                                     
                                                                                                                                     
 "PHONENO"                      ****     COLUMN                                                                                     
                                         49                                                                                         
 "SALARY"                       37       DECIMAL(9,2) COLUMN (NOT NULL) IN "EMP"                                                     
                                                                                                                                     
 "SALARY"                       ****     COLUMN                                                                                     
                                         50 55                                                                                       
 "SEX"                          35       CHARACTER(1) COLUMN (NOT NULL) IN "EMP"                                                     
                                                                                                                                     
 "SEX"                          ****     COLUMN                                                                                     
                                         49                                                                                         
 "WORKDEPT"                     30       CHARACTER(3) COLUMN (NOT NULL) IN "EMP"                                                     
                                                                                                                                     
1DB2 SQL PRECOMPILER         SYMBOL CROSS-REFERENCE LISTING                                            PAGE 5                       
0DATA NAMES                     DEFN     REFERENCE                                                                                   
0"WORKDEPT"                     ****     COLUMN                                                                                     
                                         48                                                                                         
 BIRTHDATE                      19       CHARACTER(10) IN RPT1                                                                       
                                                                                                                                     
 BONUS                          21       DECIMAL(9,2) IN RPT1                                                                       
                                                                                                                                     
 COMM                           22       DECIMAL(9,2) IN RPT1                                                                       
                                                                                                                                     
 EDLEVEL                        17       SMALL INTEGER IN RPT1                                                                       
                                                                                                                                     
 EMPNO                          9        CHARACTER(6) IN RPT1                                                                       
                                                                                                                                     
 FIRSTNME                       10       VARCHAR(12) IN RPT1                                                                         
                                                                                                                                     
 HIREDATE                       15       CHARACTER(10) IN RPT1                                                                       
                                                                                                                                     
 JOB                            16       CHARACTER(8) IN RPT1                                                                       
                                                                                                                                     
 LASTNAME                       12       VARCHAR(15) IN RPT1                                                                         
                                                                                                                                     
 MIDINIT                        11       CHARACTER(1) IN RPT1                                                                       
                                                                                                                                     
 PHONENO                        14       CHARACTER(4) IN RPT1                                                                       
                                                                                                                                     
 REPORT_ERROR                   ****     LABEL                                                                                       
                                         59                                                                                         
 RPT1                           8        STRUCTURE                                                                                   
                                         52                                                                                         
 SALARY                         20       DECIMAL(9,2) IN RPT1                                                                       
                                                                                                                                     
 SELECT_ERROR                   ****     LABEL                                                                                       
                                         45                                                                                         
 SEX                            18       CHARACTER(1) IN RPT1                                                                       
                                                                                                                                     
 SYSPRINT                       3                                                                                                   
 WORKDEPT                       13       CHARACTER(3) IN RPT1                                                                       
                                                                                                                                     
1DB2 SQL PRECOMPILER         MESSAGES                                                                  PAGE 6                       
0DSNH084I W     DSNHSQL  LINE 7 COL 14  UNACCEPTABLE SQL STATEMENT                                                                   
 DSNH084I W     DSNHSQL  LINE 23 COL 14  UNACCEPTABLE SQL STATEMENT                                                                 
1DB2 SQL PRECOMPILER         STATISTICS                                                                PAGE 7                       
0SOURCE STATISTICS                                                                                                                   
   SOURCE LINES READ: 94                                                                                                             
   NUMBER OF SYMBOLS: 48                                                                                                             
   SYMBOL TABLE BYTES EXCLUDING ATTRIBUTES: 3496                                                                                     
-THERE WERE 2 MESSAGES FOR THIS PROGRAM.                                                                                             
 THERE WERE 0 MESSAGES SUPPRESSED BY THE FLAG OPTION.                                                                               
 224724 BYTES OF STORAGE WERE USED BY THE PRECOMPILER.                                                                               
 RETURN CODE IS 4                                                                                                                   
 DSNH084I W     DSNHSQL  LINE 7 COL 14  UNACCEPTABLE SQL STATEMENT                                                                 
 BEGIN DECLARE SECTION                                                                                                             
                                                                                                                                   
 DSNH084I W     DSNHSQL  LINE 23 COL 14  UNACCEPTABLE SQL STATEMENT                                                               
 END DECLARE SECTION                                                                                                               
                                                                                                                                   
 SOURCE STATISTICS                                                                                                                 
   SOURCE LINES READ: 94                                                                                                           
   NUMBER OF SYMBOLS: 48                                                                                                           
   SYMBOL TABLE BYTES EXCLUDING ATTRIBUTES: 3496                                                                                   
 THERE WERE 2 MESSAGES FOR THIS PROGRAM.                                                                                           
 THERE WERE 0 MESSAGES SUPPRESSED BY THE FLAG OPTION.                                                                             
 224724 BYTES OF STORAGE WERE USED BY THE PRECOMPILER.                                                                             
 RETURN CODE IS 4                                                                                                                 
15655-H31  IBM(R) Enterprise PL/I for z/OS       V3.R7.M0 (Built:20080924)                      2017.01.25 15:40:55   Page     1
-                     Options Specified
0  Install:
0  Command: OPTIONS,SOURCE,COMPILE,XREF,ATTRIBUTES,GONUMBER
0  Install:
-                     Options Used
0     NOAGGREGATE
        ARCH(5)
   +    ATTRIBUTES(FULL)
        BACKREG(5)
        BIFPREC(15)
        BLANK('05'x)
        BLKOFF
        CEESTART(FIRST)
        CHECK( NOCONFORMANCE NOSTORAGE )
        CMPAT(V2)
        CODEPAGE(01140)
      NOCOMMON
      NOCOMPACT
      NOCOMPILE(S)
      NOCOPYRIGHT
        CSECT
        CSECTCUT(4)
        CURRENCY('$')
      NODBCS
        DD('SYSPRINT','SYSIN','SYSLIB','SYSPUNCH','SYSLIN','SYSADATA','SYSXMLSD','SYSDEBUG')
        DECIMAL( FOFLONASGN NOFORCEDSIGN )
        DEFAULT(IBM ASSIGNABLE NOINITFILL NONCONNECTED UPPERINC
                DESCRIPTOR DESCLOCATOR DUMMY(ALIGNED) ORDINAL(MIN)
                BYADDR RETURNS(BYADDR) LINKAGE(OPTLINK) NORETCODE
                NOINLINE ORDER NOOVERLAP NONRECURSIVE ALIGNED
                NULL370 BIN1ARG EVENDEC SHORT(HEXADEC)
                EBCDIC HEXADEC NATIVE NATIVEADDR E(HEXADEC))
        DISPLAY( WTO )
      NODLLINIT
      NOEXIT
        EXTRN(FULL)
        FLAG(W)
        FLOAT( AFP(NOVOLATILE) NODFP )
        FLOATINMATH(ASIS)
   +    GONUMBER
      NOGRAPHIC
        INCAFTER(PROCESS(""))
      NOINCDIR
      NOINCPDS
      NOINITAUTO
      NOINITBASED
      NOINITCTL
      NOINITSTATIC
      NOINSOURCE
      NOINTERRUPT
15655-H31  IBM(R) Enterprise PL/I for z/OS       PLIEX: PROC OPTIONS(MAIN);                     2017.01.25 15:40:55   Page     2
0       LANGLVL(SAA2 OS)
        LIMITS( EXTNAME(7) FIXEDBIN(31,31) FIXEDDEC(15,15) NAME(100) )
        LINECOUNT(60)
      NOLINEDIR
      NOLIST
      NOMACRO
      NOMAP
        MARGINI(' ')
   +    MARGINS(2,72)
        MAXMEM(1048576)
        MAXMSG(W 250)
        MAXNEST( BLOCK(17) DO(17) IF(17) )
        MAXSTMT(4096)
        MAXTEMP(50000)
      NOMDECK
      NONAME
        NAMES('@#$' '@#$')
        NATLANG(ENU)
      NONEST
        NOT('^')
        NUMBER
        OBJECT
      NOOFFSET
        OPTIMIZE(0)
   +    OPTIONS(DOC)
        OR('|')
      NOPP
      NOPPCICS
      NOPPMACRO
      NOPPINCLUDE
      NOPPSQL
      NOPPTRACE
        PRECTYPE(ANS)
        PREFIX(CONVERSION FIXEDOVERFLOW INVALIDOP OVERFLOW
               NOSIZE NOSTRINGRANGE NOSTRINGSIZE NOSUBSCRIPTRANGE
               UNDERFLOW ZERODIVIDE)
      NOPROCEED(S)
        PROCESS(DELETE)
        QUOTE('"')
        REDUCE
      NORENT
        RESEXP
        RESPECT()
        RULES(IBM BYNAME NODECSIZE EVENDEC ELSEIF GOTO NOLAXBIF NOLAXCTL
              LAXDCL NOLAXDEF LAXIF LAXINOUT LAXLINK LAXMARGINS
              LAXPUNC LAXQUAL LAXSEMI LAXSTG NOLAXSTRZ MULTICLOSE UNREF)
      NOSCHEDULER
      NOSEMANTIC(S)
      NOSERVICE
   +    SOURCE
        SPILL(512)
        STATIC(SHORT)
      NOSTDSYS
      NOSTMT
      NOSTORAGE
        STRINGOFGRAPHIC(GRAPHIC)
      NOSYNTAX(S)
15655-H31  IBM(R) Enterprise PL/I for z/OS       PLIEX: PROC OPTIONS(MAIN);                     2017.01.25 15:40:55   Page     3
0       SYSPARM('')
        SYSTEM(MVS)
      NOTERMINAL
      NOTEST
        TUNE(5)
        USAGE( ROUND(IBM) UNSPEC(IBM) )
        WIDECHAR(BIGENDIAN)
        WINDOW(1950)
        WRITABLE
        XINFO(NODEF NOMSG NOSYM NOSYN NOXMI NOXML)
        XML( CASE(UPPER) )
   +    XREF(FULL)
15655-H31  IBM(R) Enterprise PL/I for z/OS       PLIEX: PROC OPTIONS(MAIN);                     2017.01.25 15:40:55   Page     4
0 Compiler Source
0    Line.File
0       1.0      PLIEX: PROC OPTIONS(MAIN);
        2.0      DECLARE DSNHLI ENTRY EXTERNAL OPTIONS(ASM INTER);
        3.0      DECLARE SQLTEMP      CHAR(128);
        4.0      DECLARE DSNTEMP      FIXED(31) BINARY;
        5.0      DECLARE DSNTMP2      DECIMAL FIXED(15,0);
        6.0      DECLARE DSNNROWS     FIXED(31) BINARY;
        7.0      DECLARE
        8.0        1 SQLPLIST_SQLDHDR BASED,
        9.0          2 SQLPDAID CHAR(8),
       10.0          2 SQLPABC  FIXED(31) BINARY,
       11.0          2 SQLPN    FIXED(15) BINARY,
       12.0          2 SQLPD    FIXED(15) BINARY;
       13.0      DECLARE
       14.0        1 SQLPLIST_SQLVAR BASED(SQLPLIST_SQLVNROW),
       15.0          2 SQLPTYPE FIXED(15) BINARY,
       16.0          2 SQLPLEN  FIXED(15) BINARY,
       17.0          2 SQLPDATA POINTER,
       18.0          2 SQLPIND  POINTER,
       19.0          2 SQLPNAME CHAR(30) VARYING;
       20.0      DECLARE SQLPLIST_SQLVNROW POINTER;
       21.0      DECLARE DSNPNM       CHAR(386);
       22.0      DECLARE DSNCNM       CHAR(128);
       23.0      DECLARE SQL_FILE_READ BINARY FIXED(31) INIT(2);
       24.0      DECLARE SQL_FILE_CREATE BINARY FIXED(31) INIT(8);
       25.0      DECLARE SQL_FILE_OVERWRITE BINARY FIXED(31) INIT(16);
       26.0      DECLARE SQL_FILE_APPEND BINARY FIXED(31) INIT(32);
       27.0
       28.0
       29.0        DCL SYSPRINT FILE EXTERNAL OUTPUT STREAM PRINT;
       30.0
       31.0
       32.0      /***$$$
       33.0        EXEC SQL INCLUDE SQLCA
       34.0      $$$***/
       35.0      /***$$$ SQLCA $$$***/
       36.0      DECLARE
       37.0        1 SQLCA,
       38.0          2 SQLCAID CHAR(8),
       39.0          2 SQLCABC FIXED(31) BINARY,
       40.0          2 SQLCODE FIXED(31) BINARY,
       41.0          2 SQLERRM CHAR(70) VAR,
       42.0          2 SQLERRP CHAR(8),
       43.0          2 SQLERRD(6) FIXED(31) BINARY,
       44.0          2 SQLWARN,
       45.0            3 SQLWARN0 CHAR(1),
       46.0            3 SQLWARN1 CHAR(1),
       47.0            3 SQLWARN2 CHAR(1),
       48.0            3 SQLWARN3 CHAR(1),
       49.0            3 SQLWARN4 CHAR(1),
       50.0            3 SQLWARN5 CHAR(1),
       51.0            3 SQLWARN6 CHAR(1),
       52.0            3 SQLWARN7 CHAR(1),
       53.0          2 SQLEXT,
15655-H31  IBM(R) Enterprise PL/I for z/OS       PLIEX: PROC OPTIONS(MAIN);                     2017.01.25 15:40:55   Page     5
0    Line.File
0      54.0            3 SQLWARN8 CHAR(1),
       55.0            3 SQLWARN9 CHAR(1),
       56.0            3 SQLWARNA CHAR(1),
       57.0            3 SQLSTATE CHAR(5);
       58.0
       59.0
       60.0
       61.0      /***$$$
       62.0        EXEC SQL  BEGIN DECLARE SECTION
       63.0      $$$***/
       64.0
       65.0        DCL 1 RPT1,
       66.0               15 EMPNO CHAR(6) INIT (''),
       67.0               15 FIRSTNME CHAR(12) VAR INIT (''),
       68.0               15 MIDINIT CHAR(1) INIT (''),
       69.0               15 LASTNAME CHAR(15) VAR INIT (''),
       70.0               15 WORKDEPT CHAR(3) INIT (''),
       71.0               15 PHONENO CHAR(4) INIT (''),
       72.0               15 HIREDATE CHAR(10) INIT (''),
       73.0               15 JOB CHAR(8) INIT (''),
       74.0               15 EDLEVEL FIXED(15) BINARY INIT(0),
       75.0               15 SEX CHAR(1) INIT (''),
       76.0               15 BIRTHDATE CHAR(10) INIT (''),
       77.0               15 SALARY FIXED DECIMAL (9,2) INIT (0),
       78.0               15 BONUS FIXED DECIMAL (9,2) INIT (0),
       79.0               15 COMM FIXED DECIMAL (9,2) INIT (0);
       80.0
       81.0      /***$$$
       82.0        EXEC SQL  END   DECLARE SECTION
       83.0      $$$***/
       84.0
       85.0
       86.0
       87.0      /***$$$
       88.0        EXEC SQL  DECLARE EMP TABLE
       89.0                (EMPNO              CHAR(6)           NOT NULL,
       90.0                 FIRSTNME           VARCHAR(12)       NOT NULL,
       91.0                 MIDINIT            CHAR(1)           NOT NULL,
       92.0                 LASTNAME           VARCHAR(15)       NOT NULL,
       93.0                 WORKDEPT           CHAR(3)           NOT NULL,
       94.0                 PHONENO            CHAR(4)           NOT NULL,
       95.0                 HIREDATE           DATE              NOT NULL,
       96.0                 JOB                CHAR(8)           NOT NULL,
       97.0                 EDLEVEL            SMALLINT          NOT NULL,
       98.0                 SEX                CHAR(1)           NOT NULL,
       99.0                 BIRTHDATE          DATE              NOT NULL,
      100.0                 SALARY             DECIMAL(9,2)      NOT NULL,
      101.0                 BONUS              DECIMAL(9,2)      NOT NULL,
      102.0                 COMM               DECIMAL(9,2)      NOT NULL)
      103.0      $$$***/
      104.0
      105.0
      106.0        OPEN FILE(SYSPRINT);
      107.0      /*                     EMPNO,  LASTNAME,  SALARY,  BONUS,  COMM */
      108.0      /*                    :EMPNO, :LASTNAME, :SALARY, :BONUS, :COMM */
15655-H31  IBM(R) Enterprise PL/I for z/OS       PLIEX: PROC OPTIONS(MAIN);                     2017.01.25 15:40:55   Page     6
0    Line.File
0     109.0
      110.0
      111.0      /***$$$
      112.0        EXEC SQL WHENEVER SQLERROR GO TO SELECT_ERROR
      113.0      $$$***/
      114.0
      115.0
      116.0
      117.0      /***$$$
      118.0        EXEC SQL     SELECT
      119.0                           EMPNO, FIRSTNME, MIDINIT, LASTNAME, WORKDEPT,
      120.0                           PHONENO, HIREDATE, JOB, EDLEVEL, SEX,
      121.0                           BIRTHDATE, SALARY, BONUS, COMM
      122.0                       INTO
      123.0                           :RPT1
      124.0                       FROM
      125.0                           EMP
      126.0                    WHERE  SALARY = 695.31
      127.0      $$$***/
      128.0      DO;
      129.0        SQLPLIST5.SQLAVADDR(1) = ADDR(RPT1.EMPNO);
      130.0        SQLPLIST5.SQLAVTYPE(1) = 452;
      131.0        SQLPLIST5.SQLAVLEN(1) = 6;
      132.0        SQLPLIST5.SQLAVADDR(2) = ADDR(RPT1.FIRSTNME);
      133.0        SQLPLIST5.SQLAVTYPE(2) = 448;
      134.0        SQLPLIST5.SQLAVLEN(2) = 12;
      135.0        SQLPLIST5.SQLAVADDR(3) = ADDR(RPT1.MIDINIT);
      136.0        SQLPLIST5.SQLAVTYPE(3) = 452;
      137.0        SQLPLIST5.SQLAVLEN(3) = 1;
      138.0        SQLPLIST5.SQLAVADDR(4) = ADDR(RPT1.LASTNAME);
      139.0        SQLPLIST5.SQLAVTYPE(4) = 448;
      140.0        SQLPLIST5.SQLAVLEN(4) = 15;
      141.0        SQLPLIST5.SQLAVADDR(5) = ADDR(RPT1.WORKDEPT);
      142.0        SQLPLIST5.SQLAVTYPE(5) = 452;
      143.0        SQLPLIST5.SQLAVLEN(5) = 3;
      144.0        SQLPLIST5.SQLAVADDR(6) = ADDR(RPT1.PHONENO);
      145.0        SQLPLIST5.SQLAVTYPE(6) = 452;
      146.0        SQLPLIST5.SQLAVLEN(6) = 4;
      147.0        SQLPLIST5.SQLAVADDR(7) = ADDR(RPT1.HIREDATE);
      148.0        SQLPLIST5.SQLAVTYPE(7) = 452;
      149.0        SQLPLIST5.SQLAVLEN(7) = 10;
      150.0        SQLPLIST5.SQLAVADDR(8) = ADDR(RPT1.JOB);
      151.0        SQLPLIST5.SQLAVTYPE(8) = 452;
      152.0        SQLPLIST5.SQLAVLEN(8) = 8;
      153.0        SQLPLIST5.SQLAVADDR(9) = ADDR(RPT1.EDLEVEL);
      154.0        SQLPLIST5.SQLAVTYPE(9) = 500;
      155.0        SQLPLIST5.SQLAVLEN(9) = 2;
      156.0        SQLPLIST5.SQLAVADDR(10) = ADDR(RPT1.SEX);
      157.0        SQLPLIST5.SQLAVTYPE(10) = 452;
      158.0        SQLPLIST5.SQLAVLEN(10) = 1;
      159.0        SQLPLIST5.SQLAVADDR(11) = ADDR(RPT1.BIRTHDATE);
      160.0        SQLPLIST5.SQLAVTYPE(11) = 452;
      161.0        SQLPLIST5.SQLAVLEN(11) = 10;
      162.0        SQLPLIST5.SQLAVADDR(12) = ADDR(RPT1.SALARY);
      163.0        SQLPLIST5.SQLAVTYPE(12) = 484;
15655-H31  IBM(R) Enterprise PL/I for z/OS       PLIEX: PROC OPTIONS(MAIN);                     2017.01.25 15:40:55   Page     7
0    Line.File
0     164.0        SQLPLIST5.SQLAVLEN(12) = 2306;
      165.0        SQLPLIST5.SQLAVADDR(13) = ADDR(RPT1.BONUS);
      166.0        SQLPLIST5.SQLAVTYPE(13) = 484;
      167.0        SQLPLIST5.SQLAVLEN(13) = 2306;
      168.0        SQLPLIST5.SQLAVADDR(14) = ADDR(RPT1.COMM);
      169.0        SQLPLIST5.SQLAVTYPE(14) = 484;
      170.0        SQLPLIST5.SQLAVLEN(14) = 2306;
      171.0        SQLPLIST5.SQLAVIND(1) = NULL();
      172.0        SQLPLIST5.SQLAVNAME(1) = '';
      173.0        SQLPLIST5.SQLAVIND(2) = NULL();
      174.0        SQLPLIST5.SQLAVNAME(2) = '';
      175.0        SQLPLIST5.SQLAVIND(3) = NULL();
      176.0        SQLPLIST5.SQLAVNAME(3) = '';
      177.0        SQLPLIST5.SQLAVIND(4) = NULL();
      178.0        SQLPLIST5.SQLAVNAME(4) = '';
      179.0        SQLPLIST5.SQLAVIND(5) = NULL();
      180.0        SQLPLIST5.SQLAVNAME(5) = '';
      181.0        SQLPLIST5.SQLAVIND(6) = NULL();
      182.0        SQLPLIST5.SQLAVNAME(6) = '';
      183.0        SQLPLIST5.SQLAVIND(7) = NULL();
      184.0        SQLPLIST5.SQLAVNAME(7) = '';
      185.0        SQLPLIST5.SQLAVIND(8) = NULL();
      186.0        SQLPLIST5.SQLAVNAME(8) = '';
      187.0        SQLPLIST5.SQLAVIND(9) = NULL();
      188.0        SQLPLIST5.SQLAVNAME(9) = '';
      189.0        SQLPLIST5.SQLAVIND(10) = NULL();
      190.0        SQLPLIST5.SQLAVNAME(10) = '';
      191.0        SQLPLIST5.SQLAVIND(11) = NULL();
      192.0        SQLPLIST5.SQLAVNAME(11) = '';
      193.0        SQLPLIST5.SQLAVIND(12) = NULL();
      194.0        SQLPLIST5.SQLAVNAME(12) = '';
      195.0        SQLPLIST5.SQLAVIND(13) = NULL();
      196.0        SQLPLIST5.SQLAVNAME(13) = '';
      197.0        SQLPLIST5.SQLAVIND(14) = NULL();
      198.0        SQLPLIST5.SQLAVNAME(14) = '';
      199.0        SQLPLIST5.SQLAVARS.SQLAVDAID = 'E2D8D3C4C1404008'X;
      200.0        SQLPLIST5.SQLAVARS.SQLAVDABC = 632;
      201.0        SQLPLIST5.SQLAVARS.SQLAVN = 14;
      202.0        SQLPLIST5.SQLAVARS.SQLAVD = 14;
      203.0        SQLPLIST5_SQLAPARM = ADDR(SQLPLIST5.SQLAVARS.SQLAVDAID);
      204.0        SQLPLIST5.SQLCODEP=ADDR(SQLCA);
      205.0        CALL DSNHLI(SQLPLIST5);
      206.0        IF SQLCODE<0 THEN GO TO SELECT_ERROR;
      207.0      DECLARE
      208.0        1 SQLPLIST5,
      209.0          2 SQLPLLEN FIXED(15) BINARY INIT(64),
      210.0          2 SQLFLAGS FIXED(15) BINARY INIT(1024),
      211.0          2 SQLCTYPE FIXED(15) BINARY INIT(30),
      212.0          2 SQLPROGN CHAR(8) INIT('5047504C31535132'X),
      213.0          2 SQLTIMES(2) FIXED(31) BINARY UNALIGNED
      214.0            INIT(440400130,60659904),
      215.0          2 SQLSECTN FIXED(15) BINARY INIT(1),
      216.0          2 SQLCODEP POINTER,
      217.0          2 SQLVPARM FIXED(31) BINARY INIT(0),
      218.0          2 SQLAPARM FIXED(31) BINARY INIT(0),
15655-H31  IBM(R) Enterprise PL/I for z/OS       PLIEX: PROC OPTIONS(MAIN);                     2017.01.25 15:40:55   Page     8
0    Line.File
0     219.0          2 SQLSTNM7 FIXED(15) BINARY INIT(1208),
      220.0          2 SQLSTYPE FIXED(15) BINARY INIT(231),
      221.0          2 SQLSTNUM FIXED(31) BINARY INIT(47),
      222.0          2 SQLFLGS2 FIXED(15) BINARY INIT(0),
      223.0          2 SQLRSRVD CHAR(18)  INIT('00'X),
      224.0          2 SQLAVARS,
      225.0            3 SQLAVDAID CHAR(8),
      226.0            3 SQLAVDABC FIXED(31) BINARY,
      227.0            3 SQLAVN FIXED(15) BINARY,
      228.0            3 SQLAVD FIXED(15) BINARY,
      229.0          2 SQLAVELT(14),
      230.0            3 SQLAVTYPE FIXED(15) BINARY,
      231.0            3 SQLAVLEN FIXED(15) BINARY,
      232.0            3 SQLAVADDR POINTER,
      233.0            3 SQLAVIND POINTER,
      234.0            3 SQLAVNAME CHAR(30) VAR,
      235.0        1 SQLPLIST5_SQLVPARM POINTER
      236.0            BASED(ADDR(SQLPLIST5.SQLVPARM)),
      237.0        1 SQLPLIST5_SQLAPARM POINTER
      238.0            BASED(ADDR(SQLPLIST5.SQLAPARM));
      239.0      END;
      240.0
      241.0
      242.0
      243.0      /***$$$
      244.0        EXEC SQL COMMIT
      245.0      $$$***/
      246.0      DO;
      247.0        SQLPLIST6.SQLCODEP=ADDR(SQLCA);
      248.0        CALL DSNHLI(SQLPLIST6);
      249.0        IF SQLCODE<0 THEN GO TO SELECT_ERROR;
      250.0      DECLARE
      251.0        1 SQLPLIST6,
      252.0          2 SQLPLLEN FIXED(15) BINARY INIT(64),
      253.0          2 SQLFLAGS FIXED(15) BINARY INIT(0),
      254.0          2 SQLCTYPE FIXED(15) BINARY INIT(150),
      255.0          2 SQLPROGN CHAR(8) INIT('5047504C31535132'X),
      256.0          2 SQLTIMES(2) FIXED(31) BINARY UNALIGNED
      257.0            INIT(440400130,60659904),
      258.0          2 SQLSECTN FIXED(15) BINARY INIT(0),
      259.0          2 SQLCODEP POINTER,
      260.0          2 SQLVPARM FIXED(31) BINARY INIT(0),
      261.0          2 SQLAPARM FIXED(31) BINARY INIT(0),
      262.0          2 SQLSTNM7 FIXED(15) BINARY INIT(1208),
      263.0          2 SQLSTYPE FIXED(15) BINARY INIT(310),
      264.0          2 SQLSTNUM FIXED(31) BINARY INIT(57),
      265.0          2 SQLFLGS2 FIXED(15) BINARY INIT(0),
      266.0          2 SQLRSRVD CHAR(18)  INIT('00'X),
      267.0        1 SQLPLIST6_SQLVPARM POINTER
      268.0            BASED(ADDR(SQLPLIST6.SQLVPARM)),
      269.0        1 SQLPLIST6_SQLAPARM POINTER
      270.0            BASED(ADDR(SQLPLIST6.SQLAPARM));
      271.0      END;
      272.0
      273.0
15655-H31  IBM(R) Enterprise PL/I for z/OS       PLIEX: PROC OPTIONS(MAIN);                     2017.01.25 15:40:55   Page     9
0    Line.File
0     274.0
      275.0      /***$$$
      276.0        EXEC SQL WHENEVER SQLERROR GO TO REPORT_ERROR
      277.0      $$$***/
      278.0
      279.0
      280.0        /* Write the header */
      281.0        PUT FILE(SYSPRINT)
      282.0            EDIT('REPORTE DE PROYECTOS AFECTADOS AL AUMENTO DE SALARIOS')
      283.0                (COL(22),A);
      284.0        PUT FILE(SYSPRINT)
      285.0            EDIT('EMPLEADO','NOMBRE-EMPLEADO','SALARIO','BONUS','COMM')
      286.0            (SKIP,COL(7),A,X(13),A,X(6),A,X(7),A,X(8),A);
      287.0        PUT FILE(SYSPRINT)
      288.0          EDIT(EMPNO,LASTNAME,SALARY,BONUS,COMM)
      289.0          (SKIP,COL(5),A,X(10),A,X(22),F(9,2),X(3),F(9,2),X(3),F(9,2));
      290.0        PUT SKIP(3);
      291.0        PUT DATA(RPT1);
      292.0        IF SQLCODE = 0 THEN GOTO FINISHED;
      293.0
      294.0        /* Error occurred while selecting table. Inform and rollback       */
      295.0      SELECT_ERROR:
      296.0
      297.0      /***$$$
      298.0        EXEC SQL WHENEVER SQLERROR CONTINUE
      299.0      $$$***/
      300.0
      301.0        PUT FILE(SYSPRINT) EDIT('--> ERROR OCURRIDO AL SELECT TABLA EMP  '||
      302.0         '  SQLCODE=',SQLCODE)(SKIP,A,F(5));
      303.0
      304.0      /***$$$
      305.0        EXEC SQL ROLLBACK
      306.0      $$$***/
      307.0      DO;
      308.0        SQLPLIST9.SQLCODEP=ADDR(SQLCA);
      309.0        CALL DSNHLI(SQLPLIST9);
      310.0      DECLARE
      311.0        1 SQLPLIST9,
      312.0          2 SQLPLLEN FIXED(15) BINARY INIT(64),
      313.0          2 SQLFLAGS FIXED(15) BINARY INIT(0),
      314.0          2 SQLCTYPE FIXED(15) BINARY INIT(155),
      315.0          2 SQLPROGN CHAR(8) INIT('5047504C31535132'X),
      316.0          2 SQLTIMES(2) FIXED(31) BINARY UNALIGNED
      317.0            INIT(440400130,60659904),
      318.0          2 SQLSECTN FIXED(15) BINARY INIT(0),
      319.0          2 SQLCODEP POINTER,
      320.0          2 SQLVPARM FIXED(31) BINARY INIT(0),
      321.0          2 SQLAPARM FIXED(31) BINARY INIT(0),
      322.0          2 SQLSTNM7 FIXED(15) BINARY INIT(1208),
      323.0          2 SQLSTYPE FIXED(15) BINARY INIT(277),
      324.0          2 SQLSTNUM FIXED(31) BINARY INIT(80),
      325.0          2 SQLFLGS2 FIXED(15) BINARY INIT(0),
      326.0          2 SQLRSRVD CHAR(18)  INIT('00'X),
      327.0        1 SQLPLIST9_SQLVPARM POINTER
      328.0            BASED(ADDR(SQLPLIST9.SQLVPARM)),
15655-H31  IBM(R) Enterprise PL/I for z/OS       PLIEX: PROC OPTIONS(MAIN);                     2017.01.25 15:40:55   Page    10
0    Line.File
0     329.0        1 SQLPLIST9_SQLAPARM POINTER
      330.0            BASED(ADDR(SQLPLIST9.SQLAPARM));
      331.0      END;
      332.0
      333.0
      334.0        GO TO FINISHED;
      335.0
      336.0        /* Error occurred while generating reports.  Inform user and exit. */
      337.0      REPORT_ERROR:
      338.0        PUT FILE(SYSPRINT) EDIT('--> ERROR OCURRIDO MIENTRAS GENERA  '||
      339.0         'REPORTE.  SQLCODE=',SQLCODE)(SKIP,A,F(5));
      340.0
      341.0        /* All done  */
      342.0      FINISHED:
      343.0        CLOSE FILE(SYSPRINT);
      344.0        RETURN;
      345.0
      346.0      END PLIEX;
15655-H31  IBM(R) Enterprise PL/I for z/OS       PLIEX: PROC OPTIONS(MAIN);                     2017.01.25 15:40:55   Page    11

↧
↧

DB2 :: RE: DB2 9.1.0 not move values to Host-Variables on PL1 3.7.0

January 25, 2017, 7:07 am
$
0
0
Author: Miguel Fernandez
Posted: Wed Jan 25, 2017 8:37 pm (GMT 5.5)

Code:

   SELECT EMPNO, FIRSTNME, MIDINIT, LASTNAME, WORKDEPT,                 00021003
          PHONENO, HIREDATE, JOB, EDLEVEL, SEX,                         00030003
          BIRTHDATE, SALARY, BONUS, COMM                                00040003
   FROM   EMP                                                           00050003
   WHERE  SALARY = 695.31;                                              00060007
---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+--------
EMPNO   FIRSTNME      MIDINIT  LASTNAME         WORKDEPT  PHONENO  HIREDATE    JOB       EDLEVEL  SEX  BIRTHDATE        SALARY        BONUS         COMM 
---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+--------
000010  CHRISTINE     I        HAAS             A00       3978     1965-01-01  PRES           18  F    1933-08-14       695.31       160.00        42.20
DSNE610I NUMBER OF ROWS DISPLAYED IS 1

↧

DB2 :: RE: DB2 9.1.0 not move values to Host-Variables on PL1 3.7.0

January 25, 2017, 8:15 am
$
0
0
Author: prino
Subject: Re: DB2 9.1.0 not move values to Host-Variables on PL1 3.7.0
Posted: Wed Jan 25, 2017 9:45 pm (GMT 5.5)

Miguel Fernandez wrote:
Is this an error in PL1-DB2 versions that need to be repaired or is it a bad programming?

Do you really think that any errors in Enterprise PL/I V3.7 (which, by the way has left support years ago) and/or DB2 would not have been noticed by others?

Sheesh...

Ergo conclusio: you're a bad programmer!
_________________
Robert AH Prins
robert.ah.prins @ the.17+Gb.Google thingy
At last, a tiny bit of programming here... icon_smile.gif
↧

DFSORT/ICETOOL :: Remove junk values in a file and rite only the characters

January 25, 2017, 8:28 am
$
0
0
Author: KP1125
Subject: Remove junk values in a file and rite only the characters
Posted: Wed Jan 25, 2017 9:58 pm (GMT 5.5)

I executed an query and the output is copied to output file but their are junk values copied. I want to remove the junk characters and copy only text

Input file :

************
ARM........
UNIT.......
ARM........
OL........

Expected output file:
*******************
ARM
UNIT
ARM
OL

I tried many options but could not remove it completely as the query output is not of fixed length.

Advice how can we do it for variable length field.[/code]
↧
Viewing all 8500 articles
Browse latest View live
Search

Latest Images

7 clever tricks Primark does to keep you walking & buying more than you need...

7 clever tricks Primark does to keep you walking & buying more than you need...

July 20, 2025, 5:14 am
Art for Everyone! Autism advocacy, local stories, and indigenous pride in one...

Art for Everyone! Autism advocacy, local stories, and indigenous pride in one...

July 20, 2025, 5:06 am
Paintings of English Downs 2

Paintings of English Downs 2

July 20, 2025, 4:30 am
How Kerala Women Rescued a Dying Forest and Turned It Into a Safe Haven for...

How Kerala Women Rescued a Dying Forest and Turned It Into a Safe Haven for...

July 20, 2025, 3:30 am
Met Eireann warns of heavy rain & spot flooding for DAYS before big...

Met Eireann warns of heavy rain & spot flooding for DAYS before big...

July 20, 2025, 1:14 am
Who is Kevin Lerena’s wife Geraldine?

Who is Kevin Lerena’s wife Geraldine?

July 20, 2025, 12:57 am
Man stabs woman, baby to death inside Queens home, police say

Man stabs woman, baby to death inside Queens home, police say

July 19, 2025, 11:00 pm
Ang papel ni whistleblower Julie Patidongan sa kaso ng mga nawawalang sabungero

Ang papel ni whistleblower Julie Patidongan sa kaso ng mga nawawalang sabungero

July 19, 2025, 9:45 pm
Telangana Human Rights Commission (TGHRC) seeks report from revenue dept on...

Telangana Human Rights Commission (TGHRC) seeks report from revenue dept on...

July 19, 2025, 7:29 pm
Crisis-hit NHS fat cats raking in MASSIVE salaries as frontline services cry...

Crisis-hit NHS fat cats raking in MASSIVE salaries as frontline services cry...

July 19, 2025, 2:11 pm