TRANSFER Programming Manual

Agent Tester Program Code
A Sample TRANSFER Program
11–30 40970 Tandem Computers Incorporated
1091
1092 MOVE RSP-GID-RESERVED-1 OF RSP-GID-DELIV-CONTROL-FLAGS
1093 TO AG-LNK-RESERVED-1
1094 MOVE RSP-GID-RESERVED-2 OF RSP-GID-DELIV-CONTROL-FLAGS
1095 TO AG-LNK-RESERVED-2
1096 MOVE RSP-GID-RESERVED-3 OF RSP-GID-DELIV-CONTROL-FLAGS
1097 TO AG-LNK-RESERVED-3
1098 MOVE RSP-GID-RESERVED-4 OF RSP-GID-DELIV-CONTROL-FLAGS
1099 TO AG-LNK-RESERVED-4
1100 MOVE RSP-GID-RESERVED-5 OF RSP-GID-DELIV-CONTROL-FLAGS
1101 TO AG-LNK-RESERVED-5
1102 MOVE RSP-GID-RESERVED-6 OF RSP-GID-DELIV-CONTROL-FLAGS
1103 TO AG-LNK-RESERVED-6
1104 MOVE RSP-GID-RESERVED-7 OF RSP-GID-DELIV-CONTROL-FLAGS
1105 TO AG-LNK-RESERVED-7
1106 MOVE RSP-GID-CREATOR-NAME TO SENDER-NAME
1107 MOVE SENDER-NAME TO AG-LNK-SENDER-NAME
1108 MOVE RSP-GID-APPLIC-ID TO APPLICATION-ID
1109
1110 MOVE RSP-GIR-DATA-STRING OF RSP-GIR-RECS-RETURNED (1) TO
1111 SUBJECT-STRING
1112 MOVE RSP-GIR-REC-SEQ-NUM OF RSP-GIR-RECS-RETURNED (1)
1113 TO SEQUENCE-NUMBER
1114 MOVE RSP-GIR-REC-TYPE OF RSP-GIR-RECS-RETURNED (1)
1115 TO DATA-RECORD-TYPE
1116 MOVE SUBJECT-STRING TO AG-LNK-SUBJECT-STRING
1117
1118 MOVE APPLICATION-ID TO AG-LNK-SENDER-APPLIC-ID
1119 MOVE RSP-SCN-ITEMS-RETURNED (1) TO AG-LNK-PACKAGE-ID
1120 MOVE RSP-GID-YEAR OF RSP-GID-SUBMITTED-DATE TO SENT-YEAR
1121 MOVE RSP-GID-MONTH OF RSP-GID-SUBMITTED-DATE TO SENT-MONTH
1122 MOVE RSP-GID-DAY-OF-MONTH OF RSP-GID-SUBMITTED-DATE TO
1123 SENT-DAY
1124 MOVE RSP-GID-HOUR OF RSP-GID-SUBMITTED-DATE TO SENT-HOUR
1125 MOVE RSP-GID-MINUTE OF RSP-GID-SUBMITTED-DATE TO
1126 SENT-MINUTES
1127 MOVE RSP-GID-PARENT-COUNT TO DESC-PARENT-COUNT
1128 MOVE RSP-GID-COMPNT-COUNT TO DESC-COMPONENT-COUNT
1129 MOVE RSP-GID-ITEM-TYPE TO DESCRIPTOR-ITEM-TYPE
1130 MOVE RSP-GID-UPDATE-CONTROL TO
1131 ITEM-UPDATE-CONTROL
1132 MOVE RSP-GID-PRIORITY TO PRIORITY.
1133
1134
1135 200-GET-ITEM-DESCRIPTOR-EXIT.
1136 EXIT.
1137
1138 200-GET-ITEM-DESCR-SEND-ERROR.
1139 * Handle case where SEND error occured and nothing got through:
1140 MOVE "Y" TO FATAL-ERRORS-CONTROL.
1141 * move error code for a fatal SEND error to error-number-1:
1142 MOVE 9001 TO ERROR-NUMBER-1.
1143 MOVE TERMINATION-STATUS TO ERROR-NUMBER-2.
1144
1145 200-GET-ITEM-DESCR-BAD-IPC.
1146 * Handle case where the IPC header did not work:
1147 MOVE "Y" TO FATAL-ERRORS-CONTROL.
1148 IF ih-IPC-RETN-CODE LESS THAN 4000
1149 * move error code for reply length invalid to error-number-1:
1150 MOVE 9002 TO ERROR-NUMBER-1
1151 MOVE IH-IPC-RETN-CODE TO ERROR-NUMBER-2
1152 ELSE
1153 MOVE IH-IPC-RETN-CODE TO ERROR-NUMBER-1
1154 MOVE IH-IPC-RETN-CODE-DETAIL TO ERROR-NUMBER-2.
1155
1156 200-GET-ITEM-DESCR-ERRORS.
1157 * Handle case where there is an error in one of the UOWs going from
1158 * left to right:
1159 IF RSP-GID-RETN-CODE > 0