TRANSFER Programming Manual

Agent Tester Program Code
A Sample TRANSFER Program
40970 Tandem Computers Incorporated 11–19
3< 3186 05 AG-LNK-AGENT-LINK.
3< 3187 10 AG-LNK-SESSION-ID.
3< 3188 15 AG-LNK-DUMMY PIC X(18).
3< 3189 10 AG-LNK-SENDER-INFO.
3< 3190 15 AG-LNK-SENDER-NAME PIC X(120).
3< 3191 15 AG-LNK-SENDER-APPLIC-ID PIC 9(4) COMP.
3< 3192 10 AG-LNK-RECIPIENT-INFO.
3< 3193 15 AG-LNK-RECIP-NAME PIC X(120).
3< 3194 10 AG-LNK-PACKAGE-INFO.
3< 3195 15 AG-LNK-PACKAGE-ID.
3< 3196 20 AG-LNK-DUMMY PIC X(12).
3< 3197 15 AG-LNK-AGENT-SELECTOR PIC 9(4) COMP.
3< 3198 88 AG-LNK-DEFAULT-PACKAGE Value is 0.
3< 3199 15 AG-LNK-PACKAGE-FLAGS.
3< 3200 20 AG-LNK-CERTIFIED PIC A.
3< 3201 20 AG-LNK-BYTE REDEFINES AG-LNK-CERTIFIED PIC X.
3< 3202 20 AG-LNK-RESERVED-1 PIC A
3< 3203 .
3< 3204 20 AG-LNK-RESERVED-2 PIC A
3< 3205 .
3< 3206 20 AG-LNK-RESERVED-3 PIC A
3< 3207 .
3< 3208 20 AG-LNK-RESERVED-4 PIC A
3< 3209 .
3< 3210 20 AG-LNK-RESERVED-5 PIC A
3< 3211 .
3< 3212 20 AG-LNK-RESERVED-6 PIC A
3< 3213 .
3< 3214 20 AG-LNK-RESERVED-7 PIC A
3< 3215 .
3< 3216 15 AG-LNK-SUBJECT-STRING PIC X(140).
3< 3217 10 AG-LNK-DEPOT-INFO.
3< 3218 15 AG-LNK-AGENT-DATA PIC X(80).
379
380 01 AGENT-LINK-REPLY.
381 * COPY AG-REP-AGENT-LINK-REPLY OF "GLNK".
3< 3220 * Definition AGENT-LINK-REPLY created on 12/01/86 at 14:52
3< 3221 05 AG-REP-AGENT-LINK-REPLY.
3< 3222 10 AG-REP-ERROR-INFO.
3< 3223 15 AG-REP-ERROR-RETURN PIC S9999 COMP.
3< 3224 88 AG-REP-GO-TO-NEXT-AGENT Value is 0.
3< 3225 88 AG-REP-DONT-GO-TO-NEXT-AGENT Value is 1.
3< 3226 88 AG-REP-AGENT-ERROR Value is 2.
3< 3227 88 AG-REP-AGENT-RESTART Value is 3.
3< 3228 88 AG-REP-GO-TO-NEXT-W-SESS Value is 100.
3< 3229 88 AG-REP-DONT-GO-TO-NEXT-W-SESS Value is 101.
3< 3230 88 AG-REP-AGENT-ERROR-W-SESS Value is 102.
3< 3231 15 AG-REP-ERROR-MSG PIC X(80).
382 /
383 *************************************************************************
384
385 SCREEN SECTION.
386
387 *************************************************************************
388
389 01 SCREEN1 SIZE 24, 80 .
390 05 FILLER AT 1, 12
391 VALUE "T R A N S F E R A G E N T T E S T D R I V E R" .
392 05 FILLER AT 2, 1
393 VALUE "----------------------------------------------------------------------------" .
394 05 OVERLAYA AREA AT 3, 1 SIZE 18, 80 .
395 05 OPER-MESSAGE AT 23, 2
396 PIC X(78)
397 FROM OPERATOR-MESSAGE
398 UNDERLINE
399 UPSHIFT INPUT-OUTPUT .
400 05 ERROR-MESSAGE AT 24, 2
401 PIC X(78)
402 FILL " "