TRANSFER Programming Manual

Sample Client Code
Designing and Writing a Client
069138, Update 1 to 040970 Tandem Computers Incorporated 9–55
1184 MOVE rsp-cri-item-id TO atx-item-id( air-index ).
1185 MOVE 120 TO atx-rec-type( air-index ).
1186 MOVE air-index TO atx-rec-seq-num( air-index ).
1187 MOVE 78 TO atx-data-byte-count( air-index ).
1188
1189 post-mail-section-exit.
1190 EXIT.
1191 /
1192 logoff-section SECTION.
1193
1194 *********************************************************************
1195 * Terminate dialogue between correspondent and TRANSFER. *
1196 *********************************************************************
1197
1198 IF NOT session-active
1199 GO TO logoff-section-exit.
1200
1201 TURN TEMP BLINK IN msg
1202 DISPLAY TEMP "LOGGING OFF" IN msg.
1203
1204 BEGIN-TRANSACTION.
1205
1206 MOVE "LOGOFF" TO error-name.
1207 MOVE -3 TO ih-request-code.
1208 MOVE 1 TO ih-uows-to-process.
1209
1210 *********************************************************************
1211 * SENDS IPC TO END SESSION. *
1212 *********************************************************************
1213
1214 SEND ipc-hdr, end-session-uow
1215 TO "TISERV"
1216 REPLY CODE 0 YIELDS ipc-hdr, end-session-rsp
1217 ON ERROR MOVE TERMINATION-STATUS TO term-status
1218 PERFORM error-section
1219 ABORT-TRANSACTION.
1220
1221 MOVE 1 to key-value.
1222 MOVE "N" TO session-flag.
1223
1224 RESET TEMP msg.
1225
1226 END-TRANSACTION.
1227
1228 DISPLAY TEMP "LOGOFF COMPLETED" IN error-line OF base-screen.
1229
1230 logoff-section-exit.
1231 EXIT.
1232 /
1233 error-section SECTION.
1234
1235 *********************************************************************
1236 * Only rudimentary error handling is provided in this example. *
1237 * If errors are found, refer to the TRANSFER Messages Manual. *
1238 *********************************************************************
1239
1240 RESET TEMP msg.
1241
1242 MOVE SPACES TO error-field-array.
1243
1244 MOVE 1 TO ESUB.
1245
1246 IF term-status NOT = 0
1247 MOVE "TM-ST " TO e-name (esub)
1248 MOVE term-status TO e-field (esub)
1249 ADD 1 TO esub.
1251 IF ih-pw-reply-code NOT = 0
1252 MOVE " PWRP" TO e-name( esub )
1253 MOVE ih-pw-reply-code TO e-field( esub )