TN5250S

TN5250S

TN5250S (RPGLE)

H

H

*COPYRIGHT JÜRGEN REULE 2019-2024

H

H

BNDDIR('QC2LE':'TN5250S')

H

DATFMT(*ISO) TIMFMT(*ISO)

H

DFTACTGRP(*NO) ACTGRP('QILE')

H

COPYRIGHT('COPYRIGHT JÜRGEN REULE 2019-2024')

H

F

TN5250P

I

F

E

K

DISK

USROPN

F

D

TN5250DS

E

DS

INZ EXTNAME(TN5250P)

D

TN5250DSLEN

C

CONST(%SIZE(TN5250DS))

D

D

STEP

S

5

U

0

INZ

D

LEVEL

S

5

S

0

INZ

D

D

LABEL

DS

INZ

D

LABEL1

1

A

INZ

D

LABEL2

1

A

INZ

D

LABEL3

1

A

INZ

D

LABELX

S

INZ LIKE(LABEL)

D

LABELX$

S

INZ LIKE(LABEL)

D

LABELLEN

C

CONST(%SIZE(LABEL))

D

D

EXTRAS

S

1

A

INZ

D

D

SESSION

DS

D

SESSIONADD

1

A

INZ

D

SESSION8

8

A

INZ

D

SESSIONADDX

1

A

INZ

D

D

SESSIONX

DS

D

SESSIONXADD

1

A

D

SESSIONX8

8

A

D

SESSIONXADDX

1

A

D

D

SESSIONPOSX

S

5

S

0

INZ

D

SESSIONLENX

S

5

S

0

INZ

D

D

SESSIONADDXX

S

1

A

INZ

D

D

SESSION8LEN

C

CONST(%SIZE(SESSION8))

D

D

NAMEADD

C

CONST('T')

D

NAMEADDX

C

CONST('X')

D

D

INPUTQ

S

10

A

INZ

D

INPUTQLIB

S

10

A

INZ('*CURLIB')

D

INPUTADDX

C

CONST('I')

D

INPUTMAXLEN

C

CONST(64512)

D

INPUTWAIT

C

CONST(60)

D

INPUTWAIT2

C

CONST(86400)

D

INPUTWAITX

S

5

P

0

INZ

D

D

SCREENQ

S

10

A

INZ

D

SCREENQLIB

S

10

A

INZ('*CURLIB')

D

SCREENADDX

C

CONST('S')

D

SCREENMAXLEN

C

CONST(64512)

D

SCREENWAIT

C

CONST(20)

D

SCREENWAITX

S

5

P

0

INZ

D

D

DTALEN

S

5

P

0

INZ

D

D

REMOTE

S

3

P

0

INZ

D

REMOTEX

S

3

P

0

D

D

DEVNAMEX

S

10

S

0

INZ

D

D

RAND

S

5

S

0

INZ

D

D

NUM

S

31

S

0

INZ

D

STR

S

32

A

INZ

D

STRPM

S

1

A

INZ

D

STRX

S

INZ LIKE(STR)

D

STRXLEN

C

CONST(%SIZE(STRX))

D

D

DATEMIN

C

