MQSeries.net :: View topic - Redifines at 01 Level???

MQSeries.net

Tech Exchange

Education

Certifications

Library

Info Center

SupportPacs

FAQÂ Â

Usergroups

RSS Feed - WebSphere MQ Support

RSS Feed - Message Broker Support

MQSeries.net Forum Index » WebSphere Message Broker (ACE) Support » Redifines at 01 Level???

Redifines at 01 Level???

« View previous topic :: View next topic »

Author

Message

mbprimer

Posted: Sun Mar 25, 2007 8:45 pm Post subject: Redifines at 01 Level???

Novice

Joined: 25 Mar 2007
Posts: 21

Is Redefines allowed at 01 Level when importing Copybook to create Msg set???

I have the Following Copybook.
01 GL-DTL-REC.
05 GL-REC-TYP PIC X(01).
05 GL-STATE PIC X(02).
05 GL-NAME PIC X(05).
05 GL-NUM PIC X(17).
01 GL-TRAILER-REC REDEFINES
GL-DTL-REC.
05 GL-TRLR-ID PIC X(01).
88 TRAILER VALUE 'C'.
05 GL-TOTAL-DTL-RECS PIC 9(05).
05 FILLER PIC X(19).

Is this one valid for creating for Msgset?

kimbert

Posted: Mon Mar 26, 2007 2:29 pm Post subject:

Jedi Council

Joined: 29 Jul 2003
Posts: 5542
Location: Southampton

You can probably create a message set from it, but it might not be very useful. This is really defining a choice of two different structures. MRM CWF will not automatically resolve that choice for you. If all of the data is character data, you might be able to model it using MRM TDS - that way, you could use the discriminator field as a tag and get the choice resolved automatically. It all depends on the exact format of the messages.
More details required...

mbprimer

Posted: Mon Mar 26, 2007 7:01 pm Post subject: Redifines at 01 Level???

Novice

Joined: 25 Mar 2007
Posts: 21

Kimbert,

As the Input data is coming from External(org..) Mainframe system and not all of the data is character type.It contains decimal and character data types. So TDS is ruled out.

If we move the redefines to 05 level will it works??

Looking forward how to proceed.
Thanks.

Bill.Matthews

Posted: Mon Mar 26, 2007 7:33 pm Post subject:

Master

Joined: 23 Sep 2003
Posts: 232
Location: IBM (Retired)

Consider this definition:

01 GL-DTL-REC.
05 GL-REC-TYP PIC X(01).
88 TRAILER VALUE 'C'.
05 GL-OVERLAY-REC.
15 GL-STATE PIC X(02).
15 GL-NAME PIC X(05).
15 GL-NUM PIC X(17).
05 GL-TRAILER-REC REDEFINES GL-OVERLAY-REC.
15 GL-TOTAL-DTL-RECS PIC 9(05).
15 FILLER PIC X(19).

If InputBody.GL_REC_TYP = 'C' Then -- Its a trailer

The first character tells you whic of the redefines that you need to use..
_________________
Bill Matthews

mbprimer

Posted: Tue Mar 27, 2007 6:00 pm Post subject: Redefines at 01 level

Novice

Joined: 25 Mar 2007
Posts: 21

Thanks Kimbert and Bill.

the mainframe developers decided to mention the detail record count i.e
GL-TOTAL-DTL-RECS in the starting. They are not going to use redefines.

Display posts from previous:

Page 1 of 1

MQSeries.net Forum Index » WebSphere Message Broker (ACE) Support » Redifines at 01 Level???

Jump to:

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

Protected by Anti-Spam ACP