Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

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

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
View previous topic :: :: View next topic  
Author Message
Saroj Tripathy

New User


Joined: 05 Mar 2007
Posts: 23
Location: India

PostPosted: Sun Mar 11, 2007 1:17 pm    Post subject: Can anybody provide a sample PL/1-IMS DB/DC PGM
Reply with quote

the code should have the io-pcb mask,db-pcb mask,entry statement and other sample code.

if there is existing material for this plz direct me there.
Back to top
View user's profile Send private message

Saroj Tripathy

New User


Joined: 05 Mar 2007
Posts: 23
Location: India

PostPosted: Sun Mar 11, 2007 1:23 pm    Post subject: Also I need a PSB control statement block for the IO-PCB .
Reply with quote

plz direct me to any existing post on this if available.
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Mon Mar 12, 2007 3:12 pm    Post subject:
Reply with quote

click
Back to top
View user's profile Send private message
Suthagar

New User


Joined: 01 Jul 2005
Posts: 26
Location: Chennai

PostPosted: Mon Mar 12, 2007 4:28 pm    Post subject: Re: Can anybody provide a sample PL/1-IMS DB/DC PGM
Reply with quote

Hello Saroj,

This is Suthagar,

Which part of the code you need (i.e., IO-PCB, DB-PCB mask declerations) Since here I have a code with IMSDB/DC and COBOL.

But I am unable to provide the whole code man.

Regards,
Suthagar Shanmugam.
Back to top
View user's profile Send private message
Saroj Tripathy

New User


Joined: 05 Mar 2007
Posts: 23
Location: India

PostPosted: Tue Mar 20, 2007 4:10 pm    Post subject:
Reply with quote

i need code in pl/1 not cobol.
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Tue Mar 20, 2007 4:33 pm    Post subject:
Reply with quote

In order to find out how detailed it has to be please answer this question:

What knowledge do you have of IMS DB/DC and PL/I?
Back to top
View user's profile Send private message
Saroj Tripathy

New User


Joined: 05 Mar 2007
Posts: 23
Location: India

PostPosted: Wed Mar 21, 2007 9:30 am    Post subject: Re: Can anybody provide a sample PL/1-IMS DB/DC PGM
Reply with quote

i have basic knowledge of pl/1 and ims db/dc. i know how to code cobol-ims db/dc pgms.
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Wed Mar 21, 2007 3:40 pm    Post subject:
Reply with quote

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;
Back to top
View user's profile Send private message
Baby101

New User


Joined: 09 Apr 2007
Posts: 2
Location: India

PostPosted: Mon Apr 09, 2007 1:24 pm    Post subject: Re: Can anybody provide a sample PL/1-IMS DB/DC PGM
Reply with quote

Hi Bitneuker and every one......

m new for IMS and pli. Can you please just elaborate your code....
I want to code IMS screens in front end and backend m using PL/1. Could you please Guide me , how can i code IMS screens and what tools we need to write the same .......Can Corba be used as interface for pl/1 and IMS screens . I am totally new for all these concepts
Back to top
View user's profile Send private message
Devzee

Active Member


Joined: 20 Jan 2007
Posts: 684
Location: Hollywood

PostPosted: Wed Apr 11, 2007 11:44 am    Post subject:
Reply with quote

Baby101,

I would suggest you to go thru some IMS materials before starting so that you get an understanding of IMS.

Quote:
Can Corba be used as interface for pl/1 and IMS screens

Are you referring to CORBA that is middleware no way related to IMS DC PL1 and IMS DC Online screens.

OK..here is what you need for developing IMS screens in front end and back end PL1.
1. MFS - Screens are developed using MFS
2. PSB - You need for online transactions
3. DBD - Do you have database?
4. PL1 programs with IMS calls.
Back to top
View user's profile Send private message
Baby101

New User


Joined: 09 Apr 2007
Posts: 2
Location: India

PostPosted: Mon Jul 02, 2007 11:54 am    Post subject:
Reply with quote

Devzee wrote:
Baby101,

I would suggest you to go thru some IMS materials before starting so that you get an understanding of IMS.

Quote:
Can Corba be used as interface for pl/1 and IMS screens

Are you referring to CORBA that is middleware no way related to IMS DC PL1 and IMS DC Online screens.

OK..here is what you need for developing IMS screens in front end and back end PL1.
1. MFS - Screens are developed using MFS
2. PSB - You need for online transactions
3. DBD - Do you have database?
4. PL1 programs with IMS calls.


Thanks Devzee....... icon_smile.gif i have learnt IMS basics.
Back to top
View user's profile Send private message
Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Thu Jul 05, 2007 3:21 am    Post subject:
Reply with quote

Don't forget to define the transactions (which will be coded in the MFS) and the ACB gen. The way I used to do it - design the database - do the DBD gen - you cannot gen a PSB without the DBD. Gen all the online transactions (do the ACB gen) - design the screens - code the PSB based on what you need to do. Design the MFS based on what you need to do. Then code your program in whatever language.
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Thu Jul 05, 2007 3:18 pm    Post subject:
Reply with quote

In addition to what Sandy wrote: have a look at the sticky where the DBD- and PSBGEN are coded. I will extend it with an exemple of MFS and ACNGEN later.
Back to top
View user's profile Send private message
johnsjames

New User


Joined: 02 Dec 2016
Posts: 2
Location: UK

PostPosted: Sun Dec 04, 2016 8:34 pm    Post subject: Can I pick up on this reply to a previous query.....
Reply with quote

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.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7935
Location: Bellevue, IA

PostPosted: Sun Dec 04, 2016 9:23 pm    Post subject:
Reply with quote

johnsjames, when you have a new question you should start a new topic -- not piggyback on the tail end of a topic for which the last response was 9 1/2 years ago.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10211
Location: italy

PostPosted: Mon Dec 05, 2016 4:05 am    Post subject: Reply to: Can anybody provide a sample PL/1-IMS DB/DC PGM
Reply with quote

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


NO!

an old IMS 1.5 manual states that that the minimum supported pl/1 is the pl/1 OPTIMIZER compiler,
successor to pl/1 F
Back to top
View user's profile Send private message
johnsjames

New User


Joined: 02 Dec 2016
Posts: 2
Location: UK

PostPosted: Mon Dec 05, 2016 11:56 pm    Post subject:
Reply with quote

Many thanks for that Enrico, very useful, kindest regards.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts A sample of exit program for exit XMN... lind sh CICS 2 Mon Oct 03, 2016 5:07 pm
No new posts Can I use sort to select sample recor... Steve Ironmonger DFSORT/ICETOOL 3 Tue Nov 10, 2015 10:02 pm
No new posts sample report program kiran_65 COBOL Programming 4 Sat Jun 06, 2015 4:19 pm
No new posts Does SORT provide LRECL in programming? jacobdng DFSORT/ICETOOL 5 Fri Mar 20, 2015 12:50 pm
No new posts IRXLOAD Sample Example iqbal.mallick CLIST & REXX 6 Tue Apr 01, 2014 6:49 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us