TRANSFER Programming Manual

Sample Client Code
Designing and Writing a Client
069138, Update 1 to 040970 Tandem Computers Incorporated 9–51
908 IF ih-pw-reply-code > 1
909 PERFORM error-section
910 ABORT-TRANSACTION
911 GO TO accept-mail-data.
912
913 END-TRANSACTION.
914
915 IF gsu-num-returned < 1
916 MOVE 1 TO gsu-num-returned
917 MOVE SPACES TO gsu-data-string( 1 ).
918
919 IF grt-num-returned < 1
920 MOVE 1 TO grt-num-returned
921 MOVE SPACES TO grt-data-string( 1 ).
922
923 MOVE SPACES TO ws-data-rec-block.
924 PERFORM move-gtx-data-string
925 VARYING gtx-index FROM 1 BY 1
926 UNTIL gtx-index > gtx-num-returned.
927
928 DISPLAY read-mail-screen.
929
930 IF rsp-scn-w-eof AND scan-index = rsp-scn-num-returned
931 DISPLAY TEMP "LAST ITEM" IN error-line OF base-screen.
932
933 MOVE "Y" TO item-flag.
934
935 accept-mail-data.
936
937 ACCEPT
938 ESCAPE ON
939 logon-key, f2, read-mail, discard-mail,
940 compose-mail, post-mail
941 return-key, logoff-key.
942
943 MOVE TERMINATION-STATUS TO key-pressed.
944
945 IF return-request
946 MOVE 2 TO key-value
947 MOVE "Y" TO exit-scan-flag
948 GO TO get-mail-section-exit.
949
950 IF logoff-request
951 MOVE 8 TO key-value
952 MOVE "Y" TO exit-scan-flag
953 GO TO get-mail-section-exit.
954
955 IF discard-request AND item-active
956 PERFORM discard-mail-section
957 GO TO get-mail-section-exit.
958
959 IF NOT read-request
960 MOVE "FUNCTION KEY PRESSED IS NOT ALLOWED" TO ws-error
961 DISPLAY TEMP error-line of base-screen
962 GO TO accept-mail-data.
963
964 IF item-active
965 MOVE rsp-scn-items-returned( scan-index ) TO uow-scn-item-id.
966
967 GO TO get-mail-section-exit.
968
969 move-gtx-data-string.
970 MOVE gtx-data-string( gtx-index ) TO ws-data-rec-string( gtx-index ).
971
972 get-mail-section-exit.
973 EXIT.
974 /
975 discard-mail-section SECTION.
976