Marc's Place

DIBIOL/DBL - OSSL Subroutines

The OSSL Operating System-specific Subroutine Library (OSSL) comprises a group of
subroutines which exist on some, but not all DIBOL-83 implementations.  The syntax
and function may vary slightly from operating system to operating system.

ACCESS

       ACCESS compares an access list specified in the TASK statement with a VAX
       Access Rights List (ACL).

          XCALL ACCESS (list,status)

          record
                    ok, d1

          xcall ACCESS ("PAYROLL,PERSONEL", ok)
          if ok then
          ...
          else
          ...


BEGFL

       BEGFL positions the file pointer at the first record in the file.

          XCALL BEGFL (ch)


CHAIN (samen met GTENT)

       CHAIN transfers control from the currently executing program to the
       program specified in the XCALL CHAIN statement.

          XCALL CHAIN (filespec,parameter)


DSMNT

       DSMNT logically dismounts a disk or tape volume on a physical disk or
       tape drive. Source is present in the DIBOL kit.

          XCALL DSMNT (errnum,device)


EMPBUF (zie FLUSH)

       EMPBUF directs the file system to write out all modified I/O buffers
       associated with the file or device opened on the specified channel.

          XCALL EMPBUF (ch)


ENDFL

       ENDFL positions the file pointer after the last record of a file.

          XCALL ENDFL (ch)


GETCM

       GETCM retrieves the data from common memory that has been set aside
       for data transfer between programs.  The size of common memory is 252
       characters.

          XCALL GETCM (afield)


GETFA (zie ook %RFA)

       GETFA returns the attributes of a file.

          XCALL GETFA (ch, keyword, field)


GLINE

       GLINE gets program input from a command file or from a terminal.

          XCALL GLINE ({size,}record{,prompt})


GTENT

       GTENT retrieves an alpha or decimal value that is passed to the
       program by the CHAIN subroutine.

          XCALL GTENT (parameter)


JBNAM

       JBNAM retrieves the image name of the calling program.

          XCALL JBNAM(afield)


KILL

       KILL terminates the process.

          XCALL KILL


LOCK (samen met ULOCK)

       LOCK keeps the calling program memory resident and suppresses the
       normal swapping procedures executed by the operating system.

          XCALL LOCK


MNT

       MNT logically mounts a disk or tape volume on a physical disk or tape
       drive.

          XCALL MNT (errnum,device{,nexp})

      errnum

         errnum is a numeric field in which errors will be returned.

      device

         device is an alpha field which describes device and volume name to be
         mounted.

      nexp

         nexp indicates whether this is mounted read-only (1) or read-write
         (0).


PURGE

       PURGE deletes all but the highest numbered version(s) of the
       specified file(s) from the specified directory.

          XCALL PURGE (filespec)


PUTCM

       PUTCM stores data in the common memory set aside for data transfer
       between programs.

          XCALL PUTCM (afield)


RCVID

       RCVID specifies the receiver identification for the program or restores
       the default name, and sets the maximum size of the messages which
       may be received with a RECV statement.

          XCALL RCVID {({afield}{,maxmsg})}


          Proc  ; Programname is AAP
          ...
                    xcall RCVID ('NOOT')
                    recv (message, e)        ; Receive messages addressed to program NOOT.
                    xcall RCVID
          ...
          E,
                    stop


RSTATD (zie %RSIZE en %RTERM)

       RSTATD returns the size and terminating character as a numeric field for
       the last record read by the statements READ, READS, and ACCEPT, or by the
       subroutine IXREAD.

           XCALL RSTATD (size {,tcode})


SLICE

       SLICE alters the priority of the current program.

          XCALL SLICE(nexp)


SORT

       SORT provides a callable interface to the DBLSORT utility.

          XCALL SORT (parms, outfile, errnum {,status})


SRCVID

       SRCVID allows a DIBOL program to declare itself a message receiver with a
       user-supplied receiver ID, or to remove itself from the system's table of
       eligible receiver programs.

       SRCVID is used only with SSEND and SRECV.

            XCALL SRCVID {(afield {,n})}


SRECV

       SRECV receives a message stored by the operating system in response to a
       previously executed SSEND subroutine.

            XCALL SRECV (message, #char)


SSEND

       SSEND transmits a message to be stored by the operating system until
       retrieved by the execution of an SRECV subroutine.

            XCALL SSEND (message, prgid, status)


TTFLGS

       TTFLGS sets terminal oriented flags used by the DIBOL Run-Time Library.

            XCALL TTFLGS (parameter {,action})


ULOCK

       ULOCK revokes the previously executed LOCK subroutine.

          XCALL ULOCK
© 1997- Marc Vos (and others) Contact Me