[Info-vax] Calling $CREPRC in COBOL

[Single Stage to Orbit]

On Mon, 2022-06-13 at 22:54 -0500, Dennis Boone wrote:
>  > Using COBOL to interface to VMS has been a serious eye-opener for
> me in
>  > reading this thread.  I guess no-one is going to be doing even a
> bare
>  > metal LED blinker in COBOL any time soon...  :-)
> 
> Never underestimate the chance that some weirdo may combine some COMP
> data, the REVERSE verb, and some overlay moves.  I mean, there's
> http://www.coboloncogs.org/ so...
> 
> /me ponders how to nmost obscurely get GPIO on a vax or itanic.

Raspberry Pi, using OpenCOBOL. See the 9th post on
https://forums.raspberrypi.com/viewtopic.php?t=139325 for the gory
details :-D

IDENTIFICATION DIVISION.
       PROGRAM-ID. HELLOWORLD.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
        01 WS-GPIO-INIT PIC x(40) VALUE 'echo "21" >
/sys/class/gpio/export'.
        01 WS-GPIO-DIR PIC x(80) VALUE 'echo "out" >
/sys/class/gpio/gpio21/direction'.
        01 WS-GPIO-ON PIC x(80) VALUE 'echo "1" >
/sys/class/gpio/gpio21/value'.
        01 WS-GPIO-OFF PIC x(80) VALUE 'echo "0" >
/sys/class/gpio/gpio21/value'.
        01 WS-GPIO-ClR PIC x(80) VALUE 'echo "21" >
/sys/class/gpio/unexport'.      
-- 
Tactical Nuclear Kittens