cobol褰撲腑鏂囦欢鎬庝箞瀹氫箟鍙橀暱
扬州沐宇科技
2023-10-13 20:01:45
COBOL
鍦–OBOL涓紝鍙互浣跨敤涓嬮潰鐨勮鍙ュ畾涔変竴涓彉闀挎枃浠讹細
FD 鏂囦欢鍚?RECORDING MODE IS V.
01 璁板綍鍚?
05 瀛楁1 PIC X(10).
05 瀛楁2 PIC X.
05 瀛楁3 PIC X(20).
05 瀛楁4 REDEFINES 瀛楁3.
10 瀛楁4A PIC X(10).
10 瀛楁4B PIC X(10).
涓婅堪浠ｇ爜涓紝浣跨敤浜哣妯″紡鏉ュ畾涔夋枃浠讹紝杩欒〃绀烘枃浠舵槸鍙橀暱鐨勩€傚湪璁板綍瀹氫箟涓紝浣跨敤PIC X鏉ュ畾涔夊瓧娈碉紝鍙互鏍规嵁闇€瑕佹寚瀹氫笉鍚岀殑闀垮害銆傚湪杩欎釜渚嬪瓙涓紝瀛楁1鐨勯暱搴︽槸10涓瓧绗︼紝瀛楁2鐨勯暱搴︽槸1涓瓧绗︼紝瀛楁3鐨勯暱搴︽槸20涓瓧绗︺€?/p>
姝ゅ锛屽鏋滈渶瑕佸畾涔夊寘鍚笉鍚岄暱搴︾殑瀛楁锛屽彲浠ヤ娇鐢≧EDEFINES鍏抽敭瀛楋紝濡傜ず渚嬩腑鐨勫瓧娈?銆備娇鐢≧EDEFINES鍏抽敭瀛楀彲浠ュ皢瀛楁4瀹氫箟涓轰笌瀛楁3閲嶅彔鐨勪袱涓瓧娈碉紝瀛楁4A鐨勯暱搴︿负10涓瓧绗︼紝瀛楁4B鐨勯暱搴︿篃鏄?0涓瓧绗︺€?/p>
瑕佹敞鎰忕殑鏄紝瀵逛簬鍙橀暱鏂囦欢锛屾瘡涓褰曠殑闀垮害鍙兘浼氫笉鍚岋紝鍥犳鍦ㄨ鍙栨垨鍐欏叆鏂囦欢鏃讹紝闇€瑕佹牴鎹疄闄呴暱搴︽潵澶勭悊鏁版嵁銆?/p>
