|
View previous topic :: View next topic
|
| Author |
Message |
Saroj Tripathy
New User
Joined: 05 Mar 2007
Posts: 23
Location: India
|
|
|
|
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 |
|
 |
Saroj Tripathy
New User
Joined: 05 Mar 2007
Posts: 23
Location: India
|
|
|
|
| plz direct me to any existing post on this if available. |
|
| Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19
|
|
| Back to top |
|
|
Suthagar
New User
Joined: 01 Jul 2005
Posts: 26
Location: Chennai
|
|
|
|
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 |
|
|
Saroj Tripathy
New User
Joined: 05 Mar 2007
Posts: 23
Location: India
|
|
|
|
| i need code in pl/1 not cobol. |
|
| Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19
|
|
|
|
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 |
|
|
Saroj Tripathy
New User
Joined: 05 Mar 2007
Posts: 23
Location: India
|
|
|
|
| i have basic knowledge of pl/1 and ims db/dc. i know how to code cobol-ims db/dc pgms. |
|
| Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19
|
|
|
|
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:
|
|
| Back to top |
|
|
Baby101
New User
Joined: 09 Apr 2007
Posts: 2
Location: India
|
|
|
|
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 |
|
|
Devzee
Active Member
Joined: 20 Jan 2007
Posts: 684
Location: Hollywood
|
|
|
|
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 |
|
|
Baby101
New User
Joined: 09 Apr 2007
Posts: 2
Location: India
|
|
|
|
| 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.......  i have learnt IMS basics. |
|
| Back to top |
|
|
Sandy Zimmer
Active Member
Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE
|
|
|
|
| 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 |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19
|
|
|
|
| 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 |
|
|
johnsjames
New User
Joined: 02 Dec 2016
Posts: 2
Location: UK
|
|
|
|
| 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:
|
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 |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA
|
|
|
|
| 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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10886
Location: italy
|
|
|
|
| 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 |
|
|
johnsjames
New User
Joined: 02 Dec 2016
Posts: 2
Location: UK
|
|
|
|
| Many thanks for that Enrico, very useful, kindest regards. |
|
| Back to top |
|
|
|
|
