TRANSFER Programming Manual

Sample Client Code
Designing and Writing a Client
069138, Update 1 to 040970 Tandem Computers Incorporated 9–43
2< 2908 88 rsp-usv-E-FLD-NOT-FOUND VALUE 5676.
2< 2909 88 rsp-usv-E-FLD-BAD-NAME VALUE 5677.
2< 2910 88 rsp-usv-E-FLD-BAD-TYPE VALUE 5678.
2< 2911 88 rsp-usv-E-FLD-NO-SUCH-NODE VALUE 5679.
2< 2912 88 rsp-usv-E-FLD-SECURITY VALUE 5680.
2< 2913 88 rsp-usv-E-FLD-NSRV-NOT-FOUND VALUE 5681.
2< 2914 88 rsp-usv-E-FLD-NSRV-DOWN VALUE 5682.
2< 2915 88 rsp-usv-E-FLD-NET-DOWN VALUE 5686.
2< 2916 88 rsp-usv-E-FLD-NOT-SAME-NODE VALUE 5697.
2< 2917 88 rsp-usv-E-FLD-AMBIGUOUS-NAME VALUE 5698.
2< 2918 10 rsp-usv-RETN-CODE-DETAIL PIC S9(4) COMP.
367 *********
368 /
369 *********************************************************************
370 * DEFINITIONS OF ERROR FIELDS AND VARIOUS FLAGS. *
371 *********************************************************************
372
373 01 ws-msg PIC X(25).
374
375 01 ws-error.
376 05 error-name PIC X(14).
377 05 error-field-array.
378 10 error-field OCCURS 6 TIMES.
379 15 e-name PIC X(6).
380 15 e-field PIC S9(4).
381
382 01 various-flags.
383 05 term-status PIC S9(4) VALUE ZERO.
384 05 esub PIC 9(2) VALUE 1.
385 05 key-pressed PIC 9(2) VALUE 1.
386 88 logon-request VALUE 1.
387 88 function-request VALUE 3, 5.
388 88 read-request VALUE 3.
389 88 discard-request VALUE 4.
390 88 compose-request VALUE 5.
391 88 post-request VALUE 6.
392 88 return-request VALUE 7.
393 88 logoff-request VALUE 8.
394 05 key-value PIC 9(2) VALUE 1.
395 05 session-flag PIC X(1) VALUE "N".
396 88 session-active VALUE "Y".
397 05 item-flag PIC X(1) VALUE "N".
398 88 item-active VALUE "Y".
399 05 exit-scan-flag PIC X(1) VALUE "N".
400 88 exit-scan VALUE "Y".
401 05 first-scan-flag PIC X(1) VALUE "Y".
402 88 first-scan VALUE "Y".
403 05 air-index PIC 9(4) COMP.
404 05 gtx-index PIC 9(4) COMP.
405 05 scan-index PIC 9(4) COMP.
406
407 * TRANSFER expects the time to be a PIC 9(6) format, but
408 * SCREEN COBOL returns a PIC 9(8) format. The following lines are
409 * used to reformat from the SCREEN COBOL to the TRANSFER form.
410
411 05 accept-time.
412 07 accept-time1.
413 10 hour PIC 9(2).
414 10 min PIC 9(2).
415 10 sec PIC 9(2).
416 07 centi-secs PIC 9(2).
417 /
418 SCREEN SECTION.
419
420 *********************************************************************
421 * DEFINITION OF BASE SCREEN. The logon, function menu, and *
422 * specific function screens, will be superimposed on this base *
423 * screen through overlays. *
424 *********************************************************************