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 compares an access list specified in the TASK statement with a VAX
       Access Rights List (ACL).

          XCALL ACCESS (list,status)

                    ok, d1

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


       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 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 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 positions the file pointer after the last record of a file.

          XCALL ENDFL (ch)


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

          XCALL GETCM (afield)

GETFA (zie ook %RFA)

       GETFA returns the attributes of a file.

          XCALL GETFA (ch, keyword, field)


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

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


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

          XCALL GTENT (parameter)


       JBNAM retrieves the image name of the calling program.

          XCALL JBNAM(afield)


       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 logically mounts a disk or tape volume on a physical disk or tape

          XCALL MNT (errnum,device{,nexp})


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


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


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


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

          XCALL PURGE (filespec)


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

          XCALL PUTCM (afield)


       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


       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 alters the priority of the current program.

          XCALL SLICE(nexp)


       SORT provides a callable interface to the DBLSORT utility.

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


       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 receives a message stored by the operating system in response to a
       previously executed SSEND subroutine.

            XCALL SRECV (message, #char)


       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 sets terminal oriented flags used by the DIBOL Run-Time Library.

            XCALL TTFLGS (parameter {,action})


       ULOCK revokes the previously executed LOCK subroutine.

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

On this website, Google Analytics is used to track visitor statistics. These are anonymised data about the number of visitors, which pages they visit on this site, from which regions they visit, which web browsers they use, etc.. You will also see non-personalised ads via Google AdSense. Cookies from Paddle or Paypal are placed when you click on a 'Buy now!' or 'Donate!' button, and possible cookies from Disqus when you use that system to comment on one or more blogposts.
Privacy Statement