OS/390 MVS COBOL HELLOWORLD

参考底下的代码，写好源程序和JCL。

在TSO上执行
SUBMIT IBMUSER.SY.SRCLIB(COB2LNK)
编译源程序。会生成IBMUSER.SY.LOADLIB(HELLO)。

第二步，执行
SUBMIT IBMUSER.SY.SRCLIB(JGOHELLO)
执行程序。可能会提示输入一个ID，可以输入1。
然后用SDSF查看输出。具体方法是，
执行SDSF，进入菜单，输入O 进入Output queue，
再输入BOTTOM 到达最后一页，找到JOBNAME为IBMUSER1的行，
在它左侧NP列输入？，回车。
可以看到列出了JESMSGLG，JESJCL，JESYSMSG，SYSOUT几行。
它们分别是JOB解析结果，执行的信息，和程序输出。
在SYSOUT左侧输入S，回车，即可看到程序输出的HELLO。


注意，有可能需要先连接用户目录才能访问COBOL。
连接方法请参考‘OS/390 CATALOG 笔记’。

============================================
COBOL源程序：
IBMUSER.SY.SRCLIB(HELLO)

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
ENVIRONMENT DIVISION.
DATA DIVISION.
PROCEDURE DIVISION.
MAIN.
DISPLAY 'HELLO'.
STOP RUN.

编译源程序的JCL：
IBMUSER.SY.SRCLIB(COB2LNK)

//COBLNK   JOB  (PLS,81038),'SY',CLASS=A,REGION=4096K,
//         MSGLEVEL=(1,1),MSGCLASS=A,NOTIFY=&SYSUID
//*************************************************************
//* JOB TO COMPILE AND LINK A COBOL PROGRAM
//*************************************************************
//COMP    EXEC PGM=IGYCRCTL
//STEPLIB  DD  DSN=COBOL.V2R1M0.SIGYCOMP,DISP=SHR
//SYSIN    DD  DSN=IBMUSER.SY.SRCLIB(HELLO),DISP=SHR
//SYSLIB   DD  DSN=IBMUSER.SY.COPY,DISP=SHR
//SYSLIN   DD DSN=&&LOADSET,UNIT=SYSDA,DISP=(MOD,PASS),
//            SPACE=(TRK,(3,3)),
//            DCB=(BLKSIZE=3040)
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT2   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT3   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT4   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT5   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT6   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT7   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSPRINT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
/*
//**************************************************************
//LKED    EXEC PGM=IEWL,COND=(4,LT,COMP),
//             PARM='LIST,LET,XREF,MAP'
//SYSLIB   DD  DSN=IBMUSER.SY.COPY,DISP=SHR
//         DD  DSN=CEE.SCEELKED,DISP=SHR
//SYSLIN   DD DSN=&&LOADSET,DISP=(OLD,DELETE)
//SYSLMOD  DD DSN=IBMUSER.SY.LOADLIB(HELLO),DISP=SHR
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSPRINT DD SYSOUT=*
/*

执行HELLO的JCL：
IBMUSER.SY.SRCLIB(JGOHELLO)

//IBMUSER   JOB NOTIFY=IBMUSER
//STEP1   EXEC PGM=HELLO,REGION=2048K
//STEPLIB DD DSN=IBMUSER.SY.LOADLIB,DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//