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

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

$
0
0
Author: johnsjames
Subject: Can I pick up on this reply to a previous query.....
Posted: Sun Dec 04, 2016 8:34 pm (GMT 5.5)

Bitneuker wrote:
Piece by piece..........first the connection to IMS in the PROC-statement and the pointers to the PCB's.

Code:

TPNSVER:  PROC(PTERM,                  <-- io-pcb
               PNLZ,                    <-- database pcb
               OPTIONS (MAIN);     

DCL (PTERM, PNLZ) PTR;         <-- pointers to the PCB's                                   


The declaration of the IO-PCB for message handling:
Code:

DCL 1 PCBPTERM BASED(PTERM),
               2  QLTNAM CHAR(8),                                       
               2  QLTRES CHAR(2),                                       
               2  QLTSTC CHAR(2),                                       
               2  QLTDAT,                                               
                3 QLTJDT FIXED DEC (7),   /* JJTTT */
                3 QLTTIM FIXED DEC (7),   /* HHMMSS,S */ 
                3 QLTSEQ FIXED BIN (31),                               
                3 QLTFMT CHAR (8);        /* FORMATNAME - MOD */ 


The declaration of the database PCB for database access:

Code:

DCL   1 PCBNLZ   BASED(PNLZ),
               2 QDBNAM CHAR (8),         /* NAME DATABASE */
               2 QDBSLEV CHAR (2),        /* SEGMENT LEVEL  */
               2 QDBSTAT CHAR (2),        /* STATUS CODE   */
               2 QDBPROP CHAR (4),        /* DL1 OPTION    */
               2 QDBRES FIXED BIN (31),   /* DL1 RESERVE                 */
               2 QDBSFB CHAR (8),         /* NAME SEGMENT RETURNED*/
               2 QDBLFBK FIXED BIN (31),  /* KEY LENGTH                  */
               2 QDBSENS FIXED BIN (31),  /* NUMBER OF SENSEG      */
               2 FBAR  CHAR(60);               /* KEY FEEDBACK AREA     */



The entry for PLITDLI:

Code:

DCL PLITDLI ENTRY;



My query - the above code will not compile with the PL/1 (F) compiler. It returns an error message to the effect that a PL/1 MAIN proc cannot accept multiple input parameters; the message tells me that only one parameter is acceptable, 100 characters long varying.

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

Thank you.


Viewing all articles
Browse latest Browse all 8500

Trending Articles