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
 

 

Equivalent attribute needed in COBOL for Telon(output-blank-

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

New User


Joined: 11 Dec 2006
Posts: 35
Location: India

PostPosted: Thu Apr 26, 2007 3:15 pm    Post subject: Equivalent attribute needed in COBOL for Telon(output-blank-
Reply with quote

Hi,

We are converting an Telon-IMS DC application to COBOL - IMS DC application. The screens are coded using MFS. All the Telon Input and output merge routines are replaced with COBOL logic.

In the converted COBOL-IMS DC application the 'highlighted dashes' are not appearing on the screen

eg: Name: _______

In telon the attribut fields are as follows:

Code:
05 ATTRIBUTE-VARIABLES.
   10 CURSOR-ATTR          PIC X(2) VALUE '{A'.
   10 ERROR-ATTR           PIC X(2) VALUE '{I'.
   10 OK-ATTR              PIC X(2) VALUE ' A'.
   10 PROT-ATTR            PIC X(2) VALUE ' 1'.
   10 OUTPUT-ATTR          PIC X(2) VALUE ' 0'.
   10 OUTPUT-BLANK-ATTR    PIC X(2) VALUE ' 4'.
   10 BLANK-ATTR           PIC X(2) VALUE ' 4'.
   10 CURSOR-BLANK-ATTR    PIC X(2) VALUE '{E'.
   10 INPUT-BLANK-ATTR     PIC X(2) VALUE ' E'.
   10 OUTPUT-HIGH-ATTR     PIC X(2) VALUE ' 8'.
   10 INPUT-HIGH-ATTR      PIC X(2) VALUE ' I'.

What will be the equivalent attribute for OUTPUT-BLANK-ATTR in COBOL.

Please help if there is anyother approach.

Thanks in Advance
Back to top
View user's profile Send private message

Karthigaiselvan

New User


Joined: 11 Dec 2006
Posts: 35
Location: India

PostPosted: Thu Apr 26, 2007 3:35 pm    Post subject: Help needed in converting TELON-IMS DC to COBOL - IMS DC
Reply with quote

Hi,

We are converting an Telon-IMS DC application to COBOL - IMS DC application. The screens are coded using MFS. All the Telon Input and output merge routines are replaced with COBOL logic.

In the converted COBOL-IMS DC application the 'highlighted dashes' are not appearing on the screen

eg: Name: _______

In telon the attribute fields are as follows:

Code:
05 ATTRIBUTE-VARIABLES.
10 CURSOR-ATTR PIC X(2) VALUE '{A'.
10 ERROR-ATTR PIC X(2) VALUE '{I'.
10 OK-ATTR PIC X(2) VALUE ' A'.
10 PROT-ATTR PIC X(2) VALUE ' 1'.
10 OUTPUT-ATTR PIC X(2) VALUE ' 0'.
10 OUTPUT-BLANK-ATTR PIC X(2) VALUE ' 4'.
10 BLANK-ATTR PIC X(2) VALUE ' 4'.
10 CURSOR-BLANK-ATTR PIC X(2) VALUE '{E'.
10 INPUT-BLANK-ATTR PIC X(2) VALUE ' E'.
10 OUTPUT-HIGH-ATTR PIC X(2) VALUE ' 8'.
10 INPUT-HIGH-ATTR PIC X(2) VALUE ' I'.

What will be the equivalent attribute for OUTPUT-BLANK-ATTR in COBOL.

Please help if there is any other approach.

Thanks in Advance
Back to top
View user's profile Send private message
ashwinreddy

Active User


Joined: 16 Sep 2004
Posts: 106
Location: Hyderabad

PostPosted: Fri Apr 27, 2007 2:58 pm    Post subject:
Reply with quote

Hi,

As i haven't worked much on the IMS DC, but worked on Telon extensively. I can explain you about the concept behind that attribute.

As OUTPUT-BLANK-ATTR is used to Protect with blanks.

I know this can be done in IMS DC while creating the MFS screen by giving in EATTR.

But your scenario is that the field is declared as Input-Output and if no data is entered it should be Protected and highlighted.

I can give you one suggestion if you have found out the equalent for PROT-ATTR then you can use it.

As both ( OUTPUT-BLANK-ATTR and PROT-ATTR) serve for same purpose.


Cheers
Ashwin
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 XML Parse for COBOL 5.2 Bhanu Praveen COBOL Programming 1 Sat Jul 08, 2017 8:58 pm
No new posts How to add header with Date(YYMMDD) i... Rajan Moorthy DFSORT/ICETOOL 2 Thu Jul 06, 2017 11:44 pm
No new posts JES2 doesn't honor the priority of th... Aron Lendvai JCL & VSAM 7 Thu Jun 29, 2017 1:41 pm
No new posts Dynamic output file creation in cobol... smileheal COBOL Programming 7 Thu Jun 15, 2017 10:53 pm
No new posts Search utility(3.14) using JCl and Cobol RKS3 COBOL Programming 12 Sat Jun 10, 2017 10:24 pm


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