!*************************** AMUS Program Label ******************************
! Filename: GETUSR.BAS Date: 01/04/89
! Category: UTIL Hash Code: 134-210-344-344 Version: 1.0A(100)
! Initials: CALD/AM Name: STEPHEN CALDWELL
! Company: Telephone #:
! Related Files:
! Min. Op. Sys.: AMOS32 1.0D Expertise Level: BEG
! Special:
! Description: Displays current user name from job control block.
!
!
!*****************************************************************************
program GETUSR,1.0A(100)
map1 USRNAM,S,20
START: JCB = (65536 * word(1052)) + (word(1054))
X = JCB + 211 ! Actual offset = 212
! but look below! We start
for I = 1 to 20 ! at one with our loop.
USRNAM[I;1] = chr$(byte(X+I)) ! Check byte by byte and
! get ASCII value translated.
next I
? "Current user name is ";USRNAM ! Note: Strip your own spaces.
END
