SUBROUTINE GETLOG ( cmdstr, istrt, iend, trnlen, trns, lentrn, + ids ) C+ C SUBROUTINE GETLOG C C Environment: System Utility DEF C Env. Vsn: 01.00 C C Subroutine/Function Description: C C Calls the executive routine RCTLON to translate logical names. C Please note the correction to the manual set in the update notes C for Version 3.0 for this routine. C C Parameter List: C Name Type I/O Purpose C -------------------------- ------------- ------ ------------------------ C C cmdstr Character*80 I Buffer to translate. C istrt Integer*2 I Start pointer to trans. C iend Integer*2 I End pointer to trans. C trnlen Integer*2 I Length of buffer TRNS C trns Character*80 O Translation C lentrn Integer*2 O Length of output C ids Integer*2 O Error status C C Data Structures: C COMMON Blocks: NONE C C C Side effects: NONE C C C------------------------------------------------------------------------- C Environmental Requirements C C Re-compile Procedure: See MOVEBLD.CMD C Compile Command: F4P GETLOG=GETLOG/NOTR/RO C Library: MOVE.OLB C Modules called: RCTLON ( Executive ) C C Test Procedures: C Test Data Files: NONE C Test Scripts: NONE C Documents: NONE C C Module Documentation: C Help File: NONE C Document File: NONE C C Required Logicals: NONE C C Required Files: NONE C C C Written By: Robert Hays C KMS Fusion, Inc. C P.O. Box 1567 C Ann Arbor, Mich. 48106 C C Ident: RLH001 C Date: September 29, 1986 C C C Change Log: C Date Initials Ident Description C [dd-mmm-yy] [tbs] [tbs] [tbs......] C---------------------------------------------------------------------------- C- C IDENT /01.00/ C CHARACTER*80 cmdstr, ! String to test. + trns ! Translation. C BYTE mod ! Used by RCTLON to pick the ! appropriate table. C INTEGER*2 itbmsk ! Order of tables variable. INTEGER*2 istrt, iend, trnlen, ! Lengths of strings + lentrn, ids ! and error flag. INTEGER*2 modmax, modmin ! Range for the logical table ! modifier. C DATA itbmsk/0/ ! DATA modmin/0/, modmax/2/ ! C C Executable begins here. C DO 130 k = modmin, modmax ! Try each table available. mod = k ! Start through each MOD table. CALL RCTLON ( mod, ! Try to translate the logical + itbmsk, ! stored in cmdstr. + , cmdstr(istrt:iend), ! + iend-istrt+1, trns, ! + trnlen, lentrn, , ids )! IF ( ids .EQ. 1 ) THEN ! Success? GO TO 135 ! END DO. END IF ! 130 CONTINUE ! Loop back up. 135 CONTINUE ! Jump here to return. RETURN ! END