home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
cobol
/
library
/
cobolwi
/
ufco035.cbl
< prev
next >
Wrap
Text File
|
1993-07-28
|
2KB
|
62 lines
* MS Cobol/ MF Cobol2
* ufco035.cbl - example for dynamic attribut modification
* attribut file <testfmt.att>
* ---------------------------
* Format-Textattribut: 9
* Format-Rahmenattribut: 11
*
* 05 fld0 PIC X(12).
* Distanzen in Bereich <Daten>: Feldattribut: 501 Feldtyp: 503
* 05 fld1 PIC S9999999 value 0.
* Distanzen in Bereich <Daten>: Feldattribut: 508 Feldtyp: 510
* 05 fld2 PIC X(40).
* Distanzen in Bereich <Daten>: Feldattribut: 515 Feldtyp: 517
*
identification division.
program-id. ufco035.
environment division.
data division.
working-storage section.
COPY testfmt.
COPY ufco03.
procedure division.
anf-section.
anf-000.
call "MOUSEON"
COPY testfm1.
anf-001.
* normal output
move " output with generated attributes ! " to fld2.
move 0 to SM.
move 2 to FKZ.
move 55 to RET.
move "testfmt " to FMT.
call "UNIF" using FKZ FMT fld0 RET SM Daten.
anf-002.
* change colour of field1 and field2 (ASCII 15, ASCII 7)
move " new colour for fld0 and fld1 ! " to fld2.
move "" to Datr(501).
move "" to Datr(508)
move 3 to FKZ.
move 55 to RET.
call "UNIF" using FKZ FMT fld0 RET SM Daten.
anf-003.
* change access of field1 and field2
move " new access for fld0 and fld1 ! " to fld2.
move "a" to Datr(503).
move "a" to Datr(510)
move 3 to FKZ.
move 55 to RET.
call "UNIF" using FKZ FMT fld0 RET SM Daten.
anf-004.
* cange attribut of text and frame (ASCII 112, ASCII 44)
move " new colour for text and frame ! " to fld2.
move "p" to Datr(9).
move "," to Datr(11)
move 2 to FKZ.
move 55 to RET.
call "UNIF" using FKZ FMT fld0 RET SM Daten.
anf-009.
call "MOUSEOFF"
stop run.