Sample of codes in PowCobol (Accept and Display)

[fawzi]

Can someone help me by sending a sample of codes on how to program the Accept and Display statement in Power cobol of Fujitsu.
many thanks

 

[NinaToo]

I haven't used Fujitsu's Power cobol. But I believe the following sort of coding will work:

WORKING-STORAGE SECTION.

01 DATE-FIELD PIC X(8) VALUE SPACES.

[rest of Working-Storage section]

PROCEDURE DIVISION.

DISPLAY 'Enter date you want in MM/DD/YYYY format.'.
ACCEPT DATE-FIELD.

The user's input will go into the field "DATE-FIELD" and then you can do with it what you wish.

Hope this helps, Nina Too

 

[fawzi]

thank you Nina Too

this is a very simple code ... i know it (It works well in the RM/COBOL version that i use now.
But i want some samples with Screen Section using windows panel.
many thanks Fawzi - Tunisia

 

[NinaToo]

Sorry, I can't help you with that, because I'm unfamiliar with the Screen Section (we don't have this section because we're not using Fujitsu COBOL at our shop).

Nina Too

 

[BigMag]

Fawzi,

You can download Fujitsu cobol at

http://www.adtools.com/download/v3starter/

It's free
Has examples
It works
Curious as I am? Take a look, it builds windows screen sections for you, whereafter you can sift the source to the bottom.

(not that I'm promoting Fujitsu cobol, it's a great pity that version 6 is so expensive, though)

Greetings,

M. BigMag, The Netherlands.
someone@euronet.nl (no kidding!)