IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

COBOL copybook to Focus


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
anandgbe

New User


Joined: 03 Mar 2016
Posts: 14
Location: India

PostPosted: Wed Jul 31, 2019 11:52 am
Reply with quote

I have a COBOL copybook. My requirement is to convert this into Focus MFD component.

Unfortunately, I have no interface to test the Focus component. so please help on this.

Copybook sample layout:
01 COPYBOOK
05 WS-NAME PIC X(10).
05 WS-AGE PIC 9(2).
05 WS-A PIC 9(2)V9(2).
05 WS-B PIC S9(2)V9(2).
05 WS-C PIC S9(3) COMP.
05 WS-D PIC S9(3) BINARY.
05 WS-E PIC S9(8)V9(2) COMP-3.

Only thing that i am aware is, we have to use usage=A for alphnumeric.

I am unsure what usage/actual value need to use for numeric fields(Comp/comp-3/packed decimal)

Could you please help me to translate this to FOCUS?

Already I searched in manual available with me, but i didnt get any idea how to create.

My try is given below:
FILE=MFDCOPY ,SUFFIX=FIX
SEGNAME=MFDCOPY, SEGTYPE=S1
FIELDNAME=WS-NAME ,ALIAS=NAME ,USAGE=A10 ,ACTUAL=A10,$
FIELDNAME=WS-AGE ,ALIAS=AGE ,USAGE=??? ,ACTUAL=???,$
Back to top
View user's profile Send private message
anandgbe

New User


Joined: 03 Mar 2016
Posts: 14
Location: India

PostPosted: Wed Jul 31, 2019 12:37 pm
Reply with quote

I got complete info from this link icon_biggrin.gif icon_biggrin.gif icon_biggrin.gif

https://infocenter.informationbuilders.com/wf81rel/index.jsp?topic=%2Fpubdocs%2Freporting%2FDescribingDataWithWFLanguage%2Fsource%2Fdif43.htm
Back to top
View user's profile Send private message
anandgbe

New User


Joined: 03 Mar 2016
Posts: 14
Location: India

PostPosted: Wed Jul 31, 2019 1:28 pm
Reply with quote

oh, the above info from link is for WEBFOCUS. Is there any different between FOCUS and WEBFOCUS in datattype handling/declaring way?

Could someone please confirm whether the below mentioned Focus is correct?

FILE=MFDCOPY ,SUFFIX=FIX
SEGNAME=MFDCOPY, SEGTYPE=S1
FIELDNAME=WS_NAME ,ALIAS=NAME ,USAGE=A10 ,ACTUAL=A10,$
FIELDNAME=WS_AGE ,ALIAS=AGE ,USAGE=P2 ,ACTUAL=Z2,$
FIELDNAME=WS_A ,ALIAS=A ,USAGE=P4.2 ,ACTUAL=Z4.2,$
FIELDNAME=WS_B ,ALIAS=A ,USAGE=P5.2 ,ACTUAL=Z4.2,$
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK

PostPosted: Wed Jul 31, 2019 4:51 pm
Reply with quote

The above link is not found.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Wed Jul 31, 2019 7:52 pm
Reply with quote

try
infocenter.informationbuilders.com/wf81rel/index.jsp?topic=%2Fpubdocs%2Freporting%2FDescribingDataWithWFLanguage%2Fsource%2Fdif43.htm

Nic, if You edit the original post You will see why ..
the link and the link description are switched
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK

PostPosted: Wed Jul 31, 2019 8:18 pm
Reply with quote

I'm always having trouble trying to post links - never seem to get it right first time! However, I do test them after posting to ensure that they work - which obviously not done above.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Wed Jul 31, 2019 9:01 pm
Reply with quote

Yes...
the URL tag usage is pretty confusing

easier to type the description and after that paste the url
Back to top
View user's profile Send private message
anandgbe

New User


Joined: 03 Mar 2016
Posts: 14
Location: India

PostPosted: Thu Aug 01, 2019 6:32 pm
Reply with quote

Thanks enrico-sorichetti for posting the link!


Could you please confirm whether the FOCUS MFD posted in my previous is correct? or any correction needed?
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts Replace each space in cobol string wi... COBOL Programming 3
No new posts COBOL -Linkage Section-Case Sensitive COBOL Programming 1
No new posts COBOL ZOS Web Enablement Toolkit HTTP... COBOL Programming 0
No new posts Calling DFSORT from Cobol, using OUTF... DFSORT/ICETOOL 5
No new posts Generate random number from range of ... COBOL Programming 3
Search our Forums:

Back to Top