Exchange/RJE Manual

Send/Receive Program Example
Example Programs
104698 Tandem Computers Incorporated D–11
Page 12 [1] $RJE.EXCHAPPL.RJEPROG 1991-06-17 11:05:47
SEND TEST
506. 000466 1 2 CALL end^it^all (ibuffer, write^count, server^fnum);
507. 000474 1 2 end^loop := 1;
508. 000476 1 2 RETURN end^loop;
509. 000500 1 2 END;
510. 000500 1 1
511. 000500 1 1 ! send job 'TST2780' !
512. 000500 1 1 ! first record !
513. 000500 1 1 sbuffer ':=' ["//TST2780 JOB CLASS=A ", 29*[" "]] ->@sp;
514. 000511 1 1 write^count := @sp '-' @sbuffer;
515. 000515 1 1 CALL WRITEREAD (server^fnum, ibuffer, write^count, null, count^read);
516. 000526 1 1 IF <>
517. 000526 1 1 THEN
518. 000527 1 1 BEGIN
519. 000527 1 2 CALL FILEINFO (server^fnum, error);
520. 000540 1 2 CALL DEBUG;
521. 000541 1 2 END;
522. 000541 1 1
523. 000541 1 1 ! second record !
524. 000541 1 1 sbuffer ':=' ["//STEP1 EXEC PGM=IEFBR14", 28*[" "]] ->@sp;
525. 000552 1 1 write^count := @sp '-' @sbuffer;
526. 000556 1 1 CALL WRITEREAD (server^fnum, ibuffer, write^count, null, count^read);
527. 000567 1 1 IF <>
528. 000567 1 1 THEN
529. 000570 1 1 BEGIN
530. 000570 1 2 CALL FILEINFO (server^fnum, error);
531. 000601 1 2 CALL DEBUG;
532. 000602 1 2 END;
533. 000602 1 1
534. 000602 1 1 ! third record !
535. 000602 1 1 sbuffer ':=' ["//", 39*[" "]] ->@sp;
536. 000613 1 1 write^count := @sp '-' @sbuffer;
537. 000617 1 1 CALL WRITEREAD (server^fnum, ibuffer, write^count, null, count^read);
538. 000630 1 1 IF <>
539. 000630 1 1 THEN
540. 000631 1 1 BEGIN
541. 000631 1 2 CALL FILEINFO (server^fnum, error);
542. 000642 1 2 CALL DEBUG;
543. 000643 1 2 END;
544. 000643 1 1
545. 000643 1 1 ! eof -- JCL cards !
546. 000643 1 1 CALL CONTROL (server^fnum, send^eof);
547. 000652 1 1 IF <>
548. 000652 1 1 THEN
549. 000653 1 1 BEGIN
550. 000653 1 2 CALL FILEINFO (server^fnum, error);
551. 000664 1 2 CALL DEBUG;
552. 000665 1 2 END;
553. 000665 1 1
554. 000665 1 1 ! close the line server !
555. 000665 1 1 CALL CLOSE (server^fnum);
556. 000672 1 1 IF <>
557. 000672 1 1 THEN
558. 000673 1 1 BEGIN
559. 000673 1 2 CALL FILEINFO (server^fnum, error);
560. 000704 1 2 sbuffer ':=' ["CLOSE ATTEMPT FAILED--ERROR: "] ->@sp;
561. 000715 1 2 write^count := @sp '-' @sbuffer;
562. 000721 1 2 CALL NUMOUT (sbuffer[write^count-3], error, 10, 3);