Dieses Kapitel enthält zusätzliche Informationen zu den von Natural unterstützten Ein-/Ausgabegeräten.
Folgende Themen werden behandelt:
Natural unterstützt eine Vielzahl von Terminaltypen für die Verwendung mit Großrechnern.
In TP-Monitor-Umgebungen, in denen die Informationen zum Terminaltyp nicht automatisch an
Natural geliefert werden, können Sie den Natural-Profilparameter TTYPE verwenden, damit
Natural die entsprechende Konvertierungsroutine zum Betrieb eines bestimmten Terminaltyps
aktivieren kann.
Links zu verwandten Themen:
Terminal-Kommunikation - Profilparameter sortiert nach Kategorien (Parameter-Referenz-Dokumentation)
NATCONFG-Modul (verschiedene Themen zur E/A-Umsetzung)
Die Unterstützung von Lichtstiften wurde durch das Terminalkommando %RM verbessert. Dieses
Kommando bewirkt, dass alle lichtstiftempfindlichen Felder auf dem Bildschirm
schreibgeschützt werden, d.h. der Benutzer kann sie mit einem Lichtstift anwählen, aber
ihren Inhalt nicht überschreiben.
Damit ein Feld lichtstiftempfindlich ist, muss es intensiviert (Session-Parameter
AD=I) oder blinkend
(AD=B) dargestellt werden, und das erste Zeichen des Feldes muss ein
Lichtstift-Funktionszeichen sein (siehe unten). Die Auswahl eines Feldes mit einem
Lichtstift bewirkt eine Änderung des Funktionszeichens, daher können Sie die Verarbeitung
von mit einem Lichtstift ausgewählten Feldern von den Werten der Funktionszeichen abhängig
machen.
Die folgenden Lichtstift-Funktionszeichen sind verfügbar:
| Zeichen | Bedeutung |
|---|---|
?
|
Sie können mehrere Felder auswählen, bevor Sie ENTER drücken. |
> |
Es wurde ausgewählt, und wenn es erneut ausgewählt wird, wird es zu einem
Fragezeichen ?. Die Zeichen ? und >
wechseln sich ab.
|
&
|
Sie können nur ein Feld auswählen und es wird als ENTER sowohl für das Feld als auch für das MDT (Modified Data Tag) verwendet. |
' ' (leer)
|
Sie können nur ein Feld auswählen, und es wird nur das MDT angezeigt. |
Bei Funktionszeichen müssen Sie zwischen Auswahlfeldern (?,
>) und Achtungsfelder (&, leer oder Null) unterscheiden.
Auswahlfelder lösen keine sofortige Datenübertragung aus, so dass Sie mehrere Felder
auswählen können. Achtungsfelder führen zu einer sofortigen Aktion.
Die Taste SELECT CURSOR emuliert eine Auswahl mit dem Lichtstift. Wenn Sie den Cursor auf das Feld bewegen, das Sie auswählen möchten, und SELECT CURSOR drücken, wird dieses Feld ausgewählt.
RESET #FIELD-1 (A8)
#FIELD-2 (A8) #FIELD-3 (A8) #CV-1 (C) #CV-2 (C) #CV-3 (C)
SET KEY ALL
/* SET CONTROL 'RM' IS A TOGGLE. AFTER IT IS EXECUTED ONCE MAKE IT A
/* COMMENT, SO THAT YOU DO NOT TOGGLE IT 'OFF'.
**SET CONTROL 'RM'
REPEAT
IF *PF-KEY NOT = 'ENTR' AND *PF-KEY NOT = 'PEN' ESCAPE BOTTOM
MOVE (AD=I CD=YE) TO #CV-1
MOVE (AD=I CD=RE) TO #CV-2
MOVE (AD=I CD=BL) TO #CV-3
MOVE ' FIELD-1' TO #FIELD-1
MOVE '&FIELD-2' TO #FIELD-2
MOVE '?FIELD-3' TO #FIELD-3
INPUT (SG=OFF IP=OFF)
01/01 #FIELD-1 (CV=#CV-1 AD=M)
03/01 #FIELD-2 (CV=#CV-2 AD=M)
05/01 #FIELD-3 (CV=#CV-3 AD=M)
WRITE 'PF-KEY =' *PF-KEY
IF #CV-1 MODIFIED WRITE '#CV-1 MODIFIED' #FIELD-1
IF #CV-2 MODIFIED WRITE '#CV-2 MODIFIED' #FIELD-2
IF #CV-3 MODIFIED WRITE '#CV-3 MODIFIED' #FIELD-3
LOOP
END
Folgende Themen werden behandelt:
In einem Natural-Programm können Sie Steuerzeichen für den Druckervorschub mit dem
Statement DEFINE PRINTER
wie folgt erzeugen:
.... DEFINE PRINTER (n) OUTPUT 'name' DEFINE PRINTER (n+1) OUTPUT 'CCONTROL' ....
Beide DEFINE PRINTER-Statements wirken zusammen, so dass alle
Natural-Ausgaben für den Drucker (n) den
normalen Natural-Report-Ausgaberegeln folgen und alle Natural-Ausgaben für den Drucker
(n+1) auch auf den Drucker
(n) geschrieben werden. Natural erzeugt für
diesen Report kein Druckervorschubsteuerzeichen. Daher ist das erste Zeichen in der
Ausgabevariablen das Steuerzeichen.
Mit dieser Methode ist es möglich, Steuerzeichen für Laserdruckersysteme und Kanalvorschubzeichen für Zeilendrucker in einem normalen Natural-Ausgabereport zu mischen.
- Natural-Programmbeispiel für Drucker-Vorschubsteuerzeichen
Die entsprechenden hexadezimalen Daten in der Spooldatei, beginnend mit Spalte
0, sind:I..I..I..I..I..I..I..I..I..I..I..I..I..I..I F1 E3 C5 E2 E3 1 T E S T 4E E3 C5 E2 E3 + T E S T 5A ....
CCONTROList der Name einer speziellen Druckersteuertabelle, die dem Druckern-1zugeordnet ist. Dieser Name darf nicht geändert werden.
Natural unterstützt Laserdruckersysteme des Typs IBM 3800.
Mit dem Statement DEFINE
PRINTER können Sie einen Report für das Druckersystem 3800 steuern
und zuordnen. Mit diesem Statement können Sie festlegen, dass die Natural-Druckausgabe
für Report 1 an ein Druckersystem 3800 weitergeleitet wird.
DEFINE PRINTER (1) OUTPUT 'LAS3800' I I => 1-31 for CMPRT01 to CMPRT31 ....
Je nach Einstellung des Parameters INTENS wiederholt Natural jede Zeile bis zu
viermal und erkennt die Natural-Attribute AD=D, AD=I,
AD=C und AD=V (siehe Session-Parameter AD).
Die erste Zeile enthält in der ersten Spalte den ASA-Steuercode und in der zweiten
Spalte das 3800-Font-Steuerzeichen (hexadezimal F0) für den ersten Font.
Die Spalten 2 bis nnn enthalten die
Druckdaten, die nicht mit dem Attribut AD=I, AD=C oder
AD=V gekennzeichnet sind.
Die zweite Zeile enthält in der ersten Spalte den ASA-Steuercode + (für
Druck ohne Zeilenvorschub) und in der zweiten Spalte das 3800-Font-Steuerzeichen
(hexadezimal F1) für den zweiten Font. Die Spalten 2 bis
nnn enthalten die Druckdaten, die mit
AD=I gekennzeichnet sind.
Die dritte Zeile enthält in der ersten Spalte den ASA-Steuercode + (für
Druck ohne Zeilenvorschub) und in der zweiten Spalte das 3800-Font-Steuerzeichen
(hexadezimal F2) für die dritte Schriftart. Die Spalten 2 bis
nnn enthalten die Druckdaten, die mit
AD=C gekennzeichnet sind.
Die vierte Zeile enthält in der ersten Spalte den ASA-Steuercode + (für
Druck ohne Zeilenvorschub) und in der zweiten Spalte das 3800-Font-Steuerzeichen
(hexadezimal F3) für den vierten Font. Die Spalten 2 bis
nnn enthalten die Druckdaten, die mit
AD=V gekennzeichnet sind.
Wenn INTENS mit einem Wert kleiner als 4 angegeben wird,
werden alle nicht unterstützten Schriften mit dem Hexadezimalzeichen F0
gedruckt.
- Beispiel für ein Natural-Programm zur Verwendung von Laserdruckern
Die entsprechenden hexadezimalen Daten in der Spooldatei, beginnend mit Spalte
0, sind:I..I..I..I..I..I..I..I..I..I..I..I..I..I..I..I..I..I..I..I..I..I..I 40 F0 C6 C9 D9 E2 E3 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 (hex) 0 F I R S T 4E F1 40 40 40 40 40 40 E2 C5 C3 E4 D5 C4 C4 40 40 40 40 40 40 40 (hex) + 1 S E C O N D 4E F2 40 40 40 40 40 40 40 40 40 40 40 40 40 E3 C8 C9 D9 D4 40 40 (hex) + 2 T H I R D 4E F3 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 C5 (hex) + 3 F- Beispiel-JCL für die Verwendung von Laserdruckern
.... //xxxx JOB xxxxx,.... . //xxxxx EXEC PGM= XXXXXX;...... . // PARM='INTENS=4,XXXX,....... . . //OUT1 OUTPUT PAGEDEF=XXXX,FORMDEF=XXXX,TRC=ON . I I . I I => 3800 form definition . I . I => 3800 page definition . //CMPRT01 DD SYSOUT=Y // DCB=(RECFM=FBA,LRECL=133),OUTPUT=*,OUT1 // CHARS=(WWWW,XXXX,YYYY, ZZZZ) I I => IBM font names ...