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
 

 

How to handle "occur=" parameter in DFHMDF

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
rajeshwarch

New User


Joined: 24 Mar 2008
Posts: 29
Location: mumbai

PostPosted: Mon Jul 07, 2008 5:32 pm    Post subject: How to handle "occur=" parameter in DFHMDF
Reply with quote

how to handle occur= parameter specified in DFHMDF macro. any relevant code sample
Back to top
View user's profile Send private message

Craq Giegerich

Senior Member


Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA

PostPosted: Mon Jul 07, 2008 6:15 pm    Post subject:
Reply with quote

I would suggest creating a map with an occurs= and looking at the output of the assembly process.
Back to top
View user's profile Send private message
rajeshwarch

New User


Joined: 24 Mar 2008
Posts: 29
Location: mumbai

PostPosted: Tue Jul 08, 2008 1:55 pm    Post subject: Reply to: How to handle "occur=" parameter in DFH
Reply with quote

ok, thanks
Back to top
View user's profile Send private message
raghav08
Currently Banned

New User


Joined: 03 Jun 2008
Posts: 94
Location: Bangalore

PostPosted: Wed Jul 09, 2008 5:35 pm    Post subject: Reply to: How to handle "occur=" parameter in DFH
Reply with quote

Hi,

In the macro

XXXXXX DFHMDF POS=(10,1),
LENGTH=2,OCCURS=5
ATTRB=(NORM,UNPROT,FSET),....

Then in the corresponding symbolic map should be,

03 XXXXXXG OCCURS 5 TIMES.
05 XXXXXXL COMP PIC S9(4).
05 XXXXXXF PICTURE X.
05 FILLER REDEFINES XXXXXXF.
07 XXXXXXA PICTURE X.
05 XXXXXXI PIC X(2).

In the screen this field will take 10 displacement (2*5=10) as contious but with different names.

In the application program, we can use a subscript (WS-I) to refer each fileld as below,
:
MOVE 1 TO WS-I
PERFORM UNTIL WS-I > 5
MOVE XXXXXXI(WS-I) TO WS-VAR(WS-I)
ADD 1 TO WS-I
END-PERFORM.
:

I hope this will help.
Back to top
View user's profile Send private message
rajeshwarch

New User


Joined: 24 Mar 2008
Posts: 29
Location: mumbai

PostPosted: Wed Jul 09, 2008 6:43 pm    Post subject: Reply to: How to handle "occur=" parameter in DFH
Reply with quote

1..I have to display that 10 similar fileds of x(7) with one blank in each.
like xxxxxxx xxxxxxx xxxxxxx xxxxxxx

2.. In program depends on some condition i have to set some fileds has protected. To dynamically set this how we r move dfhbmprot to that attribute field.
Back to top
View user's profile Send private message
Craq Giegerich

Senior Member


Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA

PostPosted: Wed Jul 09, 2008 7:01 pm    Post subject: Re: Reply to: How to handle "occur=" parameter in
Reply with quote

rajeshwarch wrote:
1..I have to display that 10 similar fileds of x(7) with one blank in each.
like xxxxxxx xxxxxxx xxxxxxx xxxxxxx

2.. In program depends on some condition i have to set some fileds has protected. To dynamically set this how we r move dfhbmprot to that attribute field.

You will get a blank between each occurrence for the attribute byte.
Back to top
View user's profile Send private message
Earl Haigh

Active User


Joined: 25 Jul 2006
Posts: 475

PostPosted: Wed Jul 09, 2008 7:03 pm    Post subject:
Reply with quote

1..I have to display that 10 similar fileds of x(7) with one blank in each.
like xxxxxxx xxxxxxx xxxxxxx xxxxxxx

2.. In program depends on some condition i have to set some fileds has protected. To dynamically set this how we r move dfhbmprot to that attribute field.


ARE THESE QUESTIONS OR STATEMENTS icon_question.gif icon_question.gif
Back to top
View user's profile Send private message
raghav08
Currently Banned

New User


Joined: 03 Jun 2008
Posts: 94
Location: Bangalore

PostPosted: Thu Jul 10, 2008 11:12 am    Post subject: Reply to: How to handle "occur=" parameter in DFH
Reply with quote

Hi,

1) For your requirement, in the macro defination OCCURS=10 and LENGTH=07

2) In my previous post i have mentioned the symbolic map structure for the filelds.

If you observe "03 XXXXXXG OCCURS 5 TIMES." This is at LEVEL 03 item with OCCURS Clause. So this OCCURS is applicable for all subsidary fields also right...Means XXXXXXL,XXXXXXF,XXXXXXA and XXXXXXI all are having 5 displacements.

Suppose if you are referring First field XXXXXXI (1) then corresponding attribute filed is XXXXXXA(1)

3) So based on your application condition just move DFHBMPRO to the corresponding attribute field XXXXXXA(1/2/3/4/5)
Back to top
View user's profile Send private message
rajeshwarch

New User


Joined: 24 Mar 2008
Posts: 29
Location: mumbai

PostPosted: Thu Jul 10, 2008 12:47 pm    Post subject:
Reply with quote

THANKS RAI
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 -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Changeman get multiple "Browse C... elixir1986 Compuware & Other Tools 4 Fri Jul 14, 2017 1:48 am
No new posts JTS parameter Shashank Chaubey JCL & VSAM 2 Thu Jul 13, 2017 4:15 pm
No new posts Include/omit with "ALL" pa... mgl DFSORT/ICETOOL 6 Wed Jun 14, 2017 2:31 pm
No new posts READ A PACKED "NEGATIVE" FI... jdesouza CA Products 3 Tue May 02, 2017 11:43 pm
No new posts RC 20 for Address ISPEXEC "ISRED... pkmurali CLIST & REXX 3 Sun Apr 16, 2017 11:30 pm


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