比如接受壹個數字，然後平方，顯示出來。
工作存儲部分。
77 x圖片x(10)。
77 XasNum pic s9(09)。
77 x2 pic 9(18)。
77 x2-編輯圖片z(17)9。
程序部。
顯示“請輸入壹個數值(最多9位，可以是負數):”
沒有前進。
接受x。
將函數numval(x)移動到XasNum。
計算x2 = XasNum ** 2。
將x2移至x2-編輯。
數字“顯示”的平方是:“x2-編輯。
別跑了。
如果是大型機環境，應該在JCL的SYSIN中指定X的值。至於顯示的輸出結果，您應該查看作業日誌。
至於輸出乘法表，如下:
工作存儲部分。
77我選了99。
77 j圖99。
77 k pic 99。
程序部。
執行從1到1變化I，直到I > 0。九
執行從1到1變化j，直到j > 0。我
計算k = i * j
顯示i "*" j "=" k " "，不前進
結束-執行
顯示" "
結束-執行。
別跑了。
這兩個程序都是符合COBOL ANSI 85標準的編譯器支持的，我只是列出了必要的代碼，比如數據劃分，環境劃分，標識劃分，這些都不是我寫的。
添加以下內容:
IBM大型機系列JCL中妳問的SYSIN的格式如下:(取ACCEPT上面的壹個值，平方後顯示為例)。
//SYSIN DD *
+1000
/*
因為這個例子只接受壹次，求它平方就是輸出，所以SYSIN如上。
妳可以改變程序，循環，依次接受它並顯示它平方，直到接受的值等於9999，程序停止。
此時，SYSIN的格式如下:
//SYSIN DD *
100
+1000
-20300
九千九百九十九
/*
程序* * *就這樣處理了三個數值，正100，正1000，負20300。
至於妳問的ALLOC DD(SYSIN) DS(*)，這是壹個TSO命令，它使用妳的終端作為SYSIN。
妳的老師怎麽說？妳提到了CALL，我覺得大概是這樣用的:
在JCL中指定SYSTSIN:
//SYSTSIN DD *
ALLOC DD(SYSIN) DS(*)
調用(您的可執行模塊)
還是妳的老師寫了壹份名單？
妳應該向妳的老師詢問細節。