②磁気テープ上のデータセットから直接アクセス記憶装置への複写
順データセットへ複写する。
11
EXEC PSCOPYIISYSUT1 00 DSN=データセヴト公， DISP=OLD，UNIT=OPENMT，
11
LABEL=(~ ， SL"lN) ， VOL=SER= ボリューム還し蕃号IISYSUT2 00 DSN=F1234.PS.FOR
I
，DlSP=(NEW，CATLG)，11
SPACE=(TRK ，(孟阜L主~)， RLSE) ， UNIT=PUB ，11
DCB=(L RECL=80，
RECFM=FB，
BLKSIZE=312Q)‑区分データセットへ全メンパを複写する。
11
EXEC COPYIIIN
00 DSN=データセヴト完， DlSP=OLD，UNIT=OPENMT，11
LABEL=(l，
SL)，
VOL=SER=ポ
IJューム摘し春男
IIOUT
00 DSN=F1234.PO.FOR T，DISP=(NEW，CATLG)，11
SPACE=(TRK，(l0，10，5)，RLSE)，UNIT=PUB，11
DCB=(L RECL=80，
RECFM=FB，
BLKSIZE=3120) IISYSIN 00*
COPY OUTDD=OUT
，
INDD=IN1*
4 .
パックアップデータセット使用上の注意事項についてTSS処理において、下記のTSSコマンドが異常終了したときには、原則として処 理中のデータセットの内容は自動的にパックアップデータセットに退避されます。とこ ろが、パックアップデータセットのデータセット名は処理中のコマンドにより一意に決
u﹁ ﹁
n6
っています。そのため、他のデータセットのパックアップ処理によりパックアップデー タセットの内容が更新されますので、パックアップデータセットが作成されたならば、
すみやかにデータセットの復元を行って下さい。
コマンド名 パックアップデータセット名
EDIT Fnnnn. EDITSAVE.
内容識別修飾子NEDIT Fnnnn. NEDTSAVE. TEXT CONDENSE Fnnnn. CONDENSE
RELEASE Fnnnn. RELEASE. CONDENSE
ただし、
EDIT
およびCONDENSE
コマンドでは、オペランドに記述することに より任意のパックアップデータセット名を指定することができます。5 . FORTRAN
プログラムエラーメッセージの日本語(漢字)出力についてFORTRAN77
コンパイラが出力するエラーメッセージ、および統計情報などをジ ョブ制御文にパラメータCSPARM='LANG=J
りで指定することにより、日本語(漢 字)で出力することができる様になりました。御利用下さい。使用例
11 EXEC FORT77 ， STEP=CLG ， S PARM='LANG=J' IIFORT.SYSIN 00 DSN=
データセット名，DISP=SHR 11
出力例 FORTRAN 77 V10L10 日付 84.06.20
000001 WRITE(6
，
21)時 i 1
f10.24.08000002 21 FOR阿AT(lH1，5X，2HDO，6X，3HSIN，7X，3HCOS，4X，lX，7HSIN+COSII)
000003 RAO=3.141592653/180.
000004 00 10 lTH=1，501
000005 X(ITH)=FLAT(lTH‑1)
ERROR OETECTEO ‑‑ S LEVEL ‑‑ーー司ーーーーー‑ーーーーーーー司ーーーーーーーー帽ーーーーーーー‑‑‑‑‑価値ー‑‑‑ーーーーーー・
000006 YS(lTH)=SlN(X(lTH)*RAD)
ERROR OETECTEO ‑‑ S LEVEL ‑ーーーーーーーーーーー鴫明暗ーーーー‑‑‑‑‑ーーーーー・ーーーーーーー白ーーーーー・ーーーーーー・ー・
000007 YC(ITH)=COS(X(ITH)愈RAO)
ERROR OETECTEO ‑‑ S LEVEL ‑ー‑ーーーー‑ーーーーーーーーーーーーーーー鳴ーーーーーーーーーーーー明ー也ーーーー‑‑‑‑‑‑ーーー‑
000008 Y(ITH)=YS(ITH)+YC(ITH)
ERROR OETECTEO ‑‑ S LEVEL ‑ーーーー・曲ーーーー‑ー‑‑ーーーーーー‑‑‑‑‑ーーーーーーーーー'ーーー・・ーーーー・ーーーーーーー‑
000009 WRITE(6，20)X(lTH)，YS(ITH)，YC(ITH】，Y(ITH)
000010 20 FOR例AT<4F10.5)
000011 100 CONTINUE
000012 STOP
000013 ENO
FORTRAN 77エラーメッセージ: プログラム名〈阿AIN
， )
FLAG(I)，
OPTI阿IZE(2)JZK379I‑S ISN 00000005 NA阿 X この文で許され江い位置に左括彊があります.
JZK379I‑S ISN 00000006 NA阿 YS この文で許きれない位置に左揺彊があります.
JZK3791‑S ISN 00000007 NA阿 YC この文で許きれない位置に左
l l i
磁があります.JZK379f‑S ISN 00000008 NA附 Y この文で許されない位置に左活組があります.
JZK455I‑S ISN 00000004 この00文に対応する緒末文li，lI!:益されていないか文は正しい入れ子になぞ
JZK4571‑S ISN 00000004 LAB 000010 この文が引用している文番号は未定穫です.
‑86 ‑
6 .
フォームオーパレイパターンの機能追加についてs P (4. 2)
日本語ラインプリンタ装置においては、プログラムの実行により出力する時、枠付け、線 付け、題固などの様式を組み合わせ同時に出力することができますが、この枠付け、線付け、
題固などの定義情報をフォームオーバレイパターンといいます。(詳細は、センター ニュース
NO. 20‑1983. 1 . 25)
このたび、新たに、フォームオーバレイパターンに次の様な機能が追加されましたので御 利用下さい。
(1)斜線をひく
出 . t 1 f @
(2
)円を描く① 実 線
LINE SP(4 ， 2) ， EP(lS ， 21) ， REPEAT(S ， S ， O)
② 太 線
LINE SP(lS ， 2S) ， EP(2 ， 40) ， THICK(20)
③ 破 線
LINE SP(30 ， 2S) ， EP(17 ， 40) ， THICK(20) ， DOT(40 ， 20)
5本
‑87 ‑
② ③ ， ; * " '
l '
20t'・け，
F
BP (2・40)
， 一
庄一ム一 ァ
ι 土
40ド '.40)
l '
④円〈太線)
CIRC
しE CP(65 ， 25) ， RADIUS(15) ， THICK(10)
⑤円〈繰返し)
CIRCLE CP(70 ， 40) ， RADIUS(6) ， REPEAT(3 ， 7 ， 9)
④
⑤
槌
7 . TS S
データセットプリントCDSPR1NT)
の利用についてデータセットの内容を直接プリンタ装置に出力する処理プログラム(D
SPRINT)
が使 用できます。以下にDSPRINT
の主な特長を示します。(1)
TSS
端末と同じ場所にあるプリンタ装置に、センターのラインプリンタに出力される ようなリストが得られる。(印刷制御文字付きのデータセットの場合)( 2
)複数のTSS
ユーザから同時に同じプリンタ装置に出力依頼ができる。( 3
)出力依頼したTSS
ユーザ、はプリンタ出力の開始/終了を待たずに、直ちに次のコマン ドが入力できる。( 4
)データセットの内容の必要な部分を編集(行範囲，カラム範囲の指定)して出力するこ とができる。( 5
)プリンタ装置に対する印刷(1ページの行数，行間隔，用紙の前後の空白行数)の指定 ができる。第
lTSS
端末室のプリンタ装置名:180
1.182
1.…英数字，カナ文字 第2TSS
端末室のプリンタ装置名:1 6 0 9
…・・H ・H ・...……英数字，カナ文字，漢字 日本語端末室のプリンタ装置名:160
8‑・H・H ・'"・H・H・H ・‑英数字，カナ文字，漢字図形
特殊端末室のプリンタ装置名