目前分類：IBM-COBOL (12)

瀏覽方式： 標題列表 簡短摘要

利用在終端機不小心斷線,因"in used"而無法再使用, 即可使用

WRKDEVD 終端機名稱

(繼續閱讀...)

jamie0606 發表在 痞客邦 留言(0) 人氣()

▲top

這指令可以用來看 主機與主機 是否有連線

常使用在CRTDDMF時....線路是否有相通

(繼續閱讀...)

jamie0606 發表在 痞客邦 留言(0) 人氣()

▲top
  • May 19 Thu 2011 10:15

  • CPY

CPYF FROMFILE(&FROMLIB/&FROMFILE) + 
TOFILE(&TOLIB/&TOFILE) MBROPT(*ADD) +

(繼續閱讀...)

jamie0606 發表在 痞客邦 留言(0) 人氣()

▲top

01  I            PIC 9   VALUE 0.

01  J            PIC 9   VALUE 0.

(繼續閱讀...)

jamie0606 發表在 痞客邦 留言(0) 人氣()

▲top
  • May 12 Thu 2011 08:52

  • dtaq

 

DCL     VAR(&QNAMES) TYPE(*CHAR) LEN(10)

(繼續閱讀...)

jamie0606 發表在 痞客邦 留言(0) 人氣()

▲top

目的：將PETER/TSPNTCUST.CUS040、CUS050、CUS060由民國轉為西元

 

(繼續閱讀...)

jamie0606 發表在 痞客邦 留言(0) 人氣()

▲top

QUERY

數字轉文字

(繼續閱讀...)

jamie0606 發表在 痞客邦 留言(0) 人氣()

▲top

傳送至另一台主機

SNDNETF FILE(&L/&F) TOUSRID(('User ID' '主機名稱')) MBR(&N)

(繼續閱讀...)

jamie0606 發表在 痞客邦 留言(0) 人氣()

▲top
  • Apr 06 Wed 2011 09:56

  • SAVLIB

SAVE:

(1) CRTSAVF

(繼續閱讀...)

jamie0606 發表在 痞客邦 留言(0) 人氣()

▲top

EVALUATE  I                                    
   WHEN   X

(繼續閱讀...)

jamie0606 發表在 痞客邦 留言(0) 人氣()

▲top

EX.

03  TR1004-TABLE OCCURS 13 TIMES.      

(繼續閱讀...)

jamie0606 發表在 痞客邦 留言(0) 人氣()

▲top

A*         R ORD0M                     TEXT(' 委託輸入檔 ')
A          R ORD0M                     PFILE(HHPORD0M)     

(繼續閱讀...)

jamie0606 發表在 痞客邦 留言(0) 人氣()

▲top