LOGON PROG.JIM,XOXO
LOGOFF

RUN $DEV2.OBJECTX.myprogram
VOLUME $DATA.XXX

-- DEBUGGING --
RUND $DEV2.OBJECTX.myprogram
PATHCOM $CC;ALTER SERVER my-server, DEBUG ON, HOMETERM myterm
DEBUG $xx, TERM myterm
PATHCOM $pc;INSPECT TERM debug-term, FILE myterm
PATHCOM $pc; ALTER TERM debug-term, INSPECT ON (FILE $myterm)


PERUSE;J #cobol.myprog; LL ; FB/ERROR/
FUP DUP xxx,yyy,PURGE,SAVEID,SAVEALL
COBOL85/IN $DATA.SUBVOL.myprog, OUT $S.#myprog/$DATA.OBJVOL.myprog; NOLIST;SYMBOLS;INSPECT
O $DATA.SUBVOL.OBEYFILE

SCOBOL/IN $DATA.SUBVOL.myprog/$DATA.OBJVOL.POBJ
SCUP;INFO $DATA.SUBVOL.POBJ (program-name)

-- SCOBOL --
BEGIN-TRANSACTION.
SEND SCREEN-DATA TO "DMSERV04" UNDER PATHWAY "$CC"
	REPLY CODE 0 YIELDS DMSCR04-DATA
	REPLY CODE 888 YIELDS DMSCR04-DATA
	REPLY CODE 999 YIELDS DMSCR04-DATA
    ON ERROR ABORT-TRANSACTION GO TO GET-OUTA-HERE.
IF HDR-REPLYCODE = 888
   ABORT-TRANSACTION
ELSE
  END-TRANSACTION.

-- COBOL --
FD SCREEN-IN RECORD CONTAINS 1 TO 2000 CHARACTERS LABEL RECORD IS OMITTED.
COPY CCRPINHDR IN $DEV4.CCLIB.CCCOBLIB.
01 SCREEN-IN...
   05 SCREEN-IN-HDR PIC X(40).
   05 SCREEN-IN-DATA PIC X(1960).
OPEN SCREEN-IN WITH TIME LIMITS SHARED.
READ SCREEN-IN AT END STOP RUN.
IF SCREEN-IN-CODE = "200"
   PERFORM XXX THROUGH XXX-EXIT.
XXX.
  MOVE SCREEN-IN TO SCREEN-OUT.
  IF SCREEN-IN-XX (2:1) = "B"
       MOVE 999 TO SCREEN-OUT-REPLY-CODE
       EXIT PARAGRAPH.
  MOVE 0 TO SCREEN-OUT-REPLY-CODE.
 WRITE SCREEN-OUT.
XXX-EXIT. EXIT.