0114デフォルトの名無しさん2013/02/10(日) 23:32:41.00 *** 01 W2-CHANNEL. 02 W2SKBN PIC X(1) VALUE SPACE. 02 FILLER PIC X(255). *** 01 O1-PR3. 02 O1SKBN PIC X(1) VALUE SPACE. 02 O1KINGAKU PIC ZZZZ,ZZ9. ***** PROCEDURE DIVISION. ***** MAIN-1 SECTION. PERFORM MAESHORI THRU MAESHORI-EXIT. * PERFORM FILE-OPEN THRU FILE-OPEN-EXIT. * PARAGRAPH-1-1. DISPLAY "Hello!" UPON CONSOLE. * PERFORM FILE-CLOSE THRU FILE-CLOSE-EXIT. STOP RUN. END PROGRAM 2CHAN. 0115デフォルトの名無しさん2013/02/11(月) 11:21:30.48>>111>>112>>113>>114 すみません。これはなんですか? 0116デフォルトの名無しさん2013/02/11(月) 11:26:10.04>>115 http://toro.2ch.net/test/read.cgi/tech/1358572977/0117デフォルトの名無しさん2013/02/14(木) 00:39:39.57 ***** MAESHORI SECTION. ***** ACCEPT SYSTEM-DATE FROM DATE. IF SMONTH IS NUMERIC THEN IF SDAY IS NUMERIC THEN MOVE "T" TO DATEKBN ELSE MOVE SPACE TO DATEKBN END-IF ELSE MOVE SPACE TO DATEKBN END-IF. ACCEPT SYSTEM-TIME FROM TIME. IF SHH IS NUMERIC THEN IF SMM IS NUMERIC THEN IF SSS IS NUMERIC 0118デフォルトの名無しさん2013/02/14(木) 00:42:01.53 THEN MOVE "T" TO DAYKBN ELSE MOVE SPACE TO DAYKBN END-IF ELSE MOVE SPACE TO DAYKBN END-IF ELSE MOVE SPACE TO DAYKBN END-IF. MAESHORI-EXIT. EXIT. ***** FILE-OPEN SECTION. ***** OPEN CHANNEL1. OPEN CHANNEL2. OPEN PR3. FILE-OPEN-EXIT. EXIT. 0119デフォルトの名無しさん2013/02/14(木) 00:45:01.56 ***** FILE-CLOSE SECTION. ***** CLOSE CHANNEL1. CLOSE CHANNEL2. CLOSE PR3. FILE-CLOSE-EXIT. EXIT. ***** 0120デフォルトの名無しさん2013/02/14(木) 01:41:05.78>>115 COBOLのソースコードじゃん。 0121デフォルトの名無しさん2013/02/18(月) 20:33:40.70 なんだかなつかしいなあ 0122デフォルトの名無しさん2013/02/24(日) 22:14:28.26 PERFORM WRITE-RTN THRU WRITE-EXT VARYING S-IDX FROM 1 BY 1 UNTIL ( S-IDX > 10 ). 0123デフォルトの名無しさん2013/02/25(月) 19:03:26.86>>122WRITE-RTNからWRITE-EXTを、S-IDXを1から始めて1ずつカウントアップし、S-IDXが 10を超過するまで繰り返す…か。 0124デフォルトの名無しさん2013/02/25(月) 19:52:37.16 ADD 1 TO COBOL GIVING COBOL 0125デフォルトの名無しさん2013/03/10(日) 23:14:48.61 OCCURSはオカズ 0126デフォルトの名無しさん2013/03/29(金) 23:10:52.90 やんよってどこの方言?