NATIV IO AREA à Daten zwischen CICS und Terminal

Formatiert: Steuerinformation | Info |

3.2. Tastatur

Übertragung auslösen (AID) Attention Identifiers

à PF1 - PF 24, Enter .... Datenübertragung, Tastencode

à PA1 - PA3, Clear ... nur Tastencode

3.3. Feld-Struktur

à unformatiert

à formatiert ... Native IO Area

Traffic Sin Register Stopper Field

Attr Byte

(z.B.

Blink) Owner: 1)

Protected MAP

Car :

1) Onprotected

Underline

Inverse

Protected

Ausgabe-Feld

S S At S S

Prefix B pbuffer F tri Daten B pbuffer F

A but A

Feld 1 Feld 2

Prefix: Erase (CLRSCR),

FREEKB

ALARM (Hupen)

SBA: set buffer adress, Bildschirmposition

pbuffer Position am Bildschirm vom Attribut

SF start field, jetzt kommen Attribute

Attr Protected,numeric,...

Daten ‛owner’

Eingabe Feld

S S

prefix B pbuffer Daten B

A A

1 Feld

Attribut - Byte

Typ Intens MDT

u Undefined

Typ 00 unprotected alphanum.

01 unprot, num.

10 protected

11 skip à springt zum nächsten Eingabefeld

Intens

Typ 00 normal

01 pen detectable

10 bright

11 dark

MDT modified data tag (zeigt an welches Feld vom Anwender verändert wurde)

Typ 0 nicht modifiziert (nur veränderte Felder werden übertragen)

1 modifiziert

4) BASIC MAPPING SUPPORT (BMS)

 

4.1. Allgemeines

 

Assembler (text)

Überschrift Makros

car: Cobol/Cics

BMS(assembliert) Move „eva“ to Ausgabe.owner

(text) Send Map

phys Map symbol Map

-ablauffähig 01 Eingabe Redefine

-ppt 05 owner

-konst Felder 05 car

05 message

01 Ausgabe copy

05 owner

...

Cobol

var Felder

4.2.1. MAPSET – DEF.

Mapset

Mapset Definitionen

Mapset DFHMSD Type={MAP|DSECT}

[MODE={IN|OUT|INOUT}]

[,LANG={ASM|COBOL|PLI|RPG}]

,STORAGE=AUTO

[,CTRL=([PRINT[,LENGHT]]|

[FREEKB][,ALARM][,FRSET])]

[,MAPATTS=({COLOR][,HILIGHT])]

[,DSATTS=([COLOR][,HILIGHT])]

,TIOAPFX = YES

DFHMSD TYPE=FINAL

TYPE.., DSECT.., nur symbolische Map

MODE, IN à reine Eingabemap, Anwender sieht nichts

OUT à Ausgabemap

INOUT à normal,

LANG.., benötigt man für Felddefinitionen

RPG.., Report Programm Generator (Bildschirmmasken)

STORAGE.., Größe des Programmes, je größer das Programm ist, desto

kleiner ist die Priorität.

CTRL.., FREEKB, Tastatur entriegeln

ALARM, Piepser

FRSET, alle Mdbbits auf 0 setzen. (Bits die bei Eingabe 1 enthalten)

PRINT, für Ausgabe am Drucker

MAPATTS.., muß identisch mit DSATTS sein !!!, Farben

DSATTS.., symbolische Map, Farben

TIOPFX.., immer yes

FINAL.., beendet Definition

4.2.2. Mapdefinition

map DFHMDI SIZE=(Line)

,LINE = number

,COLUMN = number

 

Bildschirm

2

10

20

Felddefinitionen

[fld] DFHMDF POS=(Line.column)

,LENGHT=number

[,INITIAL = `char data]

,ATTRB = ({ASKIP|PROT|

UNPORT[,NUM]}

[,{BRT|NORM|DRK}]

[,IC]

[,FSET])

[,HILIGHT = {OFF|BLINK|REVERSE|

UNDERLINE}]

[,PICIN = `picture-list]

[,PICOUT = `picture-list]

[,OCCURS = zahl]

feldname.., wird bei Konstanten Namen nicht angegeben

ist dann auch der Name im Cobolprogramm

POS.., Position des Attributbytes, relativ zur Map

LENGHT.., ohne Attributbyte

INITIAL.., Überschriften,‛owner:‛

ATTRIBUT.., IC à Cursor soll blinken

FSET à MDBBIT wird auf 1 gesetzt

HILIGHT..,

PICIN/OUT, Picout `99V99`, es kann ein Cobolformat angegeben werden

OCCURS, Gleiche Felder z.B. für Tabellen können kopiert werden

OCCURS= 10 , 10 Kopien

4.3. Symbolische Map

Suffix

 

L.., Längenfeld

Eingabemap: #Zeichen, vom Benutzer eingegeben

Ausgabemap: ‚FFFF’hex [+IC(Felddef)]à Cursorposition

Move –1 TO Feld1L

Send Map

A.., Attributfeld

Eingabemap: Siehe Flagfeld

Ausgabemap: COPYBOOK DFHBMSCA

Move DFHBMUNP TO Feld1A

Send Map

F.., Flagfeld

Eingabemap: `80`hex à CLRFLD – Taste gedrückt (à Feld I = Low Value)

`00`hex à nicht CLRFLD

Ausgabemap: Siehe Attr - Feld

Send Map

Receive Map (Nur Adam wurde)

(Feld 1 Feld2) (eingegeben)

 

nicht gefunden Feld 1