CONST('Thu, 01 Jan 1970 +

D

00:00:00 GMT')

D

D

COLOR

C

CONST('color:')

D

BGCOLOR

C

CONST('background-color:')

D

BBCOLOR

C

CONST('border-bottom-color:')

D

HICOLOR

C

CONST('-webkit-tap-highlight-color:')

D

D

RGBA

C

CONST('rgba(255,255,255,0)')

D

RGBB

C

CONST('rgba(255,255,255,0.4)')

D

RGBX

C

CONST('rgba(255,255,255,1.0)')

D

D

ANIMATIONBLINK

C

CONST('animation:blink +

D

1s linear infinite')

D

D

KEYFRAMESBLINK

C

CONST('keyframes blink { 50% { +

D

color:rgba(255,255,255,0); }}')

D

D

TITLE$

C

CONST('document.title')

D

D

HEAD$

C

CONST('document.getElementById+

D

("header").innerHTML')

D

SCREEN$

C

CONST('document.getElementById+

D

("screen").innerHTML')

D

SUBMIT$

C

CONST('document.getElementById+

D

("submit").innerHTML')

D

KEYBOARD$

C

CONST('document.getElementById+

D

("keyboard").innerHTML')

D

DEBUG$

C

CONST('document.getElementById+

D

("debug").innerHTML')

D

D

SHOWLINK

C

CONST(' href="javascript:void(0)"')

D

D

JSPROMPT

C

CONST(' style="cursor:pointer" +

D

onmousedown="return false" +

D

onclick="void(window.+

D

setTimeout(+

D

''eval(prompt(+

D

\''\'',\''+

D

t=document.+

D

getElements+

D

ByTagName(+

D

"td+

D

")[0].+

D

innerText;+

D

alert(+

D

t.substr(1,7).+

D

trim()?+

D

t.substr(11,70).+

D

trim():+

D

t.substr(1,70).+

D

trim());+

D

\''))'', 0))"')

D

D

JSPROMPTX

C

CONST(' style="cursor:pointer" +

D

onmousedown="return false" +

D

onclick="void(window.+

D

setTimeout(+

D

''eval(prompt(+

D

\''\'',\''+

D

alert(+

D

document.+

D

getElements+

D

ByTagName(+

D

"input+

D

")[0].+

D

offsetWidth)+

D

\''))'', 0))"')

D

D

DATETIME

S

Z

INZ

D

DATETIME2

S

Z

INZ

D

DATETIME3

S

Z

INZ

D

D

METHOD

S

10

A

INZ

D

METHODLEN

C

CONST(%SIZE(METHOD))

D

D

ENVRCV

S

32767

A

INZ

D

ENVRCVLEN

C

CONST(%SIZE(ENVRCV))

D

ENVLEN

S

10

I

0

INZ

D

D

DATAPTR

S

*

INZ

D

DATALEN

S

10

I

0

INZ

D

DATABUF

S

32767

A

BASED(DATAPTR)

D

DATABUFLEN

C

CONST(%SIZE(DATABUF))

D

D

FORMTYPE

S

200

A

INZ

D

DATATYPE

S

64

A

INZ

D

FILETYPE

S

INZ LIKE(DATATYPE)

D

D

SET

S

1

A

INZ

D

ERR

S

1

A

INZ

D

AID

S

1

A

INZ

D

FKEY

S

1

A

INZ

D

MORE

S

1

A

INZ

D

FLAGS1

S

1

A

INZ

D

FLAGS2

S

1

A

INZ

D

RELOAD

S

1

A

INZ

D

REDIRECT

S

1

A

INZ

D

REDIRECTX

S

1

A

INZ

D

D

RESCC

S

1

A

INZ

D

NOIC

S

1

A

INZ

D

BLINK

S

1

A

INZ

D

UNLOCK

S

1

A

INZ

D

ALARM

S

1

A

INZ

D

MESSAGE

S

1

A

INZ

D

READWAIT

S

1

A

INZ

D

D

SO

S

10

A

INZ('•') VARYING

D

SI

S

10

A

INZ('•') VARYING

D

D

ATR1

S

10

A

INZ('•') VARYING

D

ATR2

S

10

A

INZ('•') VARYING

D

ATR3

S

10

A

INZ('•') VARYING

D

ATRX

S

10

A

INZ('•') VARYING

D

D

CTRL

S

10

A

INZ('•') VARYING

D

D

DBCS

S

10

A

INZ('•') VARYING

D

D

DSPF

C

CONST('Bildschirmdatei')

D

DSPFX

C

CONST('Datei anzeigen')

D

D

RTVCLNUP1

C

CONST('Bereinigung')

D

RTVCLNUP2

C

CONST('wiederaufnehmen')

D

D

RTVCLNUP

C

CONST('Bereinigung wiederaufnehmen')

D

RTVCLNUPX

C

CONST('Bereinigungswerte auffinden')

D

D

RTVCLNUPBAS

C

CONST('Bereinigung wiederaufnehme')

D

RTVCLNUPBASX

C

CONST('Bereinigungswerte auffinde')

D

D

RTVCLNUPPDM

C

CONST('Bereinigung wiederau')

D

RTVCLNUPPDMX

C

CONST('Bereinigungswerte au')

D

D

RTVCLNUPEXT

C

CONST('Bereinigung wieder')

D

RTVCLNUPEXTX

C

CONST('Bereinigungswerte ')

D

D

ATR$MENU

S

1

A

INZ(X'3A')

D

ATR$NAME

S

1

A

INZ(X'30')

D

ATR$NAMEX

S

1

A

INZ(X'20')

D

D

REPLACE$

S

1

A

INZ(X'2A')

D

REPLACE$X

S

1

A

INZ(X'20')

D

REPLACE$XX

S

1

A

INZ(X'22')

D

D

RGB6

S

6

A

INZ

D

RGB3

DS

D

R

3

U

0

INZ

D

G

3

U

0

INZ

D

B

3

U

0

INZ

D

D

ROUND

S

5

S

0

INZ

D

ROUND2

S

5

S

0

INZ

D

ROUND21

C

CONST(5)

D

ROUND22

C

CONST(100)

D

D

TIMEOUT

S

5

U

0

INZ

D

TIMEOUT0

C

CONST(0)

D

TIMEOUT1

C

CONST(1)

D

TIMEOUT2

C

CONST(2)

D

TIMEOUT3

C

CONST(6)

D

TIMEOUT4

C

CONST(12)

D

TIMEOUT5

C

CONST(20)

D

D

CLOSE1WAIT

C

CONST(6)

D

D

ALPHA4

C

CONST('0.4')

D

D

POST

C

CONST('POST')

D

D

HTTPS

C

CONST('HTTPS')

D

TN5250

C

CONST('TN5250')

D

HTTPHOST

C

CONST('HTTP_HOST')

D

PATHINFO

C

CONST('PATH_INFO')

D

SCRIPTNAME

C

CONST('SCRIPT_NAME')

D

DOCUMENTURI

C

CONST('DOCUMENT_URI')

D

QUERYSTRING

C

CONST('QUERY_STRING')

D

CONTENTTYPE

C

CONST('CONTENT_TYPE')

D

CONTENTLENGTH

C

CONST('CONTENT_LENGTH')

D

REQUESTSCHEME

C

CONST('REQUEST_SCHEME')

D

REQUESTMETHOD

C

CONST('REQUEST_METHOD')

D

HTTPUSERAGENT

C

CONST('HTTP_USER_AGENT')

D

SSLPROTVERSION

C

CONST('SSL_PROTOCOL_VERSION')

D

HTTPMETHOVER

C

CONST('HTTP_X_HTTP_METHOD_OVERRIDE')

D

D

HTTPSLEN

C

CONST(%SIZE(HTTPS))

D

TN5250LEN

C

CONST(%SIZE(TN5250))

D

HTTPHOSTLEN

C

CONST(%SIZE(HTTPHOST))

D

PATHINFOLEN

C

CONST(%SIZE(PATHINFO))

D

SCRIPTNAMELEN

C

CONST(%SIZE(SCRIPTNAME))

D

DOCUMENTURILEN

C

CONST(%SIZE(DOCUMENTURI))

D

QUERYSTRINGLEN

C

CONST(%SIZE(QUERYSTRING))

D

CONTENTTYPELEN

C

CONST(%SIZE(CONTENTTYPE))

D

CONTENTLENGTHLN

C

CONST(%SIZE(CONTENTLENGTH))

D

REQUESTSCHEMELN

C

CONST(%SIZE(REQUESTSCHEME))

D

REQUESTMETHODLN

C

CONST(%SIZE(REQUESTMETHOD))

D

HTTPUSERAGENTLN

C

CONST(%SIZE(HTTPUSERAGENT))

D

SSLPROTVERSIONL

C

CONST(%SIZE(SSLPROTVERSION))

D

HTTPMETHOVERLEN

C

CONST(%SIZE(HTTPMETHOVER))

D

D

UPPER

C

CONST('ABCDEFGHIJKLMNOPQRSTUVWXYZ')

D

LOWER

C

CONST('abcdefghijklmnopqrstuvwxyz')

D

D

RANDCHARS

C

CONST('BCDFHJLMNPQRSTVWXYZ12345678')

D

RANDCHARSLEN

C

CONST(%SIZE(RANDCHARS))

D

D

HEXCHARS

C

CONST('0123456789ABCDEFabcdef')

D

D

OWNER

C

CONST('Jürgen Reule')

D

AUTHOR

C

CONST('Jürgen Reule')

D

PUBLISHER

C

CONST('Jürgen Reule')

D

D

GENERATOR

C

CONST('TN5250')

D

COPYRIGHTX

C

CONST('2019-2024')

D

D

AGENT

S

2000

A

INZ VARYING

D

D

REFRESH

S

1000

A

INZ VARYING

D

CHARSET

S

1000

A

INZ VARYING

D

LOCATION

S

1000

A

INZ VARYING

D

D

COPYRIGHT

S

500

A

INZ

D

ORGANIZATION

S

500

A

INZ

D

D

TITLE

S

500

A

INZ

D

TITLEX

S

500

A

INZ

D

SCRIPT

S

500

A

INZ VARYING

D

SECURE

S

500

A

INZ VARYING

D

SCHEME

S

500

A

INZ VARYING

D

PATH

S

500

A

INZ VARYING

D

HOST

S

500

A

INZ VARYING

D

SRC

S

500

A

INZ VARYING

D

D

LANG

S

200

A

INZ VARYING

D

DATE

S

200

A

INZ

D

CACHE

S

200

A

INZ

D

DOCTYPE

S

200

A

INZ VARYING

D

VIEWPORT

S

200

A

INZ

D

ROBOTS

S

200

A

INZ

D

D

AUTOCOMPLETE

S

100

A

INZ VARYING

D

AUTOCAPITALIZE

S

100

A

INZ VARYING

D

D

COMPLETEOFF

C

CONST(' autocomplete="off"')

D

CAPITALIZEOFF

C

CONST(' autocapitalize="off"')

D

D

STYLES

S

32767

A

INZ VARYING

D

D

LANGUAGE

S

2

A

INZ

D

D

STATUS

S

3

S

0

INZ

D

D

STATUS200

C

CONST(200)

D

STATUS302

C

CONST(302)

D

D

COPY

C

CONST('©')

D

NBSP

C

CONST(' ')

D

NONEX

C

CONST('—')

D

D

TITLE#

C

CONST('Title:')

D

STATUS#

C

CONST('Status:')

D

PRAGMA#

C

CONST('Pragma:')

D

EXPIRES#

C

CONST('Expires:')

D

LOCATION#

C

CONST('Location:')

D

CACHE#

C

CONST('Cache-Control:')

D

ROBOTS#

C

CONST('X-Robots-Tag:')

D

CONTENT#

C

CONST('Content-Type:')

D

CONTENT

C

CONST('Content-Type')

D

D

CACHEMIN#

C

CONST('private, +

D

no-cache, +

D

no-store, +

D

must-revalidate§')

D

NOCACHE#

C

CONST('no-cache§')

D

D

MIMEHTML

C

CONST('text/html')

D

D

FORMATDETECTION

C

CONST('telephone=no')

D

D

VIEWPORTMAX

C

CONST('width=device-width, +

D

minimum-scale=1, +

D

maximum-scale=2')

D

D

NOROBOTS

C

CONST('noindex, nofollow')

D

NOINDEXFOLLOW

C

CONST('noindex, follow')

D

INDEXNOFOLLOW

C

CONST( 'index, nofollow')

D

INDEXFOLLOW

C

CONST( 'index, follow')

D

D

URLENCODED

C

CONST('application/+

D

x-www-form-urlencoded')

D

D

LATIN1

C

CONST('ISO-8859-1')

D

D

HTML32

C

CONST('<!DOCTYPE html PUBLIC +

D

"-//W3C//DTD HTML 3.2 +

D

Final//EN">')

D

D

HTML5

C

CONST('<!DOCTYPE html>')

D

D

STYLE

C

CONST('§<style +

D

type="text/css"><!--')

D

STYLEX

C

CONST('--></style>')

D

D

JAVASCRIPT

C

CONST('§<script +

D

type="text/javascript" +

D

language="javascript">§<!--')

D

JAVASCRIPTX

C

CONST('§//-->§</script>')

D

D

DS

D

BUF

65535

A

INZ VARYING

D

BUFLEN

5

U

0

OVERLAY(BUF)

D

BUFTEXT

65535

A

OVERLAY(BUF:*NEXT)

D

BUFTEXTLEN

C

CONST(%SIZE(BUFTEXT))

D

D

DS

D

BUF2

65535

A

INZ VARYING

D

BUF2LEN

5

U

0

OVERLAY(BUF2)

D

BUF2TEXT

65535

A

OVERLAY(BUF2:*NEXT)

D

BUF2TEXTLEN

C

CONST(%SIZE(BUF2TEXT))

D

BUF2TEXTPTR

C

CONST(%ADDR(BUF2TEXT))

D

D

DS

D

BUF3

32767

A

INZ VARYING

D

BUF3LEN

5

U

0

OVERLAY(BUF3)

D

BUF3TEXT

32767

A

OVERLAY(BUF3:*NEXT)

D

BUF3TEXTLEN

C

CONST(%SIZE(BUF3TEXT))

D

D

DS

D

BUF4

32767

A

INZ VARYING

D

BUF4LEN

5

U

0

OVERLAY(BUF4)

D

BUF4TEXT

32767

A

OVERLAY(BUF4:*NEXT)

D

BUF4TEXTLEN

C

CONST(%SIZE(BUF4TEXT))

D

D

DS

D

BUFV

32767

A

INZ VARYING

D

BUFVLEN

5

U

0

OVERLAY(BUFV)

D

BUFVTEXT

32767

A

OVERLAY(BUFV:*NEXT)

D

BUFVTEXTLEN

C

CONST(%SIZE(BUFVTEXT))

D

D

DS

D

INPUT

32767

A

INZ VARYING

D

INPUTTLEN

5

U

0

OVERLAY(INPUT)

D

INPUTTEXT

32767

A

OVERLAY(INPUT:*NEXT)

D

INPUTTEXTLEN

C

CONST(%SIZE(INPUTTEXT))

D

D

DS

D

RECVSEND

65535

A

INZ VARYING

D

RECVSENDLEN

5

U

0

OVERLAY(RECVSEND)

D

RECVSENDTEXT

65535

A

OVERLAY(RECVSEND:*NEXT)

D

RECVSENDTEXTLEN

C

CONST(%SIZE(RECVSENDTEXT))

D

D

RECVSENDMAX

C

CONST(%SIZE(BUF3TEXT))

D

D

ROW

S

3

S

0

INZ

D

ROW3

S

INZ LIKE(ROW)

D

ROW6

S

INZ LIKE(ROW)

D

ROWS

S

INZ LIKE(ROW)

D

ROWX

S

INZ LIKE(ROW)

D

D

COL

S

3

S

0

INZ

D

COL3

S

INZ LIKE(COL)

D

COL6

S

INZ LIKE(COL)

D

COLS

S

INZ LIKE(COL)

D

D

HOME

S

5

U

0

INZ

D

D

CURSOR

S

INZ LIKE(HOME)

D

CURSOR2

S

INZ LIKE(HOME)

D

CURSOR3

S

INZ LIKE(HOME)

D

D

CMDPOS

S

INZ LIKE(HOME)

D

CMDPOSX

S

INZ LIKE(HOME)

D

D

SCNPOS

S

INZ LIKE(HOME)

D

SCNPOS2

S

INZ LIKE(HOME)

D

SCNPOSX

S

INZ LIKE(HOME)

D

D

SCREENX

DS

INZ

D

SCREEN

1

A

INZ DIM(3696)

D

D

SCREENXLEN

C

CONST(%SIZE(SCREENX))

D

SCREENLEN

C

CONST(%SIZE(SCREEN))

D

D

SCREENXSCAN

S

INZ LIKE(SCREENX)

D

D

FMTTABX

DS

INZ

D

FMTTAB

INZ DIM(384)

D

FMTPOS

5

U

0

INZ OVERLAY(FMTTAB)

D

FMTLEN

5

U

0

INZ OVERLAY(FMTTAB:*NEXT)

D

FMTSTEP

5

U

0

INZ OVERLAY(FMTTAB:*NEXT)

D

FMTFFW

INZ OVERLAY(FMTTAB:*NEXT)

D

FMTFFW1

1

A

INZ OVERLAY(FMTFFW)

D

FMTFFW2

1

A

INZ OVERLAY(FMTFFW:*NEXT)

D

D

FMTTABXLEN

C

CONST(%SIZE(FMTTABX))

D

FMTTABLEN

C

CONST(%SIZE(FMTTAB))

D

D

FFWX

S

1

S

0

INZ

D

FMTX

S

5

S

0

INZ

D

MSGX

S

5

S

0

INZ

D

D

SOHX

S

1

A

INZ

D

MDTX

S

1

A

INZ

D

D

IDX

S

INZ LIKE(FMTX)

D

IDX2

S

INZ LIKE(FMTX)

D

IDX3

S

INZ LIKE(FMTX)

D

IDX6

S

INZ LIKE(FMTX)

D

D

ID

S

20

A

INZ

D

NAME

S

20

A

INZ

D

D

TYPE

S

20

A

INZ

D

TYPE3

S

20

A

INZ

D

TYPE6

S

20

A

INZ

D

D

VALUE

S

100

A

INZ

D

ONCLICK

S

100

A

INZ

D

D

COLSPAN

S

10

A

INZ

D

DISABLED

S

10

A

INZ

D

DISABLEDX

S

10

A

INZ

D

READONLY3

S

10

A

INZ

D

READONLY6

S

10

A

INZ

D

D

PASSWORD

S

5

S

0

INZ

D

HELPSCREEN

S

5

S

0

INZ

D

SOURCEDISPLAY

S

5

S

0

INZ

D

D

COLORNUM

S

3

S

0

INZ

D

D

GDS

C

CONST(X'12A0')

D

D

NL

C

CONST(X'15')

D

D

DU$X

C

CONST(X'B3')

D

FM$X

C

CONST(X'BC')

D

D

NBSP$

C

CONST(X'41')

D

D

ERR$

C

CONST(X'80')

D

ATTN$

C

CONST(X'40')

D

RESERVED1$

C

CONST(X'20')

D

RESERVED2$

C

CONST(X'10')

D

RESERVED3$

C

CONST(X'08')

D

SYSREQ$

C

CONST(X'04')

D

TESTREQ$

C

CONST(X'02')

D

ERRHELP$

C

CONST(X'01')

D

D

SOHF24$

C

CONST(X'80')

D

SOHF23$

C

CONST(X'40')

D

SOHF22$

C

CONST(X'20')

D

SOHF21$

C

CONST(X'10')

D

SOHF20$

C

CONST(X'08')

D

SOHF19$

C

CONST(X'04')

D

SOHF18$

C

CONST(X'02')

D

SOHF17$

C

CONST(X'01')

D

D

SOHF16$

C

CONST(X'80')

D

SOHF15$

C

CONST(X'40')

D

SOHF14$

C

CONST(X'20')

D

SOHF13$

C

CONST(X'10')

D

SOHF12$

C

CONST(X'08')

D

SOHF11$

C

CONST(X'04')

D

SOHF10$

C

CONST(X'02')

D

SOHF9$

C

CONST(X'01')

D

D

SOHF8$

C

CONST(X'80')

D

SOHF7$

C

CONST(X'40')

D

SOHF6$

C

CONST(X'20')

D

SOHF5$

C

CONST(X'10')

D

SOHF4$

C

CONST(X'08')

D

SOHF3$

C

CONST(X'04')

D

SOHF2$

C

CONST(X'02')

D

SOHF1$

C

CONST(X'01')

D

D

CLRALL

C

CONST(X'A0')

D

CLRMOD1

C

CONST(X'80')

D

CLRMOD0

C

CONST(X'20')

D

D

MDTALL

C

CONST(X'60')

D

MDTNBY1

C

CONST(X'40')

D

MDTNBY0

C

CONST(X'20')

D

MDTNBY5

C

CONST(X'40')

D

D

LOCKCC

C

CONST(X'E0')

D

D

NUMSIGNDF

C

CONST(X'20')

D

D

FFW1BYPASS

C

CONST(X'20')

D

FFW1DUPKEY

C

CONST(X'10')

D

FFW1MDT

C

CONST(X'08')

D

FFW1NUMSIGN

C

CONST(X'07')

D

D

F1$

C

CONST(X'31')

D

F2$

C

CONST(X'32')

D

F3$

C

CONST(X'33')

D

F4$

C

CONST(X'34')

D

F5$

C

CONST(X'35')

D

F6$

C

CONST(X'36')

D

F7$

C

CONST(X'37')

D

F8$

C

CONST(X'38')

D

F9$

C

CONST(X'39')

D

F10$

C

CONST(X'3A')

D

F11$

C

CONST(X'3B')

D

F12$

C

CONST(X'3C')

D

AUTOENTER$

C

CONST(X'3F')

D

D

AUTOENTERFET$

C

CONST(X'50')

D

D

F13$

C

CONST(X'B1')

D

F14$

C

CONST(X'B2')

D

F15$

C

CONST(X'B3')

D

F16$

C

CONST(X'B4')

D

F17$

C

CONST(X'B5')

D

F18$

C

CONST(X'B6')

D

F19$

C

CONST(X'B7')

D

F20$

C

CONST(X'B8')

D

F21$

C

CONST(X'B9')

D

F22$

C

CONST(X'BA')

D

F23$

C

CONST(X'BB')

D

F24$

C

CONST(X'BC')

D

CLEAR$

C

CONST(X'BD')

D

D

ENTER$

C

CONST(X'F1')

D

HELP$

C

CONST(X'F3')

D

PAGEUP$

C

CONST(X'F4')

D

PAGEDOWN$

C

CONST(X'F5')

D

PAGELEFT$

C

CONST(X'D9')

D

PAGERIGHT$

C

CONST(X'DA')

D

ROLLUP$

C

CONST(X'F5')

D

ROLLDOWN$

C

CONST(X'F4')

D

ROLLLEFT$

C

CONST(X'D9')

D

ROLLRIGHT$

C

CONST(X'DA')

D

PRINT$

C

CONST(X'F6')

D

RECORDBACKSP$

C

CONST(X'F8')

D

D

RESTART$

C

CONST(X'FE')

D

CLOSE2$

C

CONST(X'FF')

D

D

NULL$

C

CONST(X'00')

D

SOH$

C

CONST(X'01')

D

RA$

C

CONST(X'02')

D

EA$

C

CONST(X'03')

D

CMD$

C

CONST(X'04')

D

X05$

C

CONST(X'05')

D

X06$

C

CONST(X'06')

D

X07$

C

CONST(X'07')

D

X08$

C

CONST(X'08')

D

X09$

C

CONST(X'09')

D

X0A$

C

CONST(X'0A')

D

X0B$

C

CONST(X'0B')

D

X0C$

C

CONST(X'0C')

D

X0D$

C

CONST(X'0D')

D

SO$

C

CONST(X'0E')

D

SI$

C

CONST(X'0F')

D

TD$

C

CONST(X'10')

D

SBA$

C

CONST(X'11')

D

WEA$

C

CONST(X'12')

D

IC$

C

CONST(X'13')

D

MC$

C

CONST(X'14')

D

WDSF$

C

CONST(X'15')

D

X16$

C

CONST(X'16')

D

X17$

C

CONST(X'17')

D

X18$

C

CONST(X'18')

D

X19$

C

CONST(X'19')

D

X1A$

C

CONST(X'1A')

D

X1B$

C

CONST(X'1B')

D

DU$

C

CONST(X'1C')

D

SF$

C

CONST(X'1D')

D

FM$

C

CONST(X'1E')

D

X1F$

C

CONST(X'1F')

D

X3F$

C

CONST(X'3F')

D

D

FCW$

C

CONST(X'80')

D

FFW$

C

CONST(X'40')

D

ATR$

C

CONST(X'20')

D

D

RESCC$

C

CONST(X'80')

D

NOIC$

C

CONST(X'40')

D

BLINKOFF$

C

CONST(X'20')

D

BLINKON$

C

CONST(X'10')

D

UNLOCK$

C

CONST(X'08')

D

ALARM$

C

CONST(X'04')

D

MESSAGEOFF$

C

CONST(X'02')

D

MESSAGEON$

C

CONST(X'01')

D

D

STRFLD$

C

CONST(X'D9')

D

D

QUERY$

C

CONST(X'70')

D

QUERYSTATION$

C

CONST(X'72')

D

D

CLEARUNIT$

C

CONST(X'40')

D

CLEARUNITALT$

C

CONST(X'20')

D

CLEARFMTTABLE$

C

CONST(X'50')

D

D

WRITETODISPLY$

C

CONST(X'11')

D

WRITEERRCODE$

C

CONST(X'21')

D

WRITEERRCODEW$

C

CONST(X'22')

D

D

READINPUTFLDS$

C

CONST(X'42')

D

READMDTFLDS$

C

CONST(X'52')

D

READMDTALT$

C

CONST(X'82')

D

D

READSCREEN$

C

CONST(X'62')

D

READSCREENA$

C

CONST(X'64')

D

READSCREENPR$

C

CONST(X'66')

D

READSCREENPRA$

C

CONST(X'68')

D

READSCREENPRL$

C

CONST(X'6A')

D

READSCREENPRX$

C

CONST(X'6C')

D

D

READIMMED$

C

CONST(X'72')

D

READMDTIMMALT$

C

CONST(X'83')

D

D

SAVESCREEN$

C

CONST(X'02')

D

SAVESCREENPAR$

C

CONST(X'03')

D

D

RESTSCREEN$

C

CONST(X'12')

D

RESTSCREENPAR$

C

CONST(X'13')

D

D

ROLL$

C

CONST(X'23')

D

WRITESTRFLD$

C

CONST(X'F3')

D

WRITESISTRFLD$

C

CONST(X'F4')

D

COPYTOPRINTER$

C

CONST(X'16')

D

D

SAVE$

C

CONST(X'FF')

D

D

NOOPX

C

CONST(X'00')

D

INVITEX

C

CONST(X'01')

D

OUTPUTX

C

CONST(X'02')

D

PUTGETX

C

CONST(X'03')

D

SAVESCREENX

C

CONST(X'04')

D

RESTSCREENX

C

CONST(X'05')

D

READIMMEDX

C

CONST(X'06')

D

RESERVED1X

C

CONST(X'07')

D

READSCREENX

C

CONST(X'08')

D

RESERVED2X

C

CONST(X'09')

D

CANCELINVITEX

C

CONST(X'0A')

D

MESSAGEONX

C

CONST(X'0B')

D

MESSAGEOFFX

C

CONST(X'0C')

D

D

IS$

C

CONST(X'00')

D

SEND$

C

CONST(X'01')

D

INFO$

C

CONST(X'02')

D

D

VAR$

C

CONST(X'00')

D

VALUE$

C

CONST(X'01')

D

ESC$

C

CONST(X'02')

D

USERVAR$

C

CONST(X'03')

D

D

BINARY$

C

CONST(X'00')

D

TERMTYPE$

C

CONST(X'18')

D

ENDOFRECORD$

C

CONST(X'19')

D

NEWENVIRON$

C

CONST(X'27')

D

D

TIMINGMARK$

C

CONST(X'06')

D

D

ECHO$

C

CONST(X'01')

D

SUPPRESSGA$

C

CONST(X'03')

D

STATUSX$

C

CONST(X'05')

D

D

WINDSIZE$

C

CONST(X'1F')

D

TERMSPEED$

C

CONST(X'20')

D

REMOTEFLCTRL$

C

CONST(X'21')

D

LINEMODE$

C

CONST(X'22')

D

XDISPLOC$

C

CONST(X'23')

D

ENVIRON$

C

CONST(X'24')

D

D

AUTHENTIC$

C

CONST(X'25')

D

ENCRYPT$

C

CONST(X'26')

D

COMPORT$

C

CONST(X'2C')

D

D

EXOPL$

C

CONST(X'FF')

D

D

EOR$

C

CONST(X'EF')

D

SE$

C

CONST(X'F0')

D

SB$

C

CONST(X'FA')

D

WILL$

C

CONST(X'FB')

D

WONT$

C

CONST(X'FC')

D

DO$

C

CONST(X'FD')

D

DONT$

C

CONST(X'FE')

D

IAC$

C

CONST(X'FF')

D

D

F1

C

CONST('f1')

D

F2

C

CONST('f2')

D

F3

C

CONST('f3')

D

F4

C

CONST('f4')

D

F5

C

CONST('f5')

D

F6

C

CONST('f6')

D

F7

C

CONST('f7')

D

F8

C

CONST('f8')

D

F9

C

CONST('f9')

D

F10

C

CONST('f10')

D

F11

C

CONST('f11')

D

F12

C

CONST('f12')

D

AUTOENTER

C

CONST('autoenter')

D

D

AUTOENTERFET

C

CONST('autoenterfet')

D

D

F13

C

CONST('f13')

D

F14

C

CONST('f14')

D

F15

C

CONST('f15')

D

F16

C

CONST('f16')

D

F17

C

CONST('f17')

D

F18

C

CONST('f18')

D

F19

C

CONST('f19')

D

F20

C

CONST('f20')

D

F21

C

CONST('f21')

D

F22

C

CONST('f22')

D

F23

C

CONST('f23')

D

F24

C

CONST('f24')

D

CLEAR

C

CONST('clear')

D

D

ENTER

C

CONST('enter')

D

HELP

C

CONST('help')

D

PAGEUP

C

CONST('pageup')

D

PAGEDOWN

C

CONST('pagedown')

D

PAGELEFT

C

CONST('pageleft')

D

PAGERIGHT

C

CONST('pageright')

D

ROLLUP

C

CONST('rollup')

D

ROLLDOWN

C

CONST('rolldown')

D

ROLLLEFT

C

CONST('rollleft')

D

ROLLRIGHT

C

CONST('rollright')

D

PRINT

C

CONST('print')

D

RECORDBACKSP

C

CONST('recordbacksp')

D

D

RESTART

C

CONST('restart')

D

CLOSE2

C

CONST('close2')

D

D

UP

C

CONST('up')

D

DOWN

C

CONST('down')

D

LEFT

C

CONST('left')

D

RIGHT

C

CONST('right')

D

NEXT

C

CONST('next')

D

PREV

C

CONST('prev')

D

FPLUS

C

CONST('fplus')

D

FMINUS

C

CONST('fminus')

D

DUP

C

CONST('dup')

D

NONE

C

CONST('none')

D

INSERT

C

CONST('insert')

D

CLOSE1

C

CONST('close1')

D

D

DIGIT1

C

CONST('digit1')

D

DIGIT2

C

CONST('digit2')

D

DIGIT3

C

CONST('digit3')

D

DIGIT4

C

CONST('digit4')

D

DIGIT5

C

CONST('digit5')

D

DIGIT6

C

CONST('digit6')

D

DIGIT7

C

CONST('digit7')

D

DIGIT8

C

CONST('digit8')

D

DIGIT9

C

CONST('digit9')

D

DIGIT0

C

CONST('digit0')

D

SPACE

C

CONST('space')

D

BACKSPACE

C

CONST('backspace')

D

D

ATTN

C

CONST('attn')

D

SYSREQ

C

CONST('sysreq')

D

TESTREQ

C

CONST('testreq')

D

D

ANY

C

CONST('any')

D

SAVE

C

CONST('save')

D

FOCUS

C

CONST('focus')

D

CARET

C

CONST('caret')

D

SELECT

C

CONST('select')

D

IFRAME

C

CONST('iframe')

D

D

UP#JS

C

CONST('Up()')

D

DOWN#JS

C

CONST('Down()')

D

LEFT#JS

C

CONST('Left()')

D

RIGHT#JS

C

CONST('Right()')

D

NEXT#JS

C

CONST('Next()')

D

PREV#JS

C

CONST('Prev()')

D

FPLUS#JS

C

CONST('FPlus()')

D

FMINUS#JS

C

CONST('FMinus()')

D

DUP#JS

C

CONST('Dup()')

D

NONE#JS

C

CONST('None()')

D

INSERT#JS

C

CONST('Insert()')

D

CLOSE1#JS

C

CONST('Close1()')

D

D

DIGIT1#JS

C

CONST('Digit(1)')

D

DIGIT2#JS

C

CONST('Digit(2)')

D

DIGIT3#JS

C

CONST('Digit(3)')

D

DIGIT4#JS

C

CONST('Digit(4)')

D

DIGIT5#JS

C

CONST('Digit(5)')

D

DIGIT6#JS

C

CONST('Digit(6)')

D

DIGIT7#JS

C

CONST('Digit(7)')

D

DIGIT8#JS

C

CONST('Digit(8)')

D

DIGIT9#JS

C

CONST('Digit(9)')

D

DIGIT0#JS

C

CONST('Digit(0)')

D

SPACE#JS

C

CONST('Space()')

D

BACKSPACE#JS

C

CONST('Backspace()')

D

D

ENTERX

C

CONST('enterx')

D

AUTOENTERX

C

CONST('autoenterx')

D

SAVEX

C

CONST('savex')

D

CLOSE2X

C

CONST('close2x')

D

D

CC1#

C

CONST('CC1')

D

CC2#

C

CONST('CC2')

D

D

IBM3179#

C

CONST('IBM-3179-2')

D

IBM3477#

C

CONST('IBM-3477-FC')

D

IBM5555#

C

CONST('IBM-5555-C01')

D

IBM5553#

C

CONST('IBM-5553-B01')

D

IBM3812#

C

CONST('IBM-3812-1')

D

D

/DEFINE EN

D

/UNDEFINE EN

D

/DEFINE DE

D

D

/IF DEFINED(EN)

D

D

LANGUAGE#

C

CONST('en')

D

D

F1#

C

CONST('F1')

D

F2#

C

CONST('F2')

D

F3#

C

CONST('F3')

D

F4#

C

CONST('F4')

D

F5#

C

CONST('F5')

D

F6#

C

CONST('F6')

D

F7#

C

CONST('F7')

D

F8#

C

CONST('F8')

D

F9#

C

CONST('F9')

D

F10#

C

CONST('F10')

D

F11#

C

CONST('F11')

D

F12#

C

CONST('F12')

D

AUTOENTER#

C

CONST('Auto Enter')

D

D

AUTOENTERFET#

C

CONST('Auto Enter FET')

D

D

F13#

C

CONST('F13')

D

F14#

C

CONST('F14')

D

F15#

C

CONST('F15')

D

F16#

C

CONST('F16')

D

F17#

C

CONST('F17')

D

F18#

C

CONST('F18')

D

F19#

C

CONST('F19')

D

F20#

C

CONST('F20')

D

F21#

C

CONST('F21')

D

F22#

C

CONST('F22')

D

F23#

C

CONST('F23')

D

F24#

C

CONST('F24')

D

CLEAR#

C

CONST('Clear')

D

D

ENTER#

C

CONST('Enter')

D

HELP#

C

CONST('Help')

D

PAGEUP#

C

CONST('Page Up')

D

PAGEDOWN#

C

CONST('Page Down')

D

PAGELEFT#

C

CONST('Page Left')

D

PAGERIGHT#

C

CONST('Page Right')

D

ROLLUP#

C

CONST('Roll Up')

D

ROLLDOWN#

C

CONST('Roll Down')

D

ROLLLEFT#

C

CONST('Roll Left')

D

ROLLRIGHT#

C

CONST('Roll Right')

D

PRINT#

C

CONST('Print')

D

RECORDBACKSP#

C

CONST('Record Backspace')

D

D

RESTART#

C

CONST('Restart')

D

CLOSE2#

C

CONST('Close')

D

D

UP#

C

CONST('Up')

D

DOWN#

C

CONST('Down')

D

LEFT#

C

CONST('Left')

D

RIGHT#

C

CONST('Right')

D

NEXT#

C

CONST('Next')

D

PREV#

C

CONST('Prev')

D

FPLUS#

C

CONST('F+')

D

FMINUS#

C

CONST('F-')

D

DUP#

C

CONST('Dup')

D

NONE#

C

CONST('None')

D

INSERT#

C

CONST('Insert')

D

CLOSE1#

C

CONST('Close')

D

D

DIGIT1#

C

CONST('1')

D

DIGIT2#

C

CONST('2')

D

DIGIT3#

C

CONST('3')

D

DIGIT4#

C

CONST('4')

D

DIGIT5#

C

CONST('5')

D

DIGIT6#

C

CONST('6')

D

DIGIT7#

C

CONST('7')

D

DIGIT8#

C

CONST('8')

D

DIGIT9#

C

CONST('9')

D

DIGIT0#

C

CONST('0')

D

SPACE#

C

CONST('Space')

D

BACKSPACE#

C

CONST('Backspace')

D

D

ATTN#

C

CONST('Attn')

D

SYSREQ#

C

CONST('SysReq')

D

TESTREQ#

C

CONST('TestReq')

D

D

ANY#

C

CONST('Any')

D

SAVE#

C

CONST('Save')

D

FOCUS#

C

CONST('Focus')

D

CARET#

C

CONST('Caret')

D

SELECT#

C

CONST('Select')

D

IFRAME#

C

CONST('Frame')

D

D

DESCRIPTION#

C

CONST('A selection of systems +

D

and servers on the internet +

D

to connect with telnet 5250')

D

D

/ELSEIF DEFINED(DE)

D

D

LANGUAGE#

C

CONST('de')

D

D

F1#

C

CONST('F1')

D

F2#

C

CONST('F2')

D

F3#

C

CONST('F3')

D

F4#

C

CONST('F4')

D

F5#

C

CONST('F5')

D

F6#

C

CONST('F6')

D

F7#

C

CONST('F7')

D

F8#

C

CONST('F8')

D

F9#

C

CONST('F9')

D

F10#

C

CONST('F10')

D

F11#

C

CONST('F11')

D

F12#

C

CONST('F12')

D

AUTOENTER#

C

CONST('Auto Eingabe')

D

D

AUTOENTERFET#

C

CONST('Auto Eingabe FET')

D

D

F13#

C

CONST('F13')

D

F14#

C

CONST('F14')

D

F15#

C

CONST('F15')

D

F16#

C

CONST('F16')

D

F17#

C

CONST('F17')

D

F18#

C

CONST('F18')

D

F19#

C

CONST('F19')

D

F20#

C

CONST('F20')

D

F21#

C

CONST('F21')

D

F22#

C

CONST('F22')

D

F23#

C

CONST('F23')

D

F24#

C

CONST('F24')

D

CLEAR#

C

CONST('Löschen')

D

D

ENTER#

C

CONST('Eingabe')

D

HELP#

C

CONST('Hilfe')

D

PAGEUP#

C

CONST('Bild ab')

D

PAGEDOWN#

C

CONST('Bild auf')

D

PAGELEFT#

C

CONST('Bild links')

D

PAGERIGHT#

C

CONST('Bild rechts')

D

ROLLUP#

C

CONST('Rollen auf')

D

ROLLDOWN#

C

CONST('Rollen ab')

D

ROLLLEFT#

C

CONST('Rollen links')

D

ROLLRIGHT#

C

CONST('Rollen rechts')

D

PRINT#

C

CONST('Drucken')

D

RECORDBACKSP#

C

CONST('Aufnahme Rückschritt')

D

D

RESTART#

C

CONST('Neustart')

D

CLOSE2#

C

CONST('Schließen')

D

D

UP#

C

CONST('Auf')

D

DOWN#

C

CONST('Ab')

D

LEFT#

C

CONST('Links')

D

RIGHT#

C

CONST('Rechts')

D

NEXT#

C

CONST('Nächster')

D

PREV#

C

CONST('Vorheriger')

D

FPLUS#

C

CONST('F+')

D

FMINUS#

C

CONST('F-')

D

DUP#

C

CONST('Dup')

D

NONE#

C

CONST('Nichts')

D

INSERT#

C

CONST('Einfügen')

D

CLOSE1#

C

CONST('Schließen')

D

D

DIGIT1#

C

CONST('1')

D

DIGIT2#

C

CONST('2')

D

DIGIT3#

C

CONST('3')

D

DIGIT4#

C

CONST('4')

D

DIGIT5#

C

CONST('5')

D

DIGIT6#

C

CONST('6')

D

DIGIT7#

C

CONST('7')

D

DIGIT8#

C

CONST('8')

D

DIGIT9#

C

CONST('9')

D

DIGIT0#

C

CONST('0')

D

SPACE#

C

CONST('Leer')

D

BACKSPACE#

C

CONST('Rückschritt')

D

D

ATTN#

C

CONST('Abruf')

D

SYSREQ#

C

CONST('S-Abf')

D

TESTREQ#

C

CONST('T-Abf')

D

D

ANY#

C

CONST('Ein')

D

SAVE#

C

CONST('Sichern')

D

FOCUS#

C

CONST('Fokus')

D

CARET#

C

CONST('Marke')

D

SELECT#

C

CONST('Auswahl')

D

IFRAME#

C

CONST('Rahmen')

D

D

DESCRIPTION#

C

CONST('Eine Auswahl an Systemen +

D

und Servern im Internet zum +

D

Verbinden mit Telnet 5250')

D

D

/ENDIF

D

D

NULL#

C

CONST('Null')

D

SOH#

C

CONST('Start of Header')

D

RA#

C

CONST('Repeat to Address')

D

EA#

C

CONST('Erase to Address')

D

CMD#

C

CONST('Command')

D

X05#

C

CONST('05')

D

X06#

C

CONST('06')

D

X07#

C

CONST('07')

D

X08#

C

CONST('08')

D

X09#

C

CONST('09 EDTF/DSPF')

D

X0A#

C

CONST('0A')

D

X0B#

C

CONST('0B')

D

X0C#

C

CONST('0C')

D

X0D#

C

CONST('0D')

D

SO#

C

CONST('Shift Out')

D

SI#

C

CONST('Shift In')

D

TD#

C

CONST('Transparent Data')

D

SBA#

C

CONST('Set Buffer Address')

D

WEA#

C

CONST('Write Extended Attribute')

D

IC#

C

CONST('Insert Cursor')

D

MC#

C

CONST('Move Cursor')

D

WDSF#

C

CONST('Write to Display Struct Fld')

D

X16#

C

CONST('16')

D

X17#

C

CONST('17')

D

X18#

C

CONST('18')

D

X19#

C

CONST('19')

D

X1A#

C

CONST('1A')

D

X1B#

C

CONST('1B')

D

DU#

C

CONST('Dup')

D

SF#

C

CONST('Start of Field')

D

FM#

C

CONST('Field Mark')

D

X1F#

C

CONST('1F')

D

X3F#

C

CONST('3F')

D

D

FCW#

C

CONST('Field Control Word')

D

FFW#

C

CONST('Field Format Word')

D

ATR#

C

CONST('Attribute')

D

D

RESCC#

C

CONST('Res CC')

D

NOIC#

C

CONST('No IC')

D

BLINKOFF#

C

CONST('Blink On')

D

BLINKON#

C

CONST('Blink Off')

D

UNLOCK#

C

CONST('Unlock')

D

ALARM#

C

CONST('Alarm')

D

MESSAGEOFF#

C

CONST('Message Light Off')

D

MESSAGEON#

C

CONST('Message Light On')

D

D

STRFLD#

C

CONST('Struct Field')

D

D

QUERY#

C

CONST('Query')

D

QUERYSTATION#

C

CONST('Query Station')

D

D

CLEARUNIT#

C

CONST('Clear Unit')

D

CLEARUNITALT#

C

CONST('Clear Unit Alternate')

D

CLEARFMTTABLE#

C

CONST('Clear Format Table')

D

D

WRITETODISPLY#

C

CONST('Write to Display')

D

WRITEERRCODE#

C

CONST('Write Error Code')

D

WRITEERRCODEW#

C

CONST('Write Error Code to Window')

D

D

READINPUTFLDS#

C

CONST('Read Input Fields')

D

READMDTFLDS#

C

CONST('Read Modified Fields')

D

READMDTALT#

C

CONST('Read Modified Alternate')

D

D

READSCREEN#

C

CONST('Read Screen')

D

READSCREENA#

C

CONST('Read Screen Ext Atr')

D

READSCREENPR#

C

CONST('Read Screen Print')

D

READSCREENPRA#

C

CONST('Read Screen Print Ext Atr')

D

READSCREENPRL#

C

CONST('Read Screen Print Grid')

D

READSCREENPRX#

C

CONST('Read Screen Print Ext Atr Gr')

D

D

READIMMED#

C

CONST('Read Immediate')

D

READMDTIMMALT#

C

CONST('Read Modified Immed Altern')

D

D

SAVESCREEN#

C

CONST('Save Screen')

D

SAVESCREENPAR#

C

CONST('Save Partial Screen')

D

D

RESTSCREEN#

C

CONST('Restore Screen')

D

RESTSCREENPAR#

C

CONST('Restore Partial Screen')

D

D

ROLL#

C

CONST('Roll')

D

WRITESTRFLD#

C

CONST('Write Struct Field')

D

WRITESISTRFLD#

C

CONST('Write Single Struct Field')

D

COPYTOPRINTER#

C

CONST('Copy to Printer')

D

D

NOOPX#

C

CONST('No Operation')

D

INVITEX#

C

CONST('Invite')

D

OUTPUTX#

C

CONST('Output Only')

D

PUTGETX#

C

CONST('Put/Get')

D

SAVESCREENX#

C

CONST('Save Screen')

D

RESTSCREENX#

C

CONST('Restore Screen')

D

READIMMEDX#

C

CONST('Read Immediate')

D

RESERVED1X#

C

CONST('Reserved 1')

D

READSCREENX#

C

CONST('Read Screen')

D

RESERVED2X#

C

CONST('Reserved 2')

D

CANCELINVITEX#

C

CONST('Cancel Invite')

D

MESSAGEONX#

C

CONST('Message Light On')

D

MESSAGEOFFX#

C

CONST('Message Light Off')

D

D

IS#

C

CONST('IS')

D

SEND#

C

CONST('SEND')

D

INFO#

C

CONST('INFO')

D

D

VAR#

C

CONST('VAR')

D

VALUE#

C

CONST('VALUE')

D

ESC#

C

CONST('ESC')

D

USERVAR#

C

CONST('USERVAR')

D

D

BINARY#

C

CONST('TRANSMIT-BINARY')

D

TERMTYPE#

C

CONST('TERMINAL-TYPE')

D

ENDOFRECORD#

C

CONST('END-OF-RECORD')

D

NEWENVIRON#

C

CONST('NEW-ENVIRON')

D

D

TIMINGMARK#

C

CONST('TIMING-MARK')

D

D

ECHO#

C

CONST('ECHO')

D

SUPPRESSGA#

C

CONST('SUPPRESS-GA')

D

STATUSX#

C

CONST('STATUS')

D

D

WINDSIZE#

C

CONST('WINDOW-SIZE')

D

TERMSPEED#

C

CONST('TERMINAL-SPEED')

D

REMOTEFLCTRL#

C

CONST('REMOTE-FLOW-CONTROL')

D

LINEMODE#

C

CONST('LINEMODE')

D

XDISPLOC#

C

CONST('X-DISPLAY-LOCATION')

D

ENVIRON#

C

CONST('ENVIRON')

D

D

AUTHENTIC#

C

CONST('AUTHENTICATION')

D

ENCRYPT#

C

CONST('ENCRYPT')

D

COMPORT#

C

CONST('COM-PORT-OPTION')

D

D

EXOPL#

C

CONST('EXTENDED-OPTIONS-LIST')

D

D

EOR#

C

CONST('EOR')

D

SE#

C

CONST('SE')

D

SB#

C

CONST('SB')

D

WILL#

C

CONST('WILL')

D

WONT#

C

CONST('WONT')

D

DO#

C

CONST('DO')

D

DONT#

C

CONST('DONT')

D

IAC#

C

CONST('IAC')

D

D

DEVNAME#

C

CONST('DEVNAME')

D

D

POS

S

5

S

0

INZ

D

POS1

S

INZ LIKE(POS)

D

POS2

S

INZ LIKE(POS)

D

POS3

S

INZ LIKE(POS)

D

POSN

S

INZ LIKE(POS)

D

POSX

S

INZ LIKE(POS)

D

POSXX

S

INZ LIKE(POS)

D

D

LEN

S

5

S

0

INZ

D

LEN1

S

INZ LIKE(LEN)

D

LEN2

S

INZ LIKE(LEN)

D

LEN3

S

INZ LIKE(LEN)

D

LEN6

S

INZ LIKE(LEN)

D

LENN

S

INZ LIKE(LEN)

D

LENX

S

INZ LIKE(LEN)

D

LEN#

S

INZ LIKE(LEN)

D

D

FOCUSX

S

INZ LIKE(IDX)

D

CARETX

S

INZ LIKE(POS)

D

FMTPOSX

S

INZ LIKE(POS)

D

D

NONENUM

S

5

S

0

INZ

D

D

BUFFERX

DS

INZ

D

/IF DEFINED(*V6R1M0)

D

BUFFER

1

A

INZ DIM(65535)

D

/ELSE

D

BUFFER

1

A

INZ DIM(32767)

D

/ENDIF

D

D

HEADER

INZ OVERLAY(BUFFERX)

D

LENGTH

5

U

0

INZ OVERLAY(HEADER)

D

RECORDTYPE

2

A

INZ OVERLAY(HEADER:*NEXT)

D

RESERVED

2

A

INZ OVERLAY(HEADER:*NEXT)

D

VARY

INZ OVERLAY(HEADER:*NEXT)

D

VARYLENGTH

3

U

0

INZ OVERLAY(VARY)

D

SYSFLAGS

INZ OVERLAY(VARY:*NEXT)

D

SYSFLAGS1

1

A

INZ OVERLAY(SYSFLAGS)

D

SYSFLAGS2

1

A

INZ OVERLAY(SYSFLAGS:*NEXT)

D

OPCODE

1

A

INZ OVERLAY(VARY:*NEXT)

D

D

LENGTH2

S

INZ LIKE(POS)

D

HEADERSAVE

S

INZ LIKE(HEADER)

D

HEADERLEN

C

CONST(%SIZE(HEADER))

D

VARYLEN

C

CONST(%SIZE(VARY))

D

D

BUFFERXLEN

C

CONST(%SIZE(BUFFERX))

D

BUFFERLEN

C

CONST(%SIZE(BUFFER))

D

D

RECVMSG

DS

INZ

D

5

A

INZ('RECV')

D

RECVTEXT

75

A

INZ

D

D

SENDMSG

DS

INZ

D

5

A

INZ('SEND')

D

SENDTEXT

75

A

INZ

D

D

CMD

S

32702

A

INZ

D

CMDLEN

S

15

P

5

INZ(%SIZE(CMD))

D

D

CHAR

S

1

A

INZ

D

CHARPTR

C

CONST(%ADDR(CHAR))

D

D

CHARDS

DS

INZ

D

CHAR1

1

A

INZ

D

CHAR2

INZ

D

CHAR21

1

A

INZ OVERLAY(CHAR2)

D

CHAR22

1

A

INZ OVERLAY(CHAR2:*NEXT)

D

CHARDSPTR

C

CONST(%ADDR(CHARDS))

D

D

CHARS

DS

D

CHARS1

1

A

INZ OVERLAY(CHARS)

D

CHARS2

2

A

INZ OVERLAY(CHARS)

D

CHARS3

3

A

INZ OVERLAY(CHARS)

D

CHARS4

4

A

INZ OVERLAY(CHARS)

D

CHARS5

5

A

INZ OVERLAY(CHARS)

D

CHARS6

6

A

INZ OVERLAY(CHARS)

D

CHARS7

7

A

INZ OVERLAY(CHARS)

D

CHARS8

8

A

INZ OVERLAY(CHARS)

D

CHARS9

9

A

INZ OVERLAY(CHARS)

D

CHARS10

10

A

INZ OVERLAY(CHARS)

D

CHARS11

11

A

INZ OVERLAY(CHARS)

D

CHARS12

12

A

INZ OVERLAY(CHARS)

D

D

SECHTTP

S

50

A

INZ

D

SECTELNET

S

50

A

INZ

D

ADDRFAMILY

S

1

A

INZ

D

D

MSG

S

52

A

INZ

D

MODE

S

1

A

INZ

D

ACTION

S

1

A

INZ

D

D

COLX

S

7

A

INZ

D

COLTEXT

S

INZ LIKE(COLX)

D

COLLINK

S

INZ LIKE(COLX)

D

COLVLINK

S

INZ LIKE(COLX)

D

COLALINK

S

INZ LIKE(COLX)

D

COLBGCOLOR

S

INZ LIKE(COLX)

D

COLIMG

S

INZ LIKE(COLX)

D

COLTOP

S

INZ LIKE(COLX)

D

COLGRN

S

INZ LIKE(COLX)

D

COLWHT

S

INZ LIKE(COLX)

D

COLRED

S

INZ LIKE(COLX)

D

COLREDBL

S

INZ LIKE(COLX)

D

COLTRQ

S

INZ LIKE(COLX)

D

COLYLW

S

INZ LIKE(COLX)

D

COLPNK

S

INZ LIKE(COLX)

D

COLBLU

S

INZ LIKE(COLX)

D

D

TAPX

S

70

A

INZ VARYING

D

TAPTEXT

S

INZ LIKE(TAPX)

D

TAPLINK

S

INZ LIKE(TAPX)

D

TAPVLINK

S

INZ LIKE(TAPX)

D

TAPALINK

S

INZ LIKE(TAPX)

D

TAPBGCOLOR

S

INZ LIKE(TAPX)

D

TAPIMG

S

INZ LIKE(TAPX)

D

TAPTOP

S

INZ LIKE(TAPX)

D

TAPGRN

S

INZ LIKE(TAPX)

D

TAPWHT

S

INZ LIKE(TAPX)

D

TAPRED

S

INZ LIKE(TAPX)

D

TAPREDBL

S

INZ LIKE(TAPX)

D

TAPTRQ

S

INZ LIKE(TAPX)

D

TAPYLW

S

INZ LIKE(TAPX)

D

TAPPNK

S

INZ LIKE(TAPX)

D

TAPBLU

S

INZ LIKE(TAPX)

D

D

LINE

S

132

A

INZ

D

D

CC#

S

32

A

INZ

D

ORDER#

S

32

A

INZ

D

OPCODE#

S

32

A

INZ

D

RECORD#

S

32

A

INZ

D

OPTION#

S

32

A

INZ

D

OPTION2#

S

INZ LIKE(OPTION#)

D

COMMAND#

S

32

A

INZ

D

COMMAND2#

S

INZ LIKE(COMMAND#)

D

D

OPCODEX

S

INZ LIKE(OPCODE)

D

D

CHARX

S

INZ LIKE(CHAR)

D

CHARXX

S

INZ LIKE(CHAR)

D

CHARSAVE

S

INZ LIKE(CHAR)

D

D

CC1SAVE

S

INZ LIKE(CHAR)

D

CC2SAVE

S

INZ LIKE(CHAR)

D

D

SRC1

S

64

A

INZ

D

SRC2

S

INZ LIKE(SRC1)

D

SRCLEN

C

CONST(%SIZE(SRC1))

D

D

SRCCHAR

DS

D

SRCNUM

3

U

0

INZ OVERLAY(SRCCHAR)

D

D

LENCHAR

DS

INZ

D

LENNUM

3

U

0

INZ OVERLAY(LENCHAR)

D

D

LENCHAR2

DS

INZ

D

LENCHAR21

1

A

INZ

D

LENCHAR22

1

A

INZ

D

LENNUM2

5

U

0

INZ OVERLAY(LENCHAR2)

D

LENNUM21

3

U

0

INZ OVERLAY(LENCHAR21)

D

LENNUM22

3

U

0

INZ OVERLAY(LENCHAR22)

D

D

STOUT

PR

EXTPROC('QtmhWrStout')

D

BUF

32767

A

OPTIONS(*VARSIZE) CONST

D

BUFLEN

10

I

0

CONST

D

QUSEC

16

A

OPTIONS(*VARSIZE)

D

D

STIN

PR

EXTPROC('QtmhRdStin')

D

BUF

32767

A

OPTIONS(*VARSIZE) CONST

D

BUFLEN

10

I

0

CONST

D

RCVLEN

10

I

0

CONST

D

QUSEC

16

A

OPTIONS(*VARSIZE)

D

D

GETENV

PR

EXTPROC('QtmhGetEnv')

D

ENVRCV

32767

A

OPTIONS(*VARSIZE)

D

ENVRCVLEN

10

I

0

CONST

D

ENVLEN

10

I

0

D

ENVNAME

32767

A

OPTIONS(*VARSIZE) CONST

D

ENVNAMELEN

10

I

0

CONST

D

QUSEC

16

A

OPTIONS(*VARSIZE)

D

D

CVTDB

PR

EXTPROC('QtmhCvtDb')

D

FILE

20

A

CONST

D

BUF

32767

A

OPTIONS(*VARSIZE) CONST

D

BUFLEN

10

I

0

CONST

D

RSPVAR

32767

A

OPTIONS(*VARSIZE)

D

RSPVARLEN

10

I

0

CONST

D

RSPLEN

10

I

0

D

RSPCDE

10

I

0

D

QUSEC

16

A

OPTIONS(*VARSIZE)

D

D

QUSEC

DS

D

QUSBPRV

10

I

0

INZ(%SIZE(QUSEC))

D

QUSBAVL

10

I

0

INZ

D

QUSEI

7

A

INZ

D

QUSERVED

1

A

INZ

D

D

CVTCH

PR

EXTPROC('cvtch')

D

16

A

OPTIONS(*VARSIZE)

D

32

A

OPTIONS(*VARSIZE) CONST

D

10

I

0

VALUE

D

D

CVTHC

PR

EXTPROC('cvthc')

D

32

A

OPTIONS(*VARSIZE)

D

16

A

OPTIONS(*VARSIZE) CONST

D

10

I

0

VALUE

D

D

QTQCVRT

PR

EXTPGM('QTQCVRT')

D

CCSID1

10

I

0

CONST

D

ST1

10

I

0

CONST

D

S1

32767

A

OPTIONS(*VARSIZE) CONST

D

L1

10

I

0

CONST

D

CCSID2

10

I

0

CONST

D

ST2

10

I

0

CONST

D

GCCASN

10

I

0

CONST

D

L2

10

I

0

CONST

D

S2

32767

A

OPTIONS(*VARSIZE)

D

L3

10

I

0

D

L4

10

I

0

D

FB

10

I

0

DIM(3)

D

D

ASCII

S

10

I

0

INZ(819)

D

EBCDIC

S

10

I

0

INZ(273)

D

RCVLEN

S

10

I

0

INZ

D

DUMMY

S

10

I

0

INZ

D

FB

S

10

I

0

INZ DIM(3)

D

D

QCMDEXC

C

CONST('QCMDEXC')

D

QRCVDTAQ

C

CONST('QRCVDTAQ')

D

QSNDDTAQ

C

CONST('QSNDDTAQ')

D

D

UTF8X

PR

EXTPGM('UTF8')

D

BUFTEXT

32767

A

D

BUFTEXTLEN

10

I

0

CONST

D

BUFLEN

10

I

0

D

TYPE1

1

A

CONST

D

TYPE2

1

A

CONST

D

D

RANDOM

PR

EXTPROC('CEERAN0')

D

SEED

10

I

0

D

RANDNUM

8

F

D

FEEDBACK

12

A

OPTIONS(*OMIT)

D

D

SEED

S

10

I

0

INZ

D

RANDNUM

S

8

F

INZ

D

FEEDBACK

S

12

A

INZ

D

D

SOCKET

PR

10

I

0

EXTPROC('socket')

D

FAMILY

10

I

0

VALUE

D

TYPE

10

I

0

VALUE

D

PROTOCOL

10

I

0

VALUE

D

D

CONNECT

PR

10

I

0

EXTPROC('connect')

D

DESC

10

I

0

VALUE

D

ADDR

*

VALUE

D

ADDRLEN

10

I

0

VALUE

D

D

RECV

PR

10

I

0

EXTPROC('recv')

D

DESC

10

I

0

VALUE

D

BUFFER

*

VALUE

D

COUNT

10

I

0

VALUE

D

FLAGS

10

I

0

VALUE

D

D

SEND

PR

10

I

0

EXTPROC('send')

D

DESC

10

I

0

VALUE

D

BUFFER

*

VALUE

D

COUNT

10

I

0

VALUE

D

FLAGS

10

I

0

VALUE

D

D

CLOSE

PR

10

I

0

EXTPROC('close')

D

DESC

10

I

0

VALUE

D

D

FCNTL

PR

10

I

0

EXTPROC('fcntl')

D

DESC

10

I

0

VALUE

D

COMMAND

10

I

0

VALUE

D

ARG

10

I

0

VALUE OPTIONS(*NOPASS)

D

D

NONBLOCK

C

CONST(128)

D

D

GETFL

C

CONST(6)

D

SETFL

C

CONST(7)

D

D

AFUNSPEC

C

CONST(0)

D

AFINET

C

CONST(2)

D

AFINET6

C

CONST(24)

D

D

AINUMERICSERV

C

CONST(8)

D

AINUMERICHOST

C

CONST(4)

D

D

SOCKSTREAM

C

CONST(1)

D

D

IPPROTOIP

C

CONST(0)

D

D

INADDRANY

C

CONST(*ZERO)

D

INADDRNONE

C

CONST(*HIVAL)

D

D

SERVERADDR

S

4

A

INZ

D

SERVERADDR6

S

16

A

INZ

D

D

SOCKADDR

S

*

INZ

D

SOCKADDRINLEN

C

CONST(%SIZE(SOCKADDRIN))

D

SOCKADDRIN6LEN

C

CONST(%SIZE(SOCKADDRIN6))

D

D

SOCKADDRIN

DS

BASED(SOCKADDR)

D

SINFAMILY

5

I

0

D

SINPORT

5

U

0

D

SINADDR

10

U

0

D

SINZERO

8

A

D

D

SOCKADDRIN6

DS

BASED(SOCKADDR)

D

SIN6FAMILY

5

I

0

D

SIN6PORT

5

U

0

D

SIN6FLOWINFO

10

U

0

D

SIN6ADDR

16

A

D

SIN6SCOPEID

10

U

0

D

D

SIN

S

LIKE(SOCKADDRIN)

D

SINPTR

C

CONST(%ADDR(SIN))

D

D

SIN6

S

LIKE(SOCKADDRIN6)

D

SIN6PTR

C

CONST(%ADDR(SIN6))

D

D

RESX

S

*

INZ

D

D

RESDS

DS

BASED(RESX)

D

RESFLAGS

10

I

0

D

RESFAMILY

10

I

0

D

RESSOCKTYPE

10

I

0

D

RESPROTOCOL

10

I

0

D

RESADDRLEN

10

I

0

D

RESCANONNAME

*

D

RESADDR

*

D

RESNEXT

*

D

D

HINTS

DS

D

HINTSFLAGS

10

I

0

INZ

D

HINTSFAMILY

10

I

0

INZ

D

HINTSSOCKTYPE

10

I

0

INZ

D

HINTSPROTOCOL

10

I

0

INZ

D

HINTSADDRLEN

10

I

0

INZ

D

HINTSCANONNAME

*

INZ

D

HINTSADDR

*

INZ

D

HINTSNEXT

*

INZ

D

D

INETADDR

PR

10

U

0

EXTPROC('inet_addr')

D

ADDRESSSTR

*

VALUE OPTIONS(*STRING)

D

D

INETPTON

PR

10

I

0

EXTPROC('inet_pton')

D

FAMILY

10

I

0

VALUE

D

SRC

*

VALUE OPTIONS(*STRING)

D

DST

128

A

OPTIONS(*VARSIZE)

D

D

GETHOSTBYNAME

PR

*

EXTPROC('gethostbyname')

D

HOSTNAME

*

VALUE OPTIONS(*STRING)

D

D

GETADDRINFO

PR

10

I

0

EXTPROC('getaddrinfo')

D

NODENAME

*

VALUE OPTIONS(*STRING)

D

SERVNAME

*

VALUE OPTIONS(*STRING)

D

HINTS

LIKE(HINTS) OPTIONS(*OMIT)

D

RES

*

D

D

FREEADDRINFO

PR

EXTPROC('freeaddrinfo')

D

LIST

*

VALUE

D

D

ADDRX

S

10

U

0

INZ

D

D

HOSTX

S

*

INZ

D

D

HOSTDS

DS

BASED(HOSTX)

D

HOSTNAME

*

D

HOSTALIASES

*

D

HOSTADDRTYPE

10

I

0

D

HOSTLENGTH

10

I

0

D

HOSTADDRLIST

*

D

HOSTADDR

S

*

BASED(HOSTADDRLIST)

D

HOSTADDRENTRY

S

10

U

0

BASED(HOSTADDR)

D

D

SD

S

10

I

0

INZ

D

RC

S

10

I

0

INZ

D

COUNT

S

10

I

0

INZ

D

FLAGS

S

10

I

0

INZ

D

D

/IF DEFINED(TN5250SNO)

D

D

PTRBUF

S

50

A

INZ

D

PTRLEN

S

10

I

0

INZ

D

D

OK

C

CONST(0)

D

ERROR

C

CONST(1)

D

D

/ENDIF

D

D

/DEFINE TN5250S

D

/DEFINE TN5250S1

D

/UNDEFINE TN5250S2

D

/COPY SOURCE,TN5250SEC

D

D

/COPY SOURCE,TN5250SB

1156 ms | Kontakt | Information | Aibo-Bar © 2005-2024