全国共同利用 大型計算機システム利用の手引き（VOS3 編）

東京大学情報基盤センターでは、
全国共同利用の計算サービスを提供するスーパーコンピューターを中心とした「大型計算機システム」による計算サービス等を行っています（以降、「本センターのシステム」あるい
は単に「システム」と略す）。
本利用の手引きでは、その中でも大型汎用コンピューター MP5800 上で動作する VOS3 OS を利用する
ための基本的な操作方法を記述しています。

０．目次
本記事で記述している内容については以下のとおりです。
① 本センターの大型計算機システムの紹介、利用負担金、接続方法について② TSS 基本操作、エディター (ASPEN) の使用方法③ バッチジョブの投入方法

目次

１．大型計算機システムの概要
１．１ システムの紹介
１．１．１ ハードウェア
１．１．２ ソフトウェア
１．１．３ システムの概念図
１．１．４ システムの分類・用途
１．２ センター利用の案内
１．２．１ 利用申請
１．２．２ 計算機運転時間
１．２．３ センター館内サービス時間
１．３ 利用負担金
１．３．１ 定額利用負担金
１．３．２ 利用負担金の契機

２．センターシステムへの接続方法
２．１．１ センター内端末を利用する方法
２．１．２ ネットワークを利用して接続する方法
２．１．３ 電話回線を経由して接続する方法

３．基本的な使用法
３．１
３．２

ログオン（LOGON）
ログオフ（LOGOFF）

目次

４．ASPEN の利用
４．１ ASPEN とは
４．１．１ ASPEN の主な特徴
４．１．２ ASPEN の機能
４．２ ASPEN の起動と終了
４．２．１ ASPEN の起動（開始）４．２．２ ASPEN の終了
４．３ プログラム（データー）の編集
４．３．１ プログラム（データー）の入力
４．３．２ プログラム（データー）の編集
４．３．３ ASPEN の便利な機能

５．ＴＳＳ操作
５．１ プログラムの実行
５．２ 簡単・便利なコマンド
５．２．１ ＨＥＬＰコマンド
５．２．２ ＭＡＮＵＡＬコマンド
５．２．３ ＭＳＧＨＥＬＰコマンド
５．２．４ ＨＯＷＢＵＳＹコマンド
５．２．５ 標準課金番号（確認・変更）コマンド
５．２．６ パスワード変更コマンド
５．２．７ ＣＯＵＲＳＥＣＫ（ＬＡ）コマンド
５．２．８ ＴＳＬＯＧコマンド
５．２．９ ＬＯＧＯＮ ＲＥＣＯＮＮＥＣＴコマンド
５．２．１０ ＬＯＧＯＮ ＣＡＮＣＥＬコマンド
５．２．１１ ＣＮＥＷＳコマンド
５．２．１２ ＡＮＮＯＵＮＣＥコマンド
５．２．１３ ＢＢＳコマンド
５．３ データセット操作
５．３．１ データセットの種類と名前のつけ方
５．３．２ データセットの編成と使用上の注意
５．３．３ データセットの操作コマンド

６．バッチジョブ
６．１ バッチジョブの作成
６．２ バッチジョブの実行

１．大型計算機システムの概要

１．１

システムの紹介

本センターには、汎用大型計算機、ベクトル並列型スーパーコンピューター、超並列型スーパーコンピューターがあります。以下にそれぞれのハードウェア構成の概略を示します。

１．１．１

ハードウエア

汎用大型計算機
HITACHI MP5800/320 3 プロセッサ
総記憶容量（主記憶＋拡張記憶）： 10 GB
磁気ディスク装置：約 1732GB
磁気テープ装置：オープンリール型 6250/1600 BPI： 3 台
カートリッジ型 200MB,800MB/ 巻（非圧縮時）：8台
DAT, QIC, 8mm：各 1 台
磁気テープライブラリー装置：1 台（カートリッジ MT 4884 巻収納、 800MB/ 巻（非圧縮時））
プリンター：連続紙 2 台、カット紙 3 台、ポストスクリプト（モノクロ、カラー） 4 台
ベクトル並列型スーパーコンピューター
HITACHI SR8000 ノード総数： 128 台
1 ノード当たりの主記憶容量： 8GB、総主記憶容量： 1024GB
1 ノード当たりの理論演算性能： 8GFLOPS、総理論演算性能： 1024GFLOPS
ノード間を結ぶネットワーク性能： (片方向) 1GB/秒、(双方向) 2GB/秒
磁気ディスク装置：約 2227 GB
超並列型スーパーコンピューター
HITACHI SR2201 ノード総数： 1024 台
1 ノード当たりの主記憶容量： 256MB、総主記憶容量： 256GB
1 ノード当たりの理論演算性能： 300MFLOPS、総理論演算性能： 307.2 GFLOPS
ノード間を結ぶネットワーク性能： (片方向) 300MB/ 秒
磁気ディスク装置：約 1049 GB

１．１．２

ソフトウエア本システム上で利用できるソフトウェアには以下のものがあります。
汎用大型計算機 (MP5800/320)
・VOS3/FS システム ( VOS3 TOOL コマンドシステム )言語プロセッサー： FORTRAN77, PL/I, PASCAL, C, LISP, PROLOG, REDUCE 他
言語プロセッサー支援ツール： FORT/ASSIST 他
文書処理：（エディター）ASPEN, DESP, QED（英文清書）RUNOFF 他（和文清書）DEDIT, DROFF 他
数値計算： MATRIX, MSL2, IMSL, NUMPAC, SALS, NCARL 他
統計計算： SAS, SPSS, HISTAT, HIPACS, BMDP 他
図形処理： GPSL(Calcomp 仕様), KGRAF(GKS 仕様), NCAR Graphics 他
構造解析： MSC/NASTRAN, ISAS2 他
分子計算： GAUSSIAN86, GAMESS, MOPAC93 他
データーベース： CASTOR
ネットワーク： TELNET, FTP 他
・HI-OSF/1-MJ システム
シェル（コマンドインタプリター）： sh, csh, tcsh
言語プロセッサー： C, C++, FORTRAN77, PASCAL, LISP, PROLOG
数値計算： MATRIX/M, MATRIX/M/SSS, MSL2
シミュレーション： DEQSOL
図形処理： GKS(C,F)
文書処理： vi, jvi, emacs, nemacs, TeX, LaTeX
メール、ニュース： mail, mh, mh-e, rn, gnus
ウィンドウ： X11R5, Motif
ネットワーク： telnet, ftp, rlogin, rcp, kermit

ベクトル並列型スーパーコンピューター (SR8000)
HI-UX/MPP システム
シェル（コマンドインタプリター）： sh, csh
言語プロセッサー： FORTRAN77, FORTRAN90, 最適化 C, 最適化 C++ 他
数値計算： MATRIX/MPP, MATRIX/MPP/SSS, MSL2
並列化支援：リモート DMA 転送 , HPF, PARALLELWARE, MPI-2, PVM 他

超並列型スーパーコンピューター (SR2201)
HI-UX/MPP システム
シェル（コマンドインタプリター）： sh, csh
言語プロセッサー： FORTRAN77, FORTRAN90, 最適化 C, 最適化 C++ 他
数値計算： MATRIX/MPP, MATRIX/MPP/SSS, MSL2
構造解析： ISAS2
分子計算： GAUSSIAN94
並列化支援：リモート DMA 転送 , HPF, PARALLELWARE, MPI, PVM 他

１．１．３システムの概念図

大型汎用コンピューター

ベクトル並列型
スーパーコンピューター

超並列型
スーパーコンピューター

SR8000SR2201

MP5800/320
PRMF
VOS3

OSF/1

TSS
Batch

TSS
NQS

*1

TSS

*2

TSS

NQS

NQS

TSS

*1 スカラージョブ処理専用サブシステム*2 要素並列ジョブを含むノード占有ジョブ処理用サブシステム

１．１．４

システムの分類・用途『１．１．１ ハードウェア』でも紹介したとおり本センターのシステムはスーパーコンピューターシス
テムと大型汎用コンピューターシステムで構成されています。
各計算機システムの主な利用方法については以下の表を参照して下さい。

OS
主な用途
利用可能な最大
メモリーサイズMP5800/320
HI-OSF/1-MJ
VOS3/FS(UNIX OS)
数値計算
数値計算、アプリ
ケーション処理 一般 UNIX 利用※ 主記憶 1760 MB
1760 MB
拡張記憶 2560MB

SR8000SR2201HI-UX/MPP(UNIX OS)HI-UX/MPP(UNIX OS)

大規模数値計算
7168 MB/Node

225 MB/Node

数値計算

○

○

○

○

並列計算

×

×

○

○

○

×

×

×

○

×

×

×

統計処理
(SAS, SPSS 他)
データーベース検索(CASTOR)※ 詳細は、本誌『スーパーコンピューティングニュース』表紙裏のジョブクラス制限値の項を参照して下さい。

１．２

センター利用の案内

１．２．１

利用申請

本センターと６大学（北大・東北大・名大・京大・阪大・九大）の大型計算機センターに学術情報セン
ターを含めた８センターでは、「共通利用番号制」を実施しています。
この８センターによる共通利用番号制は、本センターまたは、６大学の大型計算機センターの何れか一
つのセンターへ書類により利用申請し、共通利用番号の交付を受けていれば、他の６大型計算機センターと学術情報センターへは、書類なしの簡単な手続きで利用申請ができます（詳しい内容については、スーパーコンピューティングニュース (Vol.1 No.1,1999.5) の『全国共同利用大型計算機システム利用の手引
き（手続き・概要編）』をご覧下さい）。

１．２．２

計算機運転時間

MP5800 (VOS3/FS,HI-OSF/1-MJ) システム、SR8000 (HI-UX/MPP) システム
原則として 24 時間サービスを行っています。ただし、毎月月末処理日はシステムを停止します。
＊月末処理日は原則として月末日に行いますが、当該日が土・日曜日（祝祭休日を含む）の月はその前日となりますのでご注意下さい。
SR2201 (HI-UX/MPP) システム
原則として 24 時間サービスを行っています。ただし、原則として毎月第１土曜日・日曜日は 1024PE
によるジョブ処理サービスを行います。

１．２．３

センター館内サービス時間

端末室
平日の 9 時 30 分から 17 時 15 分
総合受付 平日の ９ 時 00 分から 16 時 45 分まで(ただし、12 時から 13 時を除く）

１．３

利用負担金

本センターを運営し計算サービスを提供するための基本的な経費（大型計算機システムのレンタル費全額と運営経費の一部）については予算措置されていますが、利用者の要望に応える計算サービスを提供するためには既定の予算額に不足が生じます。このため、不足する経費を利用者の計算利用量に応じて負担していただくものとして「利用負担金」制度を設けています。
この利用負担金の額は、利用者が負担でき得る範囲を考慮し、併せて計算機システムの効率的な利用の促進や消耗品等の使用の適正化を促すための考慮をしたものとなっています。
また、本センターの運営費を補える利用負担金は、国立学校特別会計の「校費」です。従って、国立学校特別会計では校費をもって負担していただき、その他の経費での利用は科学研究費及び奨学寄附金（委任経理金）を除き原則として認めておりません。このことから、公・私立学校等においても前記の性格をもつ「学校経費」で負担していただいて公平を期し、他の経費（私費等）での利用は認めておりません。
最新の利用負担金（課金）額については本誌「スーパーコンピューティングニュース」の表紙裏または、情報基盤センタースーパーコンピューティング支援部門の Web ページ (以降はセンター Web ページと略)
http://www.cc.u-tokyo.ac.jp をご覧下さい。

１．３．１

定額利用負担金

利用負担金制度の内容が 1999 年 5 月 1 日より変更され、従来の従量制から定額基本負担金方式（一部従量制）になりました。なお、本制度における注意点等につきましてはスーパーコンピューティングニュース(Vol.1 No.1,1999.5) の『全国共同利用大型計算機システム利用の手引き（手続き・概要編）』をご覧下さい。

１．３．２

利用負担金の契機

利用負担金（課金）を徴収する契機は以下のとおりです。なお、詳細につきましては、本誌表紙裏またはセンター Web ページを参照して下さい。
基本負担金
利用登録時及び月最初のサービス時に課金。
ディスク課金VOS3, OSF/1, SR8000 システムの長期ファイル (/home) 課金については、月最初のサービス時に課金処理を行う。また、月途中で容量増加の場合は日割り計算して課金処理を行う。なお、月途中での減量処理は行わない。
VOS3 システム
各ジョブ (TSS セッション終了時、BATCH ジョブ終了時) 毎に課金処理を行う。
OSF/1 システム、HI-UX/MPP (SR8000) システム
CPU 課金については 1 時間毎に課金処理を行う。短期ファイル課金については 1 日 1 回。
HI-UX/MPP (SR2201) システム
利用登録時及び月最初のサービス時に CPU 及びファイル課金について月額一定額を課金。

２

センターシステムへの接続方法

本センターの大型計算機システムを利用する方法としては以下の３種類があります。
・センター内端末を利用
・ネットワークを経由して利用
・電話回線を経由して利用

２．１．１

センター内端末を利用する方法

本センター１階のオープンフロアには、VOS3 用端末としてパーソナルワークステーション 2020 ・パー
ソナルコンピュータ端末 3010 があります。これらの端末を利用する方法は、
1. 端末装置の電源を投入します。
2. 端末の割込キーと送信キーを押下します。以下のようなメッセージが出力されるので、利用者番
号・パスワードを入力します。このときパスワードは出力されません。
JCT54012A ENTER LOGONJET12021A ENTER USER ID ‑２．１．２

ネットワークを経由して接続する方法

東京大学情報ネットワークシステム (UTnet) または、TCP/IP プロトコルによるネットワークを経由して本センターの計算機システムを利用するには、telnet コマンド等の接続先として下表のホスト名を指定して
下さい。
表

ホスト名

MP5800/320

OS
VOS3/FS
HI-OSF/1-MJ

SR8000HI-UX/MPP

SR2201HI-UX/MPP

機種名−

IP アドレス表

host 名m-vos.cc.u-tokyo.ac.jp
m-unix.cc.u-tokyo.ac.jp
sr8000-s.cc.u-tokyo.ac.jp
sr8000-p.cc.u-tokyo.ac.jp
scalar-mpp.cc.u-tokyo.ac.jp

IP アドレス
130.69.240.40
130.69.240.41
130.69.240.51
130.69.240.52
130.69.240.60

IP アドレスは変更される場合がありますので、ホスト名を指定して下さい。

２．１．３

電話回線を経由して接続する方法

モデムを用いて端末と電話回線を接続し、電話回線を介して本センターを利用する方法です。各計算機に接続するための電話番号等は本誌「スーパーコンピューティングニュース」裏表紙裏またはセンター Web ページを参照して下さい。

３． 基本的な使用法
ここまでは、本センターを利用するための基本事項について記述してきました。ここからは、簡単なFORTRAN プログラムの作成から実行までを例にとって、基本的な TSS の使用方法を説明していきます。

３．１

ログオン (LOGON)

VOS3 システムに接続すると利用者番号の入力待ちとなるので、利用承認通知書に記載されている利用者
番号を入力します。その後パスワードを要求してきますので、同様にパスワードを入力します（このときパス
ワードは表示されません）。利用者番号、パスワード共に正しく入力されると下図のように>>のプロンプト表示が出力され TSS コマンド入力可能な状態になります。

VOS3 (m-vos.cc.u-tokyo.ac.jp) システムに LOGON した時の流れ
JCT54012A ENTER LOGONJET12021A ENTER USER ID ‑N30000JET12026A ENTER PASSWORD FOR N30000 ‑パスワード
JDT253I N30000 LAST EXECUTION DATE=1999.06.04 TIME=13.03.48
JET10065I TSS N30000 STARTED TIME=13:30:44 DATE=99‑06‑04
WELCOME TO MP5800.
YOUR LAST ACCOUNT (USED:¥115728 BUDGET:¥1000000)>>

TSS コマンド入力可能な状態

また、パスワード入力が間違っていた場合は再度正しいパスワード入力を求めて来ますが、２回以上間違えた場合は、接続が切断されます。
パスワードが違った場合で再入力を求めたときのメッセージ
JET12020I INVALID PASSWORDJET12015A REENTER ‑パスワード２回以上間違って接続が切断されたときのメッセージ
JET10038I NUMBER OF LOGON ATTEMPTS EXCEED LIMIT, REQUEST REJECTED

３．２

ログオフ (LOGOFF)

VOS3 システムの TSS 利用を終了するには LOGOFF コマンドを投入して利用を終了します。
>> LOGOFF
JET11061I USER COMMAND PROFILE BEING STORED* JSN=429130 CT=00.57 ET=00:00:10 MEMORY=204KB OUT=0P* FILE=(261638KB:¥31,140824KB) ACCT=(A,¥31,¥115759,¥884241)
JET10080I N30000 TSS SESSION ENDED TIME=16:51:12 DATE=99‑06‑04+

４

ASPEN の利用

４．１ ASPEN とは
ASPEN とは VOS3 システム上で動作するテキストエディターです。また、ASPEN はテキストエディター
機能の他に、プログラムの翻訳や実行などのユーティリティ機能を備えていますので、プログラム開発を効率よく行うことが出来ます。

４．１．１

ASPEN の主な特徴

ASPEN には以下の様な特徴があります。
(1) 正規表現（ある条件を満たす文字列の集合を表す）によって文字列を指定できるので、高度な検索や編集が可能です。
(2) 同時に複数個のファイルの表示、編集が可能です。また、画面を上下に分割して２つのファイルを表示することが可能です。
(3) 一時的な操作（直前の操作）ミスはその操作を取り消す事が可能です。
(4) 画面エディターとしても行エディターとしても利用が可能です。
(5) 編集を中断せずに、FORTRAN コンパイラー、各種データセットユーティリティを実行する事が可能です。そのため、エラーメッセージ等を見ながらプログラム修正等が可能となります。
(6) ASPEN 中で TSS コマンドを投入できます。

４．１．２

ASPEN の機能

12345678901234567890123
1234567890123456789012
12345678901234567890123
1234567890123456789012
12345678901234567890123
1234567890123456789012
12345678901234567890123
1234567890123456789012
12345678901234567890123
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
1234567890123456789012
1234567890123456789012
1234567890123456789012
1234567890123456789012
1234567890123456789012
1234567890123456789012
1234567890123456789012
1234567890123456789012
1234567890123456789012
1234567890123456789012
1234567890123456789012
1234567890123456789012
1234567890123456789012
1234567890123456789012
1234567890123456789012
1234567890123456789012
1234567890123456789012
1234567890123456789012
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
12345678901234567890123
1234567890123456789012
1234567890123456789012
1234567890123456789012
1234567890123456789012
編集機能、表示・検索機能、TSS コマンド実行機能@UTILITY ******** ユティリティ機能選択メニュー ************************ ‑‑‑‑‑ *１ @COPY
２ @COMPARE
３ @ALLOC
４ @DSLIST
５ @MEMLIST
６ @LISTVOL@TSS ************ ＴＳＳコマンドの実行 ****************************************>>

データセットまたはメンバの内容の複写
２つのデータセットまたはメンバの比較
データセットの割り当て、カタログ、アンカタログ
データセットの一覧表示@FRONT ********** ＴＳＳによるプログラム加工機能選択メニュー ********** ‑‑‑‑‑ *メンバの一覧表示@SLIST ********* ＳＹＳＯＵＴ情報一覧 *****************************************

データセット＆ボリューム情報
１ @FC
２ @FCD
３ @FCG
４ @FCGD
５ @FCL
６ @FCLD
７ @FL
８ @FLD

コマンド (

選択番号 () あるいは Ｓ < 選択 >，Ｄ < 削除 >，Ｒ < 解除 >，Ｃ < 変更 > を入力
してくださいスクラッチ名称 ( SEDIT01 )J1() N30000CP(J Q25096)‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑
番号
ＤＤ名
ステップ名 出力クラス 出力先出力状態 ページ数 行数
1 () JSSJCL********CDMNDNOHOLD
153
2 () SYSMSG********CDMNDNOHOLD
293
3 () SYSPRINT STP1CDMNDNOHOLD1
4
4 () SYSPRINT STP1CDMNDNOHOLD
1
4
5 () SYSPRINT STP1CDMNDNOHOLD
1
4
6 () SYSPRINT STP1CDMNDNOHOLD
1
4
J2() N30000TK(J Q24939)‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑
番号
ＤＤ名
ステップ名 出力クラス 出力先出力状態 ページ数 行数
7 () SYSTSPRT CMDCDMNDNOHOLD
1
16
8 () KPRTCMDDDMNDNOHOLD
6275@ASPEN ********** 機能選択メニュー ************************************ ‑‑‑‑‑ *)9 () KPRT2
CMD
C
DMND コマンド
NOHOLD
5
253
(

コンパイル
コンパイル（詳細）コンパイルおよび実行
コンパイルおよび実行（詳細）コンパイルおよびリンケージ
コンパイルおよびリンケージ（詳細）リンケージ
リンケージ（詳細）１ @EDIT編集
２ @VIEW
表示・検索
３ @TSSＴＳＳコマンド実行
４ @FRONT
プログラム加工（ＴＳＳ）
５ @BEHIND
プログラム加工（バッチ）コマンド ()
６ @UTILITY
ユティリティ
７ @ENVIRON
環境定義情報の更新
８ @SLISTＳＹＳＯＵＴ入出力編集
９ @RECOVER
ＬＩＭＥメンバの回復@BEHIND ********* バッチによるプログラム加工機能選択メニュー ********** ‑‑‑‑‑ *１０ @ASPEN2
拡張機能
９９ @ENDＡＳＰＥＮの終了

１ @BC
コンパイル
??
２ @BCD
コンパイル（詳細）@ENVIRON ******** 環境定義機能選択メニュー**************************** ‑‑‑‑‑ *３ @BCG
コンパイルおよび実行
４ @BCGD
コンパイルおよび実行（詳細）５ @BCL
コンパイルおよびリンケージ
１ @EDITOPT
編集オプションの定義
６ @BCLD
コンパイルおよびリンケージ（詳細）２ @PFKEY
ＰＦキーの割り当て
７ @BL
リンケージ
３ @FILE
標準割り当てファイルの定義
８@BLD
４ @INSTALLＡＳＰＥＮの構成の定義 リンケージ（詳細）
９ @BJ
ジョブ制御文作成
５ @LANG
言語プロセサの選択
コマンド (
６ @SEOPTＳＹＳＯＵＴ入出力オプションの定義(

コマンド ()@EDIT *********** 編集機能の初期設定 ********************************** ‑‑‑‑‑ *)< データセット名 , GROUP%, %, * >) < メンバ名 , GROUP%, % >) < COBOL, COBOLV, FORT, FORT77, OFORT, CGFORT,CGFORT77, PLI, PLIF, ASM, XASM, PASCAL, BASIC,
BASICF, CNTL, CLIST, DATA, ACE, C,
VER. 03‑13
ユーザ定義のコード >ALL RIGHTS RESERVED,COPYRIGHT(C)1987,1994,HITACHI,LTD.
行番号の種類( R )< A :絶対行番号 , R :相対行番号 , S :画面内行番号 >
シーケンス
(
)
< NUM あるいは NONUM >種類 ()< 空白あるいは D >)スクラッチ名()

ＡＳＰＥＮのガイド機能) : 登録を終えたジョブをサブミットする場合は S , キャンセルする場合はC を投入してくださいコマンド (

コマンド ()

データセット名 (メンバ名
データタイプ((

レコード形式
レコード長
ブロック長
メンバ識別子

(
(
(
(

表示形式

( N )

コマンド ()))< F/V/U [,B] [,A] >< F,U : 1 ‑ 1024, V : 5 ‑ 1028 >< 1 ‑ 32760 >)< N :通常 , F :機能キャラクタ表示 , B :１６進表示 >))TSS によるプログラム加工機能、ユーティリティ機能、
SYSOUT 編集機能等が画面ごとに分割されています。

)

４．２．１ASPEN の起動（開始）

ASPEN は READY モード（ >> が表示されている状態で計算機が指令を待っている状態）でコマンド『ASPEN 』を入力して起動します。 ASPEN を起動すると以下の「機能選択メニュー」画面が表示されます。
@ASPEN ********** 機能選択メニュー ************************************ ‑‑‑‑‑ *

機能の番号

画面 ID

１ @EDIT
２ @VIEW
３ @TSS
４ @FRONT
５ @BEHIND
６ @UTILITY
７ @ENVIRON
８ @SLIST
９ @RECOVER
１０ @ASPEN2
９９ @END

編集
表示・検索
ＴＳＳコマンド実行
プログラム加工（ＴＳＳ）
プログラム加工（バッチ）ユティリティ
環境定義情報の更新
ＳＹＳＯＵＴ入出力編集
ＬＩＭＥメンバの回復
拡張機能
ＡＳＰＥＮの終了??

ＡＳＰＥＮのガイド機能

VER. 03‑13
ALL RIGHTS RESERVED,COPYRIGHT(C)1987,1994,HITACHI,LTD.
確 認: 表示モードを全画面モードで実行します
12345678901234567890123456789012123456789012345678901234567890121234567890123456
12345678901234567890123456789012123456789012345678901234567890121234567890123456
コマンド ( 12345678901234567890123456789012123456789012345678901234567890121234567890123456)
コマンド投入領域
12345678901234567890123456789012123456789012345678901234567890121234567890123456

コマンド投入領域：ASPEN のコマンドや TSS コマンドを投入する領域。コマンド
投入領域は通常１行だが、『 - 』を投入すると２行まで長くする事ができる。

機能選択メニュー画面は、実行したい機能を選択する画面です。機能を選択する時には、コマンド投入領域に機能の番号または、画面 ID を入力します。

４．２．２

ASPEN の終了

ASPEN はコマンド投入領域に『 END 』コマンドを投入する事により終了します。
終了時にデータセット上に保存されていない編集中のデーターがある場合は、保存するかどうかを問い合わせてきますので、『 S 』または『 N 』を応答して下さい（下図参照）。
また、『 END 』コマンド投入時にEND SAVEと、するとデーターを保存してから終了し、
END NOSAVEと、するとデーターを保存せずに終了します。
また、『 QUIT 』コマンドでも ASPEN を終了することができます。
『 QUIT 』コマンドは、
現在の画面の呼び出し元の画面に戻るためのコ
マンドです。従って、A S P E N を終了してREADY コードに戻るためには、『 QUIT 』コ
マンドを何度か繰り返す必要があります。

@END ************ 終了処理 ******************************************** ‑‑‑‑‑ *スクラッチの扱い ( S : 保存する , N : 保存しない) を入力してください

スクラッチ S/N
データセット名
EDIT01( S ) ( 'N30000.SAMPLE.FORT'
(
) (
(
) (
(
) (
(
) (
(
) (
(
) (
(
) (

メンバ名
) (
) (
) (
) (
) (
) (
) (
) (

)
)
)
)
)
)
)
)

データーを保存する場合は『 S 』を
データーを破棄する場合は『 N 』を応答する

コマンド ()

４．３

プログラム（データー）の編集

プログラムを作成するときには、そのプログラムを保存しておく場所が必要です。この場所をデータセット（ファイルとも言う）と呼び、磁気ディスク装置を使用し、データセットを識別するために名前をつけます。それをデータセット名と言います。
一つの仕事をする際に使用するプログラムは通常一つだけですむことは少な
く、関連するプログラムを数個あるいは数十個使用して一つの仕事をすることが普通です。この時、一つのデータセットに一つのプログラムを保存しておくと処理が煩雑になりやすいので、関連プログラムをそれぞれ識別しやすい名前をつけて（これをメンバーと言う）一つのデータセットにまとめて保存します。このようなデータセットを区分データセットと呼びます（データセットについては５．３．２にて再度説明します）。

４．３．１

プログラム（データー）の入力

最初にプログラムを新しく作成するには、
どのデータセットを使用するか USE コマンド用いて宣言します。
>> USE TEST.FORT
USE コマンドで宣言されたデータセット名は、次の USE コマンドで別のデータセット名が宣言されるまで記憶されます。以下の例では ASPEN の簡易起動コマンド AE で ASPEN を起動しています。
>> AE EX1

‥ EX1 がメンバー名です。
EE ****** ＤＳ名 ('N30000.TEST.FORT(EX1)') ************************************目盛行 ‑‑‑‑+‑‑‑‑1‑‑‑‑+‑‑‑‑2‑‑‑‑+‑‑‑‑3‑‑‑‑+‑‑‑‑4‑‑‑‑+‑‑‑‑5‑‑‑‑+‑‑‑‑6‑‑‑‑+‑‑‑‑7‑‑****** ** データ行の先頭 **
000100****** ** データ行の末尾 **（省略）
ページマップ 1 + . . . . . . . . . . . . . . . . . . . 1
コマンド (

現在ページ (

1 ))↓EE ****** ＤＳ名 ('N30000.TEST.FORT(EX1)') ************************************目盛行 ‑‑‑‑+‑‑‑‑1‑‑‑‑+‑‑‑‑2‑‑‑‑+‑‑‑‑3‑‑‑‑+‑‑‑‑4‑‑‑‑+‑‑‑‑5‑‑‑‑+‑‑‑‑6‑‑‑‑+‑‑‑‑7‑‑****** ** データ行の先頭 **
00010010 WRITE(6,*) 'A='
プログラムの入力****** ** データ行の末尾 **（省略）
ページマップ 1 + . . . . . . . . . . . . . . . . . . . 1
コマンド (↓

現在ページ (

1 ))送信

EE ****** ＤＳ名 ('N30000.TEST.FORT(EX1)') ************************************目盛行 ‑‑‑‑+‑‑‑‑1‑‑‑‑+‑‑‑‑2‑‑‑‑+‑‑‑‑3‑‑‑‑+‑‑‑‑4‑‑‑‑+‑‑‑‑5‑‑‑‑+‑‑‑‑6‑‑‑‑+‑‑‑‑7‑‑****** ** データ行の先頭 **次の挿入行が表示
00010010 WRITE(6,*) 'A='
000200
され、プログラム****** ** データ行の末尾 **を入力していく（省略）

ページマップ 1 + . . . . . . . . . . . . . . . . . . . 1
コマンド (

現在ページ (

1 ))このように順次テキストを入力していき、最後まで入力し終えたら空行（送信キーのみを押す）を投入します。

４．３．２

プログラム（データー）の編集

以下に編集作業時によく使われるコマンド操作方法を記述します。
① 行の入力（Ｉコマンド、ＩＲコマンド）
行の入力は、I (Insert) コマンドまたは IR (Insert Repeatedly) コマンドを使用します。IR コマンドは
空行（送信キーのみを押す）を投入するまで挿入行を表示し続けます。
画面コマンド投入領域
EE ****** ＤＳ名 ('N30000.TEST.FORT(EX1)') ************************************目盛行 ‑‑‑‑+‑‑‑‑1‑‑‑‑+‑‑‑‑2‑‑‑‑+‑‑‑‑3‑‑‑‑+‑‑‑‑4‑‑‑‑+‑‑‑‑5‑‑‑‑+‑‑‑‑6‑‑‑‑+‑‑‑‑7‑‑****** ** データ行の先頭 **
00010010 WRITE(6,*) 'A='
000200
READ(5,*,END=999) A
000300
SA = A ‑ B
000400
SEKI = A * B
000500SHOU = A / B
000600WA = A + B
000700100 FORMAT(1H ,'A=',F10.2,' B=',F10.2/
C
1H ,'A+B',F10.1/
I RR0800
000900999 STOP
001000
END****** ** データ行の末尾 **ページマップ 1 + . . . . . . . . . . . . . . . . . . . 1
コマンド (

現在ページ (

1 ))EE ****** ＤＳ名 ('N30000.TEST.FORT(EX1)') ************************************目盛行 ‑‑‑‑+‑‑‑‑1‑‑‑‑+‑‑‑‑2‑‑‑‑+‑‑‑‑3‑‑‑‑+‑‑‑‑4‑‑‑‑+‑‑‑‑5‑‑‑‑+‑‑‑‑6‑‑‑‑+‑‑‑‑7‑‑****** ** データ行の先頭 **
00010010 WRITE(6,*) 'A='
000200
READ(5,*,END=999) A
000300
SA = A ‑ B
000400
SEKI = A * B
000500SHOU = A / B
000600WA = A + B
000700100 FORMAT(1H ,'A=',F10.2,' B=',F10.2/000800C
1H ,'A+B',F10.1/
000850←新規挿入行が表示される
000900999 STOP
001000
END****** ** データ行の末尾 **ページマップ 1 + . . . . . . . . . . . . . . . . . . . 1
コマンド (

現在ページ (

1 ))800 行目の画面コマンド投入領域に IR コマンドを投入したら新たに、850 行目に空行が挿入された② 行の複写・移動（Ｃコマンド、Ｍコマンド、Ｔコマンド）
行のコピーは、 C (Copy) コマンドを使用します。C コマンドを投入すると、投入された行は一旦「T
スクラッチ」と呼ばれる作業領域へ格納されます。同様にデーターの移動をする場合は M (Move) コマ
ンドを使用します。
T スクラッチの内容は T (To) コマンドで画面上へコピーできます。この C コマンドと、T コマンドを同時に投入することもできます。
「 T 」を投入すると投入行の後へ、「 TB 」(To Before) を投入すると投入した行の直前の行へ挿入されます。
T コマンドを何度も指定すると T スクラッチの内容を繰り返し使用できます。
複数行のコピーのためには、「 Cn (n は行数) 」と指定しますが、「 :C 」と「 :C 」で行を囲んでも指定できます。

1234567890123456789
1234567890123456789
1234567890123456789

1234567890123456789
C1234567890123456789
1234567890123456789

指定された行を一旦格納する

1234567890123456789

T スクラッチ

12345678901234567890
12345678901234567890
12345678901234567890
12345678901234567890
12345678901234567890
12345678901234567890
12345678901234567890
12345678901234567890
1234567890123456789
1234567890123456789
1234567890123456789
1234567890123456789
1234567890123456789
T 1234567890123456789
1234567890123456789
1234567890123456789

T スクラッチの中身がコピーされる

EE ****** ＤＳ名 ('N30000.TEST.FORT(EX1)') ************************************目盛行 ‑‑‑‑+‑‑‑‑1‑‑‑‑+‑‑‑‑2‑‑‑‑+‑‑‑‑3‑‑‑‑+‑‑‑‑4‑‑‑‑+‑‑‑‑5‑‑‑‑+‑‑‑‑6‑‑‑‑+‑‑‑‑7‑‑****** ** データ行の先頭 **0C
10 WRITE(6,*) 'A='
C 0100000200
READ(5,*,END=999) A
000300
SA = A ‑ B
000400
SEKI = A * B
000500SHOU = A / B
0T
WA = A + B
T 0600000700100 FORMAT(1H ,'A=',F10.2,' B=',F10.2/000800C
1H ,'A+B',F10.1/000900999 STOP
001000
END****** ** データ行の末尾 **EE ****** ＤＳ名 ('N30000.TEST.FORT(EX1)') ************************************目盛行 ‑‑‑‑+‑‑‑‑1‑‑‑‑+‑‑‑‑2‑‑‑‑+‑‑‑‑3‑‑‑‑+‑‑‑‑4‑‑‑‑+‑‑‑‑5‑‑‑‑+‑‑‑‑6‑‑‑‑+‑‑‑‑7‑‑****** ** データ行の先頭 **
00010010 WRITE(6,*) 'A='
000200
READ(5,*,END=999) A
000300
SA = A ‑ B
000400
SEKI = A * B
000500SHOU = A / B
000600WA = A + B
00065010 WRITE(6,*) 'A='
← 100 行目のデーターがコピーされた
000700100 FORMAT(1H ,'A=',F10.2,' B=',F10.2/000800C
1H ,'A+B',F10.1/000900999 STOP
001000
END****** ** データ行の末尾 **ページマップ 1 + . . . . . . . . . . . . . . . . . . . 1
コマンド (

ページマップ 1 + . . . . . . . . . . . . . . . . . . . 1
コマンド (

現在ページ (

1 ))現在ページ (

1 ))100 行目の画面コマンド投入領域に C コマンドを、600 行
目に T コマンドを投入してコピーする

EE ****** ＤＳ名 ('N30000.TEST.FORT(EX1)') ************************************目盛行 ‑‑‑‑+‑‑‑‑1‑‑‑‑+‑‑‑‑2‑‑‑‑+‑‑‑‑3‑‑‑‑+‑‑‑‑4‑‑‑‑+‑‑‑‑5‑‑‑‑+‑‑‑‑6‑‑‑‑+‑‑‑‑7‑‑****** ** データ行の先頭 **0M
10 WRITE(6,*) 'A='
M 0100000200
READ(5,*,END=999) A
000300
SA = A ‑ B
000400
SEKI = A * B
000500SHOU = A / B
0T
WA = A + B
T 0600000700100 FORMAT(1H ,'A=',F10.2,' B=',F10.2/000800C
1H ,'A+B',F10.1/000900999 STOP
001000
END****** ** データ行の末尾 **ページマップ 1 + . . . . . . . . . . . . . . . . . . . 1
コマンド (

現在ページ (

1 ))EE ****** ＤＳ名 ('N30000.TEST.FORT(EX1)') ************************************目盛行 ‑‑‑‑+‑‑‑‑1‑‑‑‑+‑‑‑‑2‑‑‑‑+‑‑‑‑3‑‑‑‑+‑‑‑‑4‑‑‑‑+‑‑‑‑5‑‑‑‑+‑‑‑‑6‑‑‑‑+‑‑‑‑7‑‑****** ** データ行の先頭 **
000200
READ(5,*,END=999) A
000300
SA = A ‑ B
000400
SEKI = A * B
000500SHOU = A / B
000600WA = A + B
00065010 WRITE(6,*) 'A='
← 100 行目のデーターが移動された
000700100 FORMAT(1H ,'A=',F10.2,' B=',F10.2/000800C
1H ,'A+B',F10.1/000900999 STOP
001000
END****** ** データ行の末尾 **ページマップ 1 + . . . . . . . . . . . . . . . . . . . 1
コマンド (

現在ページ (

1 ))100 行目の画面コマンド投入領域に M コマンドを投入し、600 行目に T コマンドを投入して移動する

EE ****** ＤＳ名 ('N30000.TEST.FORT(EX1)') ************************************目盛行 ‑‑‑‑+‑‑‑‑1‑‑‑‑+‑‑‑‑2‑‑‑‑+‑‑‑‑3‑‑‑‑+‑‑‑‑4‑‑‑‑+‑‑‑‑5‑‑‑‑+‑‑‑‑6‑‑‑‑+‑‑‑‑7‑‑****** ** データ行の先頭 **
00010010 WRITE(6,*) 'A='
000200
READ(5,*,END=999) A
SA = A ‑ B: CC0300
000400
SEKI = A * B
000500SHOU = A / B
WA = A + B: CC0600
000700100 FORMAT(1H ,'A=',F10.2,' B=',F10.2/
0TC
1H ,'A+B',F10.1/
T 0800000900999 STOP
001000
END****** ** データ行の末尾 **ページマップ 1 + . . . . . . . . . . . . . . . . . . . 1
コマンド (

現在ページ (

1 ))EE ****** ＤＳ名 ('N30000.TEST.FORT(EX1)') ************************************目盛行 ‑‑‑‑+‑‑‑‑1‑‑‑‑+‑‑‑‑2‑‑‑‑+‑‑‑‑3‑‑‑‑+‑‑‑‑4‑‑‑‑+‑‑‑‑5‑‑‑‑+‑‑‑‑6‑‑‑‑+‑‑‑‑7‑‑****** ** データ行の先頭 **
00010010 WRITE(6,*) 'A='
000200
READ(5,*,END=999) A
000300
SA = A ‑ B
000400
SEKI = A * B
000500SHOU = A / B
000600WA = A + B
300 行目から 600 行目のデー
000700100 FORMAT(1H ,'A=',F10.2,' B=',F10.2/
ターが800 行目以降にコピー
000800C
1H ,'A+B',F10.1/
された
000810
SA = A ‑ B
000820
SEKI = A * B
000830SHOU = A / B
000840WA = A + B
000900999 STOP
001000END
ページマップ 1 + . . . . . . . . . . . . . . . . . . . 1
現在ページ (
1 )コマンド ()

複数行のコピー例

③ 行の複製（ＲＰコマンド）同じ行を繰り返しコピーする場合は RP (ReProduce) コマンドを使用します。
「 RP 」を投入すると投入した行を次の行に繰り返しコピーし、「 RPn 」を入れると同じ行を n 行繰り返しコピーする事ができます。また、C コマンドや M コマンドと同様に複数行を「 :RP 」で囲む事でコピーする事もできます。
EE ****** ＤＳ名 ('N30000.TEST.FORT(EX1)') ************************************目盛行 ‑‑‑‑+‑‑‑‑1‑‑‑‑+‑‑‑‑2‑‑‑‑+‑‑‑‑3‑‑‑‑+‑‑‑‑4‑‑‑‑+‑‑‑‑5‑‑‑‑+‑‑‑‑6‑‑‑‑+‑‑‑‑7‑‑****** ** データ行の先頭 **
00010010 WRITE(6,*) 'A='
000200
READ(5,*,END=999) A
000300
SA = A ‑ B
000400
SEKI = A * B
000500SHOU = A / B
000600WA = A + B
000700100 FORMAT(1H ,'A=',F10.2,' B=',F10.2/
C
1H ,'A+B',F10.1/
R PP0800
000900999 STOP
001000
END****** ** データ行の末尾 **EE ****** ＤＳ名 ('N30000.TEST.FORT(EX1)') ************************************目盛行 ‑‑‑‑+‑‑‑‑1‑‑‑‑+‑‑‑‑2‑‑‑‑+‑‑‑‑3‑‑‑‑+‑‑‑‑4‑‑‑‑+‑‑‑‑5‑‑‑‑+‑‑‑‑6‑‑‑‑+‑‑‑‑7‑‑****** ** データ行の先頭 **
00010010 WRITE(6,*) 'A='
000200
READ(5,*,END=999) A
000300
SA = A ‑ B
000400
SEKI = A * B
000500SHOU = A / B
000600WA = A + B
00065010 WRITE(6,*) 'A='
000700100 FORMAT(1H ,'A=',F10.2,' B=',F10.2/000800C
1H ,'A+B',F10.1/
000850C
1H ,'A+B',F10.1/← 800 行目のデーターが複製された
000900999 STOP
001000
END****** ** データ行の末尾 **ページマップ 1 + . . . . . . . . . . . . . . . . . . . 1
コマンド (

ページマップ 1 + . . . . . . . . . . . . . . . . . . . 1
コマンド (

現在ページ (

1 ))現在ページ (

1 ))800 行目の画面コマンド投入領域に RP コマンドを投入して 850 行目に 800 行目と同じデーターが複製された④ 行の削除（Ｄコマンド）行の削除を行うときは D (Delete) コマンドを使用します。D コマンドも C コマンド等と同様に複数行削除する場合は「 :D 」で削除したい行を囲んで指定する事により行削除ができます。

EE ****** ＤＳ名 ('N30000.TEST.FORT(EX1)') ************************************目盛行 ‑‑‑‑+‑‑‑‑1‑‑‑‑+‑‑‑‑2‑‑‑‑+‑‑‑‑3‑‑‑‑+‑‑‑‑4‑‑‑‑+‑‑‑‑5‑‑‑‑+‑‑‑‑6‑‑‑‑+‑‑‑‑7‑‑****** ** データ行の先頭 **
00010010 WRITE(6,*) 'A='
000200
READ(5,*,END=999) A
000300
SA = A ‑ B
000400
SEKI = A * B
000500SHOU = A / B
000600WA = A + B
000700100 FORMAT(1H ,'A=',F10.2,' B=',F10.2/000800C
1H ,'A+B',F10.1/
SA = A ‑ B: DD0810
削除する範囲を :D 〜 :D
000820
SEKI = A * B
で囲む
000830SHOU = A / B

EE ****** ＤＳ名 ('N30000.TEST.FORT(EX1)') ************************************目盛行 ‑‑‑‑+‑‑‑‑1‑‑‑‑+‑‑‑‑2‑‑‑‑+‑‑‑‑3‑‑‑‑+‑‑‑‑4‑‑‑‑+‑‑‑‑5‑‑‑‑+‑‑‑‑6‑‑‑‑+‑‑‑‑7‑‑****** ** データ行の先頭 **
00010010 WRITE(6,*) 'A='
000200
READ(5,*,END=999) A
000300
SA = A ‑ B
000400
SEKI = A * B
000500SHOU = A / B
000600WA = A + B
000700100 FORMAT(1H ,'A=',F10.2,' B=',F10.2/000800C
1H ,'A+B',F10.1/000900999 STOP
001000
END****** ** データ行の末尾 **: DD0840
WA = A + B
000900999 STOP
001000END
ページマップ 1 + . . . . . . . . . . . . . . . . . . . 1
コマンド (

ページマップ 1 + . . . . . . . . . . . . . . . . . . . 1
コマンド (

現在ページ (

1 ))

複数行の削除例

現在ページ (

1 ))

⑤ 文字列の検索（Ｆコマンド、ＬＯコマンド）
文字列の検索には F (Find) コマンドと LO (LOcate) コマンドを使用します。コマンド投入領域に「 F/ 文字列 / 」と入力するとカレントポインタが位置づけられ、カーソルは指定した文字列の先頭に位置付けられます。指定した文字列の検索を繰り返す場合は、コマンド投入領域に「 // 」を投入するか、PF14 キーを押します。また、逆方向検索をする場合は ' − '（マイナス）をコマンドに付加して投入します（ -F/ 文字列 /、 -// ）。
「 / 文字列 /LO 」とコマンド投入領域に入力すると、指定した文字列を含む行にカレントポインタが位置付けられ、カーソルは行コマンド投入領域の先頭に位置付けられます。また、「行番号 LO」と入力す
ると指定された行番号にカレントポインタが位置付けられます。
※「カレントポインタ」とは、現在位置付けられている行の位置を示す仮想的なポインタであり、編集コマンドに実行と共に移動します。カレントポインタで示している行を「カレント行」と呼びます。カレント行は画面上では高輝度（館内端末 2020 などでは空色）で表示され、文字列の検索はカレントポインタが示す行から検索を開始します。

EE ****** ＤＳ名 ('N30000.TEST.FORT(EX1)') ************************************目盛行 ‑‑‑‑+‑‑‑‑1‑‑‑‑+‑‑‑‑2‑‑‑‑+‑‑‑‑3‑‑‑‑+‑‑‑‑4‑‑‑‑+‑‑‑‑5‑‑‑‑+‑‑‑‑6‑‑‑‑+‑‑‑‑7‑‑****** ** データ行の先頭 **
00010010 WRITE(6,*) 'A='
000200
READ(5,*,END=999) A
000300
SA = A ‑ B
000400
SEKI = A * B
000500SHOU = A / B
000600WA = A + B
00065010 WRITE(6,*) 'A='
000700100 FORMAT(1H ,'A=',F10.2,' B=',F10.2/000800C
1H ,'A+B',F10.1/
000850C
1H ,'A+B',F10.1/000900999 STOP
001000
END****** ** データ行の末尾 **ページマップ 1 + . . . . . . . . . . . . . . . . . . . 1
コマンド ( F / A = /現在ページ (

1 ))EE ****** ＤＳ名 ('N30000.TEST.FORT(EX1)') ************************************目盛行 ‑‑‑‑+‑‑‑‑1‑‑‑‑+‑‑‑‑2‑‑‑‑+‑‑‑‑3‑‑‑‑+‑‑‑‑4‑‑‑‑+‑‑‑‑5‑‑‑‑+‑‑‑‑6‑‑‑‑+‑‑‑‑7‑‑****** ** データ行の先頭 **文字列 A= が見つかった行が高輝度で表示さ00010010 WRITE(6,*) 'A='れる。また、カーソルもこの行に移動する。
000200
READ(5,*,END=999) A
000300
SA = A ‑ B
000400
SEKI = A * B
000500SHOU = A / B
000600WA = A + B
00065010 WRITE(6,*) 'A='
000700100 FORMAT(1H ,'A=',F10.2,' B=',F10.2/000800C
1H ,'A+B',F10.1/
000850C
1H ,'A+B',F10.1/000900999 STOP
001000
END****** ** データ行の末尾 **ページマップ 1 + . . . . . . . . . . . . . . . . . . . 1
コマンド (

現在ページ (

1 ))同じ文字列を検索する場
合はコマンド投入領域に「 // 」または PF14 を押すと再検索する

⑥ 文字列の変換（Ａコマンド、ＡＡコマンド）
A (Alter) コマンドで、特定の文字列を指定した文字列に変換する事ができます（行範囲を指定することにより、カレント行より順方向に検索し最初に見つけた文字列を変換します）。
また、AA (Alter All) コマンドでは、指定した文字列を全て変換します。
[行番号の範囲] A [ / 旧文字列 / 新文字列 ][行番号の範囲] AA [ / 旧文字列 / 新文字列 ]EE ****** ＤＳ名 ('N30000.TEST.FORT(EX1)') ************************************目盛行 ‑‑‑‑+‑‑‑‑1‑‑‑‑+‑‑‑‑2‑‑‑‑+‑‑‑‑3‑‑‑‑+‑‑‑‑4‑‑‑‑+‑‑‑‑5‑‑‑‑+‑‑‑‑6‑‑‑‑+‑‑‑‑7‑‑****** ** データ行の先頭 **
00010010 WRITE(6,*) 'A='
000200
READ(5,*,END=999) A
000300
SA = A ‑ B
000400
SEKI = A * B
000500SHOU = A / B
000600WA = A + B
00065010 WRITE(6,*) 'A='
000700100 FORMAT(1H ,'A=',F10.2,' B=',F10.2/000800C
1H ,'A+B',F10.1/
000850C
1H ,'A+B',F10.1/000900999 STOP
001000
END****** ** データ行の末尾 **ページマップ 1 + . . . . . . . . . . . . . . . . . . . 1
コマンド ( 650A/A=/B=/

現在ページ (

1 ))EE ****** ＤＳ名 ('N30000.TEST.FORT(EX1)') ************************************目盛行 ‑‑‑‑+‑‑‑‑1‑‑‑‑+‑‑‑‑2‑‑‑‑+‑‑‑‑3‑‑‑‑+‑‑‑‑4‑‑‑‑+‑‑‑‑5‑‑‑‑+‑‑‑‑6‑‑‑‑+‑‑‑‑7‑‑****** ** データ行の先頭 **
00010010 WRITE(6,*) 'A='
000200
READ(5,*,END=999) A
000300
SA = A ‑ B
000400
SEKI = A * B
000500SHOU = A / B
000600WA = A + B
00065010 WRITE(6,*) 'B='

文字列 A= が B= に変換される

000700100 FORMAT(1H ,'A=',F10.2,' B=',F10.2/000800C
1H ,'A+B',F10.1/
000850C
1H ,'A+B',F10.1/000900999 STOP
001000
END****** ** データ行の末尾 **確 認：変換した文字列数は１個ですコマンド ()

⑦ データセットへの出力（Ｗコマンド）
現在編集中のデーターまたはその一部を他のデータセットやメンバーに保存する事が出来ます。
コマンド投入領域に、W (Write) コマンドを投入します。W コマンドのオペランドには保存先のデー
タセット名またはメンバー名、保存したい範囲などを指定できます。
保存先のデータセットを新規に作成する場合は、オペランドにレコード形式、レコード長、ブロック長、
データタイプを指定できます。レコード形式などを指定しなかったときは、行サイズや入力したデーター
形式によって、レコード長やレコード形式が自動で決められます。
【例１】 編集中の行番号 1000 から 5000 までの範囲の行を SAMP.DATA のメンバー (ABC) に保存
1000:5000W SAPMLE.DATA(ABC)行の範囲

データセット名

メンバー名【例２】 編集中の全ての行をデータセット SAMP.DATA のメンバー (EFG) に保存
W SAMP.DATA(EFG)【例３】 編集中の全ての行を新しいデータセット SAMP.NEW.DATA に保存。レコード形式は固定長(FB) 、レコード長は 80 バイト、ブロック長を 6160 バイトにする。
W SAMP.NEW.DATA RECFM(FB) LRECL(80) BLKSIZE(6160)
レコード形式

レコード長

ブロック長

⑧ データセットからの入力（Ｒコマンド）
現在編集中のデーターに、他のデータセットやデータセットの一部分を取り込むことができます。
コマンド投入領域に R (Read) コマンドを投入します。
R コマンドは、
現在編集中のデーターの指定した行の直後に特定のデータセットを挿入するコマンドで、取り込むデーターの範囲を指定することもできます。データセットの内容を取り込む位置は、行アドレス（位置指定）を用いて指定し、これを省略すると、カレント行の直後に挿入されます。
【例１】 編集中のデーターのカレント行直後に編集中と同一データセットのメンバー (MEM1) を挿入
R *(MEM1)【例２】 データセット SAMP.DATA 中のメンバー A の全ての行を、現在編集中のデーターの行番号7200 の直後に挿入する。
7200R SAMP.DATA(A)挿入位置 データセット名

メンバー名

⑨ プログラムのの文法エラーの確認（ＣＯＭＰＩＬＥコマンド）
コマンド投入領域に COMPILE コマンドを投入することでプログラムを実行する前に文法エラーがな
いか確認する事ができます。また、文法エラーがある場合は、メッセージが編集画面に出力され、カーソルがエラーメッセージに対する行に移動します。
EE ****** ＤＳ名 ('N30000.SAMPLE.FORT(EX00)') *********************************目盛行 ‑‑‑‑+‑‑‑‑1‑‑‑‑+‑‑‑‑2‑‑‑‑+‑‑‑‑3‑‑‑‑+‑‑‑‑4‑‑‑‑+‑‑‑‑5‑‑‑‑+‑‑‑‑6‑‑‑‑+‑‑‑‑7‑‑****** ** データ行の先頭 **
00010010 WRITE(6,*) 'A='
000200
READ(5,*,END=999) A
000300WRITE(6,*) 'B='
000400
READ(5,*,END=999) B
000500
WA=A+B
000600
SA=A‑B
000700
SEKI=A*B
000800SHOU=A/B
000900WRITE(6,100) A,B,WA,SA,SEKI,SHOU
001000100 FORMAT(1H,'A=',F10.2,' B='F10.2/001100C
1H ,'A+B',F10.2/001200C
1H ,'A‑B',F10.2/001300C
1H ,'A*B',F10.2/001400C
1H ,'A/B',F10.2/001500C
1H )001600GOTO 10001700999 STOP
001800
END****** ** データ行の末尾 **ページマップ 1 + . . . . . . . . . . . . . . . . . . . 1
現在ページ (
1 )コマンド ( COMPILE)EE ****** ＤＳ名 ('N30000.SAMPLE.FORT(EX00)') *********************************目盛行 ‑‑‑‑+‑‑‑‑1‑‑‑‑+‑‑‑‑2‑‑‑‑+‑‑‑‑3‑‑‑‑+‑‑‑‑4‑‑‑‑+‑‑‑‑5‑‑‑‑+‑‑‑‑6‑‑‑‑+‑‑‑‑7‑‑****** ** データ行の先頭 **
00010010 WRITE(6,*) 'A='
000200
READ(5,*,END=999) A
000300WRITE(6,*) 'B='
000400
READ(5,*,END=999) B
000500
WA=A+B
000600
SA=A‑B
000700
SEKI=A*B
000800SHOU=A/B
000900WRITE(6,100) A,B,WA,SA,SEKI,SHOU
000100100 FORMAT(1H,'A=',F10.2,' B='F10.2/001100C
1H ,'A+B',F10.2/001200C
1H ,'A‑B',F10.2/001300C
1H ,'A*B',F10.2/001400C
1H ,'A/B',F10.2/001500C
1H )001600GOTO 10001700999 STOP
001800
END****** ** データ行の末尾 **確 認: COMPILE の処理は正常終了しました
コマンド ()

文法エラーがない場合

文法エラーがある行にカーソルが移動する

CE ****** ＤＳ名 ('N30000.SAMPLE.FORT(EX00)') *********************************目盛行 ‑‑‑‑+‑‑‑‑1‑‑‑‑+‑‑‑‑2‑‑‑‑+‑‑‑‑3‑‑‑‑+‑‑‑‑4‑‑‑‑+‑‑‑‑5‑‑‑‑+‑‑‑‑6‑‑‑‑+‑‑‑‑7‑‑****** ** データ行の先頭 **
00010010 WRITE(6,*) 'A='
000200
READ(5,*,END=999) A
000300RRITE(6,*) 'B='
000400
READ(5,*,END=999) B
000500
WA=A+B
000600
SA=A‑B
000700
SEKI=A*B
000800SHOU=A/B
000900WRITE(6,100) A,B,WA,SA,SEKI,SHOU
001000100 FORMAT(1H,'A=',F10.2,' B='F10.2/001100C
1H ,'A+B',F10.2/001200C
1H ,'A‑B',F10.2/001300C
1H ,'A*B',F10.2/001400C
1H ,'A/B',F10.2/001500C
1H )‑‑‑ エラー行数(0001) ‑‑ 重大度(12) ‑‑ メッセージ数(0001) ‑‑ 確認済数(0000) ‑‑‑‑
JOK025I 12210

分類不可能な文があります。

エラー: FORT77 の処理はリターンコード 12 で終了しました
コマンド (

４．３．３)

ASPEN の便利な機能① ＨＥＬＰ機能（？コマンド）
ASPEN を使用中は、HELP 機能を使ってコマンドの解説や文法エラーメッセージの内容を画面上に表示する事ができます。
HELP 機能の使い方を表示するには、コマンド投入領域に「 ?? 」と投入します。また、 HELP 表示を解除するには PF11 キーを押すか、コマンド投入領域に「 QUIT 」と投入することで元の画面に戻ります。
HELP 機能には以下のものがあります。
‥ HELP 機能の説明‥ メッセージ表示時に「 ? 」コマンドを入力すると、そのメッセージの意味や対処方法などの詳細を表示?COMMAND ‥ ASPEN で使えるコマンドの一覧表示?PANEL‥ パネル名（画面名称）の一覧表示?GUIDE‥ ASPEN の特徴や機能、操作方法が表示される??
?

② ＳＹＳＯＵＴ編集機能（＠ＳＬＩＳＴ）
ASPEN では、実行した JOB の結果を表示したり、他のデータセットに取り込んで再利用したり、不要な部分の削除などができます。
JOB の実行結果は SYSOUT データセットへ格納されますが、この操作を SYSOUT 編集といいます。
SYSOUT 編集を開始するのは、ASPEN 実行中に @SLIST コマンドをコマンド投入領域に指定します。

SYSOUT 編集が開始されると以下のような画面が表示されます。
@SLIST ********* ＳＹＳＯＵＴ情報一覧 *****************************************
選択番号 ( 1 ) あるいは Ｓ < 選択 >，Ｄ < 削除 >，Ｒ < 解除 >，Ｃ < 変更 > を入力
してくださいスクラッチ名称 ( SEDIT01 ) ← 2
J1 ( 3 ) N30000CP(J Q25096)‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑
番号
ＤＤ名
ステップ名 出力クラス 出力先出力状態 ページ数 行数
1 ( 4 ) JSSJCL********CDMNDNOHOLD
153
2 () SYSMSG********CDMNDNOHOLD
293
3 () SYSPRINT STP1CDMNDNOHOLD1
4
4 () SYSPRINT STP1CDMNDNOHOLD
1
4
5 () SYSPRINT STP1CDMNDNOHOLD
1
4
6 () SYSPRINT STP1CDMNDNOHOLD1
4
J2 () N30000TK(J Q24939)‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑
番号
ＤＤ名
ステップ名 出力クラス 出力先出力状態 ページ数 行数
7 () JSSJCL********CDMNDNOHOLD
1
4
8 () SYSMSG********CDMNDNOHOLD2
93
9 () SYSTSPRT CMDCDMNDNOHOLD
1
16
10 () KPRTCMDDDMNDNOHOLD
6275
11 () KPRT2CMDCDMNDNOHOLD
5
253

コマンド ()

各フィールドの意味は以下の通り
1 選択番号投入フィールド
2 スクラッチ名指定フィールド
3
4

編集対象としたい JOB またはデータセットの番号を指定
編集対象の JOB やデータセットを格納するスクラッチ名
称を指定
ジョブ操作フィールド
その JOB に対して選択、削除の指定（選択指定には「 S 」、
削除指定には「 D 」を投入する）
データセット操作フィールド そのデータセットに対して選択、削除の指定（選択指定には「 S 」、削除指定には「 D 」を投入する）

選択画面によって選択され表示された内容は、PF7 〜 PF10 により左右上下にスクロールして見ることができます。また、@EDIT と同様に編集もできます。SYSOUT 編集を終了するには、PF11 キーを押します。

③ ＴＳＳコマンド実行機能（＠ＴＳＳ）
ASPEN のサブコマンドが入力可能な状態で、TSS コマンドの先頭に「 # 」を付けて投入することにより、その TSS コマンドが実行できます。
EE ****** ＤＳ名 ('N30000.SAMPLE.FORT(EX00)') *********************************目盛行 ‑‑‑‑+‑‑‑‑1‑‑‑‑+‑‑‑‑2‑‑‑‑+‑‑‑‑3‑‑‑‑+‑‑‑‑4‑‑‑‑+‑‑‑‑5‑‑‑‑+‑‑‑‑6‑‑‑‑+‑‑‑‑7‑‑****** ** データ行の先頭 **
00010010 WRITE(6,*) 'A='
000200
READ(5,*,END=999) A
000300WRITE(6,*) 'B='
000400
READ(5,*,END=999) B
000500
WA=A+B
000600
SA=A‑B
000700
SEKI=A*B
000800SHOU=A/B
000900WRITE(6,100) A,B,WA,SA,SEKI,SHOU
001000100 FORMAT(1H,'A=',F10.2,' B='F10.2/001100C
1H ,'A+B',F10.2/001200C
1H ,'A‑B',F10.2/001300C
1H ,'A*B',F10.2/001400C
1H ,'A/B',F10.2/001500C
1H )001600GOTO 10001700999 STOP
001800
END****** ** データ行の末尾 **ページマップ 1 + . . . . . . . . . . . . . . . . . . . 1
現在ページ (
1 )コマンド ( #RUN *)@TSS ************ ＴＳＳコマンドの実行 ****************************************RUN
HAP FORTRAN 77 開始* プログラム名 = MAIN
* プログラム数 = 0001
A=
?
20
B=
?
30
A=
20.00 B=
30.00
A+B
50.00
A‑B
‑10.00A*B
600.00
A/B
0.67
A=
?
/*
>>

上記画面のプログラムを実行することができる

データー入力の終了を示す

コマンド ()

PF11 キーを押すことで、TSS コマンドを投入した画面に戻ることができます。

④ 環境設定機能（＠ＥＮＶＩＲＯＮ）
ASPEN では、ASPEN 使用時の作業環境、操作上の標準値、機能の使用レベルなどを各ユーザーが個別に設定できます。設定された情報は、 ASPEN 終了後も保存され、次回の ASPEN 使用時まで引き継がれます。
環境設定は、次の６種類の情報が設定できます。
@ENVIRON ******** 環境定義機能選択メニュー **************************** ‑‑‑‑‑ *１ @EDITOPT
２ @PFKEY
３ @FILE
４ @INSTALL
５ @LANG
６ @SEOPT

編集機能を実行する際の環境情報を定義

編集オプションの定義
ＰＦキーの割り当て
標準割り当てファイルの定義
ＡＳＰＥＮの構成の定義
言語プロセサの選択
ＳＹＳＯＵＴ入出力オプションの定義

SYSOUT 編集機能を実行する際の各環境情報を定義

PF キーの機能を指定使用するファイルの定義
使用する各言語
プロセッサの定義

コマンド ()

ASPEN 全機能に共通した環境情報を定義@INSTALL ******** ＡＳＰＥＮの構成の定義 ****************************** ‑‑‑‑‑ *キーワード オプション
IPANEL ( @ASPEN )FLTMSG ( OFF)TSSBUF ( 8 )TSSIFLD ( 3 )VIOBUF ( 128 )VIOFILE ( MEMORY )VIOBLK ( 1024)
TEMPBLK ( 300)

LDEDIT ( YES )NATIVE ( N )MODE( PSCM )PSCMOPT ( P,S,K )ＡＳＰＥＮ起動時の初期パネル < パネル名 >メッセージの出力量の調整 < INFORM, WARNING, ON, OFF >記憶するＴＳＳコマンドの画面数 < 2‑50 >ＴＳＳコマンド投入領域の行数 < 0‑3 >スクラッチとして使用する仮想記憶ページ数 < 3‑1024 >作業ファイルの種類 < DATASET, MEMORY >ＡＳＰＥＮ作業ファイルのブロック数 < 6‑99999999 >＃ＲＵＮ，＃ＥＸＥＣ，）ＥＸＥＣ，＃ＳＵＢＭＩＴ，ＣＯＭＰＩＬＥコマンドでの ' * ' 指定時の一時ファイルのブロック数 < 0‑16777215 >言語依存編集機能の利用 < YES, NO >表示言語の選択 < N :日本語 , E :英語 >ＡＳＰＥＮ起動モード < LINE, FULL, PSCM >ＰＳＣＭオプション < [P/A],[S/C],[E/K] >@ I N S T A L L の中の
VIOFILE を MEMORY に設定しておくと編集処理が高速になります。

環境情報を更新した場合は、必ず送信キーを押してくださいコマンド ()

下線部分が標準値を変更した部分 (MODE, PSCMOPT はパソコンから利用する場合に設定しておく）

５． ＴＳＳ操作
前節で ASPEN の基本的な操作方法を説明してきました。本節では、作成したプログラムを実行する方法
等を説明していきます。

５．１

プログラムの実行

プログラムの実行は、ＣＧＯコマンド（ Compile and GO、翻訳と実行 ）を使います。
>>>>

USE TEST.FORT ←実行するメンバー（プログラム）がどのデータセットに存在するのか宣言する←実行するプログラムが格納されているメンバー名を指定する
CGO MAINCGO コマンドで指定したメンバー名は記憶されますので、２回目以降、同じメンバーを実行する際は場合
はメンバー名が省略できます。この記憶値は、AE コマンドで使用する記憶値と同じものですから、プログラ
ムの作成から実行までを効率良く行うことができます。
プログラムの作成から実行するまでの流れ>>>>

USE TEST.FORTAE MAIN↓←プログラムの作成

>>

CGO
↓

←プログラムの実行（メンバー名「 MAIN 」が省略されている）

>>

AE
↓

←プログラムの修正（メンバー名「 MAIN 」が省略されている）

>>

CGO

←プログラムの再実行（メンバー名「 MAIN 」が省略されている）

メンバー名、コンパイラオプション等の記憶値は STATE コマンド（省略形 STA）で確認することができます。
>> STA
CODE
SDSN
SMEM
MDSN
MMEM
SFPAR
SFLIB
SFGPAR>>

VAL(SFORT)VAL(TEST.FORT)VAL(MAIN)VAL(TEST.LOAD)
VAL(MAIN)VAL(S)‥言語コード‥ソースデータセット‥ソースメンバー名‥ロードモジュールデータセット名‥ロードモジュールメンバー名‥(FORTRAN) コンパイラオプションの並び‥(FORTRAN) 個人用ライブラリの並び‥(FORTRAN) 実行時パラメータ

【プログラムの実行例】①プログラムで使うデーターがない時
プログラム中にデーターがある時の実行例
は以下のとおり。
>> USE TEST.FORT>> CGO MAIN,PAR(S)S‑1321‑21 FORT77/HAP V26‑8A
文番号
ソース
100
200
300
400
500
600
700

1300
1400

MAIN

ソース

99‑06‑10 09:31:20②プログラムで使うデーターが少ない時端末からデーターを入力するときも①と同様に実行できます。
>> USE TEST.FORT>> CGO MAIN1,PAR(S)S‑1321‑21 FORT77/HAP V26‑8A
文番号
ソース
100
200
300
400
500
600
700
800
900
1000

DATA A/100./ B/15./
WA=A+B
SA=A‑B
SEKI=A*BSHOU=A/B
WRITE(6,101) A,B,WA,SA,SEKI,SHOU
101 FORMAT(1H,'A=',F10.3,' B='F10.3//C
1H ,'A+B',F10.3/
C
1H ,'A‑B',F10.3/
C
1H ,'A*B',F10.3/
C
1H ,'A/B',F10.3/
C
1H )
STOP
END

1600
1700
1800

* プログラム数 = 0001, エラーはありません｡
A=
100.000 B=
15.000
A+B
A‑B
A*B
A/B
>>

115.000
85.0001500.000
6.667

MAIN

ソース

99‑06‑10 09:31:23

10 WRITE(6,*) 'A='
READ(5,*,END=999) A
WRITE(6,*) 'B='
READ(5,*,END=999) B
WA=A+B
SA=A‑B
SEKI=A*BSHOU=A/B
WRITE(6,101) A,B,WA,SA,SEKI,SHOU
101 FORMAT(1H,'A=',F10.3,' B='F10.3//C
1H ,'A+B',F10.3/
C
1H ,'A‑B',F10.3/
C
1H ,'A*B',F10.3/
C
1H ,'A/B',F10.3/
C
1H )GOTO 10999 STOP
END* プログラム数 = 0001, エラーはありません｡
A=
?
20
B=
?
5
A=

20.000 B=

A+B
A‑B
A*B
A/B

25.00015.000100.000
4.000

5.000

A=
?
/*
>>

【注意】
TSS では標準的にデータセット参照番号の５番（入力）と６番（出力）が端末に割り当てられているので、データーは端末から入力し、実行結果は端末に出力されます。入力データーの終わりは「 /* 」を入力します。

③プログラムで使うデーターが多いとき
データーが多いときは、あらかじめ、ASPEN 等でデーターを作成しておいてから実行します。

>>>>

USE TEST.DATA
AE ,SEQ
EE ****** ＤＳ名 ('N30000.TEST.DATA') *****************************************目盛行 ‑‑‑‑+‑‑‑‑1‑‑‑‑+‑‑‑‑2‑‑‑‑+‑‑‑‑3‑‑‑‑+‑‑‑‑4‑‑‑‑+‑‑‑‑5‑‑‑‑+‑‑‑‑6‑‑‑‑+‑‑‑‑7‑‑****** ** データ行の先頭 **
00010010.0
2.0000200 150.0 100.00003003.14
1.15****** ** データ行の末尾 **ページマップ 1 + . . . . . . . . . . . . . . . . . . . 1
コマンド ( END SAVE

現在ページ (

1 ))

JRC1621I N30000.TEST.DATA を出力しました
JRC1537I 出力データ量は 3 レコードです
JRC0141I ASPEN ENDED>> USE TEST.FORT>> FILE FT10F001,TEST.DATA,SHR,IN>> CGO MAIN2
S‑1321‑21 FORT77/HAP V26‑8A
文番号
ソース
100
200
300
400
500
600
700
800

1400
1500
1600

入力データーセット名を指定する
MAIN

10 READ (10,100,END=99) A,B
100 FORMAT(2F7.2)
WA=A+B
SA=A‑B
SEKI=A*BSHOU=A/B
WRITE(6,101) A,B,WA,SA,SEKI,SHOU
101 FORMAT(1H,'A=',F10.3,' B='F10.3//C
1H ,'A+B',F10.3/
C
1H ,'A‑B',F10.3/
C
1H ,'A*B',F10.3/
C
1H ,'A/B',F10.3/
C
1H )GOTO 1099 STOP
END* プログラム数 = 0001, エラーはありません｡
A=
10.000 B=
2.000
A+B
A‑B
A*B
A/B

12.0008.000
20.0005.000

A=

150.000 B=

3.140 B=

A+B
A‑B
A*B
A/B

4.290
1.990
3.611
2.730

99‑06‑10 09:32:15

データーを保存しておくデータセットの末尾は「〜 .DATA 」を付けておきます。プログラムを保存しておくには、関連するメインプログラ
ムとサブルーチンプログラムをメンバーとして保存する区分データセットが便利ですが、一般にデーターは順データセット方が良いでしょう。
順データセットはその名の通りデーターが順番に並んでおり、先頭から順番にデーターを読んだり書いたりしていきます。順データセットを作成したり修正したりする場合は、AE コマンドで「 SEQ 」を指定します。
FORTRAN のプログラムでは、データセット
からデーターを読み込む場合やデータセットへ
データーを書き込む場合は、データセット参照
番号を使います。このデータセット参照番号と100.000

A+B
250.000
A‑B
50.000
A*B 15000.000
A/B
1.500
A=

ソース

実際のデータセットを結びつけるのに「 FILE 」
コマンドを使います。例ではデータセット参照
番号１０番で TEST.DATA を使うことを宣言しています。
「 FILE 」コマンドの詳しい使い方は

1.150

コマンドマニュアルを参照して下さい。

５．２

簡単・便利なコマンド

５．２．１

ＨＥＬＰコマンドこのコマンドは、コマンドの機能・使用方法・オペランドの説明を表示します（詳しい使用方法について
はコマンドマニュアル 第５版を参照して下さい）。
オペランドを付けずに HELP コマンドのみ実行すると TSS コマンドの一覧が表示される。
>> HELP‑‑START/TERMINATE TSS SESSION‑‑
LOGONSTART TSS SESSION PROCESSING.
LOGOFFTERMINATE TSS SESSION PROCESSING.
↓>> HELP HELP‑‑SYNTAX‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑HELP['COMMAND‑NAME'[[,FUNCTION][,SYNTAX]‑[,OPERANDS[('KEYWORD‑OPERAND‑NAME'[,...])]]/,ALL/,MSGID('MESSAGE‑ID'[,...])]]‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑
NOTE: IF NO OPERAND IS SPECIFIED, LIST OF COMMANDS IS DISPLAYED.
IF ANY OF 'FUNCTION', 'SYNTAX', 'OPERANDS', AND 'MSGID'IS NOT SPECIFIED, 'ALL' OPERAND IS ASSUMED.
>>

５．２．２

ＭＡＮＵＡＬコマンド

このコマンドは、コマンドマニュアルの記載されているコマンドの説明やコマンド一覧を表示します。また、本コマンドをオペランド指定なしで実行するとマニュアル（手引き）出力用のメニュー画面が表示されます（詳しい使用方法についてはコマンドマニュアル 第５版を参照して下さい）。

オペランドに「 ?? 」を指定するとマニュアルコマンドで表示できるコマンドの一覧が表示される。
>> MAN ??
ABACUSCANCEL
CNEWS

AE
CC
CODE

ASPEN
CGO
COMPILEASSIGNCHGDESTCOPY↓BBSCHKRECDATABC
CLIBRARY
DD

CALL
CLIST
DE

５．２．３ＭＳＧＨＥＬＰコマンド

このコマンドは、VOS3 システムメッセージ／システムコード及び TSS メッセージの意味を表示するコ
マンドです（詳しい使用方法についてはコマンドマニュアル 第５版を参照して下さい）。
>> MH JET24324I,J
メッセージの意味が表示される**** ＭＳＧＨＥＬＰ／Ｌ３ ****(ＪＥＴ２４３２４Ｉ)**************** 表示行(1‑7/7)
ＪＥＴ２４３２４Ｉ
ＣＯＭＭＡＮＤ
コマンド名
ＮＯＴ ＦＯＵＮＤＳＵＢＣＯＭＭＡＮＤ
メッセージテキスト中に示されるコマンドがない。
Ｓ：コマンド／サブコマンドを終了する。
Ｐ：正しいコマンド名を入力する。

*** 上方向：ＰＦ９
下方向：ＰＦ１０ 終了：ＰＦ１１ 即時終了：ＰＦ１２ ******************************************************** スクロール [ PAGE
]

５．２．４

ＨＯＷＢＵＳＹコマンド

このコマンドは、VOS3 システムでどの程度 JOB が実行されているか確認するコマンドです。
>> HOWSCALAR JOB SUMMARY
AT 11:18 10/JUN/'99‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑JOB‑CLASS
A
B
C
D
E
F
L
INPUT‑TIME
11:18 11:18 11:18 11:18 11:18 11:18 11:18
‑DATE
TODAY
WAIT‑TIME
00:00 00:00 00:00 00:00 00:00 00:00 00:00
ACTIVE‑JOBS
1
0
0
0
0
0
0
WAIT‑JOBS
0
0
0
0
0
0
0
>>
現在実行中の JOB 数を表示

５．２．５

標準課金番号（確認・変更）コマンド

このコマンドは、複数課金番号を登録している場合に、標準課金番号を確認・変更するコマンドです（詳しい使用方法についてはコマンドマニュアル 第５版を参照して下さい）。

標準課金番号の確認（「 TRL UATTR 」コマンド）>> TRL UATTR
DSGRPSAA(********) DSALLSAA(NONE)MCRGRPSAA(********) MCRALLSAA(NONE)MCTGRPSAA(********) MCTALLSAA(NONE)
AUTOPROTECTNODEST
STANDARD GROUP(#G3000)
PERIOD(**/**/**)
標準課金番号が先頭に表示される
NOMODELACCOUNT(A)PROCNAME ‑‑‑‑‑‑ LOGON000
PROCSIZE ‑‑‑‑‑‑PROCNAME ‑‑‑‑‑‑ LOGONFTPPROCSIZE ‑‑‑‑‑‑
ACCOUNT(K)PROCNAME ‑‑‑‑‑‑ LOGON000
PROCSIZE ‑‑‑‑‑‑PROCNAME ‑‑‑‑‑‑ LOGONFTPPROCSIZE ‑‑‑‑‑‑
ACCOUNT(L)PROCNAME ‑‑‑‑‑‑ LOGON000
PROCSIZE ‑‑‑‑‑‑PROCNAME ‑‑‑‑‑‑ LOGONFTPPROCSIZE ‑‑‑‑‑‑JDT22120I LIST USERATTRIBUTE PROCESSED>>3000 KB
3000 KB
3000 KB
3000 KB
3000 KB
3000 KB

標準課金番号の変更（「 TRCH ATTR 」コマンド）>> TRCH ATTR,OAC(K)JDT20132I CHANGE USERATTRIBUTE PROCESSED>> TRL UATTR
DSGRPSAA(********) DSALLSAA(NONE)MCRGRPSAA(********) MCRALLSAA(NONE)MCTGRPSAA(********) MCTALLSAA(NONE)
AUTOPROTECTNODEST
STANDARD GROUP(#G3000)
PERIOD(**/**/**)
標準課金番号が変更された
NOMODELACCOUNT(K)PROCNAME ‑‑‑‑‑‑ LOGON000
PROCSIZE ‑‑‑‑‑‑PROCNAME ‑‑‑‑‑‑ LOGONFTPPROCSIZE ‑‑‑‑‑‑
ACCOUNT(A)PROCNAME ‑‑‑‑‑‑ LOGON000
PROCSIZE ‑‑‑‑‑‑PROCNAME ‑‑‑‑‑‑ LOGONFTPPROCSIZE ‑‑‑‑‑‑
ACCOUNT(L)PROCNAME ‑‑‑‑‑‑ LOGON000
PROCSIZE ‑‑‑‑‑‑PROCNAME ‑‑‑‑‑‑ LOGONFTPPROCSIZE ‑‑‑‑‑‑JDT22120I LIST USERATTRIBUTE PROCESSED>>3000 KB
3000 KB
3000 KB
3000 KB
3000 KB
3000 KB

５．２．６

パスワード変更コマンド

このコマンドは、VOS3 システムのパスワードを変更するコマンドです。また、パスワードは定期的に変更することをおすすめします（詳しい使用方法についてはコマンドマニュアル 第５版を参照して下さい）。
>> TRCH PW
JET12012A ENTER NEW PASSWORD/*NP/* ‑新しいパスワードを入力
JDT20105A ENTER CURRENT PASSWORD ‑現在のパスワードを入力
JDT20120A REENTER NEW PASSWORD TO CONFIRM ‑新しいパスワードを入力
JDT20102I CHANGE USERPASSWORD FOR N30000 PROCESSED
変更したパスワードは、次回の LOGON 時から有効になります。

５．２．７

ＣＯＵＲＳＥＣＫ（ＬＡ）コマンド

このコマンドは、定額基本負担金内で使用可能な CPU 時間等を表示するコマンドです。
>> COURSECK [ または L AA]
USERID ACT FLAGRESULT(YEN)
BUDGET(YEN)
N30000 A
00
86,0601,000,000
COURSE
USED‑CPUBASE‑CPU REMAIN‑CPU2
17108,000
107,983

LD‑USED(KB)
308,212LD‑LIMIT(KB)
512,000

SD‑USED(KB)
58

MAX‑CTIME R‑MAX‑CTIME
144,000
143,983

SD‑LIMIT(KB)
1,000,000>>

定額基本負担金の設定値（1: 月額 1,000 円／ 2: 月額 2,000 円）
現在までに使用した CPU 時間 (秒)無料で使用できる CPU 時間 (秒)※ 詳細は、スーパーコンピューティングニュース (Vol.1 No.1,1999.5)『全国共同利用大型計算機システム利用の手引き（手続き・概要編）』の５．５章を参照して下さい。

５．２．８ＴＳＬＯＧコマンド

TSS 端末操作による画面上の入出力結果をプリンターまたは、データセットに採取します（詳しい使用方法についてはコマンドマニュアル 第５版を参照して下さい）。
TSLOG コマンドを実行し、作成されたデータセット名の拡張子には「〜 .LIST 」が付加されます。以下の例では「 @LOG.LIST 」という名前のデータセットが作成されます。
>> TSLOG PRINT(@LOG)*** TSLOG STARTED TIME=12:39:34 DATE=99‑06‑10 ****************************TSS 操作>> TSLOG END*** TSLOG ENDED
>>

５．２．９

TIME=12:59:58 DATE=99‑06‑10 ****************************ＬＯＧＯＮ

ＲＥＣＯＮＮＥＣＴコマンド

TSS を電話回線・ネットワーク等を経由して実行中に、謝って回線を切断した場合、下記の手順によって以前の TSS ジョブに再接続し、処理を続行することができます。ただし、再接続可能な時間は、回線断から約20 分の間であり、これを超えるとこの TSS ジョブは強制終了（強制 LOGOFF ）されます（詳しい使用方法についてはコマンドマニュアル 第５版を参照して下さい）。
LOGON SCALARF
JET12012A ENTER USERID ‑N30000,R
JET12026A ENTER PASSWORD FOR Z39987 ‑Password>>

５．２．１０ＬＯＧＯＮＣＡＮＣＥＬコマンド

TSS ジョブを実行中に、割り込みがきかず（プログラムの実行を中断する等の場合に割り込みキーを押しても「！」や「！Ｉ」が表示されるだけで）端末からの制御が不能となった場合。下記の手順により TSS ジョ
ブを強制終了する事ができます。
LOGON SCALARF
JET12012A ENTER USERID ‑CANCEL

電話・ネットワーク経由にてシステムに接続し、CANCEL と言う USER-ID で LOGON する

JDT253I CANCEL LAST EXECUTION DATE=1999.06.07 TIME=15.52.27
JET10065I TSS CANCEL STARTED TIME=13:08:19 DATE=99‑06‑10
JET11068I USER COMMAND SYMBOL TABLE CREATEDCANCEL したい USERIDENTER CANCEL USERID? N30000とパスワードを入力
ENTER PASSWORD? Password** USERID N30000 SESSION CANCELED ! *JET10080I CANCEL TSS SESSION ENDED TIME=13:08:32 DATE=99‑06‑10+

５．２．１１

ＣＮＥＷＳコマンド

大型計算機センターで発行していた「センターニュース」の目次を検索して表示するコマンド（詳しい使用方法についてはコマンドマニュアル 第５版を参照して下さい）。
「 CNEWS 」と入力すると、サブコマンドを要求してきますので、実行したい機能のサブコマンドを入力していきます。

>> C N E W S
WELCOME TO CNEWS
ENTER SUBCOMMAND OR ? > ?
Find
Display
Print
DEst
FAXoutSetHelp,?
Quit,Exit

キーワード等により目次を検索する。また、検索結果から絞り込み検索する。
検索結果（目次一覧）を表示する。検索結果を再表示する場合にも指定する。
検索結果をプリントアウトする。
ファクシミリ装置の電話番号を登録する。
検索した題目の内容（本文）をファクシミリ装置へ出力（送信）する。
検索するセンター名及び連続表示行数を変更する。
サブコマンドの使い方を表示する。
ＣＮＥＷＳコマンドを終了する。

ENTER SUBCOMMAND OR ? > F MATRIX
7 件見つかりました。

○

○

○

1. ライブラリＭＡＴＲＩＸの新機能追加とスカイライン法プログラムＭＡＴＲＩＸ／ＳＳＳおよびサンプルプログラムの公開
東大 :Vol.27,No.4(1995),pp:74‑79,Author:プログラムライブラリ研究室，システム管理掛
2. ライブラリプログラムＦ２ＳＭＭＥ／Ｆ２ＨＭＭＥの公開について
東大 :Vol.25,No.6(1993),pp:10‑11,Author:システム管理掛，
プログラムライブラリ研究室

7. プログラムライブラリＭＡＴＲＩＸ／ＨＡＰのバージョンアップのお知らせ
東大 :Vol.19,No.9,10(1987),pp:3‑4,Author:プログラムライブラリ研究室，システム管理掛
ENTER SUBCOMMAND OR ? > E>>

５．２．１２

ＡＮＮＯＵＮＣＥコマンド

本センターの計算機サービス休止・センターからのお知らせ等を表示するコマンドです。
>> ANNOUNCE＊＊＊ センターからのお知らせ ＊＊＊ (99.05.01)
・ダイヤルイン化のお知らせ
東京大学本郷地区の電話が 4 月 30 日にダイヤルイン化されました
新しい電話番号を以下に示します。
総合受付０３−５８４１−２７１６
共同利用掛
０３−５８４１−２７１７
アプリケーション支援掛
０３−５８４１−２７３９システム管理掛
０３−５８４１−２７１３
システム運用掛
０３−５８４１−２７１２
プログラム相談室 ０３−５８４１−２７５２
０３−３８１３−９９７９（省略）>>

５．２．１３

ＢＢＳコマンドBBS （情報交換用の電子掲示板システム）への記事の投稿・購読するコマンド（詳しい使用方法について
はコマンドマニュアル 第５版を参照して下さい）。

>> B B SＢＢＳの使い方は以下のコマンドにより参照できます。
>> BBS HELP [DEST(A4￨B5￨T￨...)]
Welcome to VOS3 BBS# unread news group
1 () SERV
サービス休止等のお知らせ（他大型センター分を含む）
2 (
) SYS
システム変更等のお知らせ
3 () CNEWS
センターニュースの目次（他大型センター分を含む）
4 () NEWS
センターからのお知らせ（募集・案内、他）
5 () CONS
相談室より
6 () USERS
募集・案内、他（自由利用のボード）
7 ( dir) QA
教えて・教えます ( Question & Answer )8 () TOCENT
センターへの質問・要望
9 () TOOL
道具箱 ( Public Domain Software & Free Software )
10 (
) TEA
ティータイム（フリートークの談話室）
11 () TEST
投稿練習（練習用ボード、使い方の質問もどうぞ）Select No.(#)(or subcommand or ?)>５．３

データセット操作

５．３．１

データセットの種類と名前のつけ方

通常ユーザーが使用するデータセットには次のものがあります。
特徴

データセットの種類

名前の付け方Ａ〜Ｚで始まる名前注３）（例）A.FORT

長期データセットユーザーが消去するまで保存される

短期データセット

作成日を含め１５日間（サービス休止日も含めて） ＠で始まる名前
保存され、ユーザーがこの間に消去しないと１５（例）@.FORT
日目に消去される

注３）

注４）

ディスク上に作成される一時データセット

注４）

ＶＩＯデータセット

仮想メモリーに作成される

注４）

拡張記憶装置（ＥＳ）上に作成される

ＥＳファイルSYSOUT データセット（スプール）￥で始まる名前 注１、２）（例）¥A.FORT￥￥で始まる名前 注１）（例）¥￥A.FORT
注１）￥で始まる名前（例）¥ESDATA

プリンター等への出力が一時的に置かれる

注１）「￥」記号は通常の電話端末から入れられる場合には「＄」記号を用います。センター内の直結端末では「￥」記号は「￥」で入力できます。
「￥」と「＄」の両方のキーがある場合は、 LOGON 時に表示されるメッセージの中のものに合わせます。
注２）
一時データセットの場合は、ピリオドを２つ以上含んだ名前や、ピリオドの後がシステムで定められたデーター識別子ではない名前は許されません。
（許されない一時データセット名の例）
ABC.EX.FORT
ABC.XYZ

ピリオドが２つ以上ある
ピリオドの後ろがデーター識別子でない

注３）
保存データセットは、８文字以内の英数字をピリオドで繋ぐことにより、３７文字（ピリオドを含む）
まで指定できます。
以下に各種データセット名の例を示します。
長期データセット
短期データセット
一時データセット
VIO データセット
ES ファイル

ABC.FORT@ABC.DATA¥TEST.FORT¥¥EX1.DATA¥ESDATA

注４）
ジョブ終了時に消去されます。

A 〜 Z で始まる名前@ で始まる名前¥ (電話では $ )で始まる名前¥¥ (電話では $$ )で始まる名前¥ (電話では $ )で始まる名前。ただし、８文字以内

５．３．２

データセットの編成と使用上の注意

通常ユーザーが使用するデータセットの編成には、順編成、区分編成および直接編成ファイルがあります。
以下に、よく使用する順編成ファイルと区分編成ファイルについて説明します。

１．順編成ファイル
記録媒体上にレコードが順番に連続して存在し、この順番に従って入出力されます。
レコード１

レコード２

○

○

○

○

○

○

○

○

○

○

○

○

○

○

○

○

○

○

○

レコード n○２．区分編成順編成と同様な入出力順にレコードが配列されたメンバーと呼ばれるいくつかの部分的なデータセット
からなり、各メンバーはディレクトリレコードにより、メンバー名の上昇順に管理されています。メンバーを必要に応じて追加・削除・変更することが出来、メンバー単位に、入出力処理する事ができます。
ただし、メンバーの内容を修正し、同じメンバーで保存すると元のメンバーはディレクトリから切り離され無効領域になります。

A

Ｂ

C

D

メンバーＡ
メンバーＣ

A

ディレクトリ
領域

C

D

メンバーＡ

メンバーＢ

メンバーＤ

Ｂ

メンバー
領域

メンバーＢ

メンバーＤ

無効領域
メンバーＣ

未使用領域

修正前

無効領域をなくすためには、『 PACK 』コマンドを用います。
>> PACK TEST.FORT
区分データセットの詰め替えを行い無効領域をなくす。

未使用領域
メンバーＣ修正後

５．３．３

データセットの操作コマンド①データセットの内容表示
データセットの内容を出力するには、FLIST コマンドを使用します（詳しい使用方法についてはコマンドマ
ニュアル 第５版を参照して下さい）。
>> FLIST TEST.FORT(EX1)

区分データセットの場合>> FLIST データセット名(メンバー名),DEST(出力先識別名)
で出力される。また、メンバー名を省略すると全メンバーが出力される。DEST ( 出力先識別名 ) を省略すると画面に表示される。
順データセットの場合>> FLIST データセット名 ,DEST(出力先識別名)と指定する。

00000100
00000200

10 WRITE(6,*) 'A='
READ(5,*,END=999) A

00000300
00000400

WRITE(6,*) 'B='
READ(5,*,END=999) B

00000500
00000600

SA = A ‑ B
SEKI = A * B

00000700
00000800

SHOU = A / B
WA = A + B

00000900
00001000

WRITE(6,100) A,B,WA,SA,SEKI,SHOU
100 FORMAT(1H ,'A=',F10.2,' B=',F10.2/00001100
00001200CC

1H ,'A+B',F10.2/
1H ,'A‑B',F10.2/00001300
00001400

CC

1H ,'A*B',F10.2/
1H ,'A/B',F10.2/00001500
00001600

C

1H )00001700
00001800

999 STOP
END(例)

GOTO 10

区分データセット TEST.FORTのメンバー EX1 を画面に表示②データセットの一覧表示
自分が保有しているデータセットの一覧を出力するには、FSHOW コマンドを使用します（詳しい使用方法についてはコマンドマニュアル 第５版を参照して下さい）。
>> FSHOW
ORG‑RFM‑‑BLKS/LRECL‑‑‑SIZE( USED )‑‑‑‑EXT‑‑‑‑DSNAME‑‑
PS
PO

FB
FB

6160/80
6160/80

58(
58(

0)KB
8)KB

1
1

KTEST.DATA
SAMP.DATA

PO
PO

VB
FB

6160/255
6160/80

58(
58(

9)KB
8)KB

1
1

SAMPLE.CLISTSAMPLE.CNTL

PS
PO

FB
FB

6160/80
6160/80

58(
58(

0)KB
37)KB

1
1

SAMPLE.DATASAMPLE.FORT

PO
PO

U
FB

6144
6160/80

58(
58(

9)KB
8)KB

1
1

SAMPLE.LOAD
SAS.DATA

PO
PS

FB
VB

6160/80
512/508

58(
58(

10)KB
12)KB

1
1

SASPROG.DATASYSPROF

PS
PO

FB
FB

6160/80
6160/80

58(
58(

0)KB
31)KB

1
1

TEST.DATATEST.FORT

116(
92)KB
13)‑‑SHORT:1
0KB(

TEST1.DATA
0)‑‑TOTAL:PS FB‑‑LONG:

6160/80
812KB(

データセット名>>

データセットの編成を示す
PS: 順編成データセット
PO: 区分編成データセット

データセットの割当量／使用量を表示

812KB(

13)‑‑

③データセットのメンバー名の一覧表示
区分データセットのメンバーの一覧を表示するには SHOW コマンドを使用します（詳しい使用方法についてはコマンドマニュアル 第５版を参照して下さい）。
>> SHOW TEST.FORT
N30000.TEST.FORT(DSORG) (RECFM) (LRECL) (BLKSIZE) (VOLUME) **SP‑ALOC** **SP‑UNUSE**
PO
FB
80
6160
LD1073
58 KB
26 KB
@
@A
@1
A
AAAA
EX01
EX02
INOUT
INOUT1
MAIN
MAIN1
MAIN2
MEMBER(0012) ALIAS(0000)
DIRECTORY (USE:0003/ALLOC:0005)>>④データセットやメンバーのコピー
データセット全体や区分データセットのメンバーをコピーするには FCOPY コマンドを使用します（詳しい
使用方法についてはコマンドマニュアル 第５版を参照して下さい）。
（例１）データセット全体のコピー>> FCOPY TEST1.FORT,TEST2.FORT（例２）区分データセットのメンバーを別の区分データセットのメンバーにコピー>> FCOPY TEST1.FORT(EX),TEST2.FORT(EX)（例３）同時に複数のメンバーをコピー>> FCOPY TEST1.FORT,TEST2.FORT,I(EX1,EX2,EX3)⑤データセットやメンバーの削除
データセット全体や区分データセットのメンバーを削除するには DELETE コマンドを使用します（詳しい
使用方法についてはコマンドマニュアル 第５版を参照して下さい）。
（例１）データセット全体のコピー>> DELETE TEST1.FORT（例２）区分データセットのメンバー（ EX ）を削除>> DELETE TEST1.FORT(EX)６． バッチジョブ
TSS ジョブは計算機に指令をあたえ、その応答を受けながら会話形式で仕事を進めていきますので、実行時間の長いジョブには向いていません。また、同時に複数のジョブを実行する事もできません。このような場合にはバッチジョブを利用します。バッチジョブは、実行させる命令群とデーターをひとまとまりにして計算機に入力します。入力されたバッチジョブは、入力キュー ( Input Queue ) に登録され実行される順番を待ちます。同じジョブクラスの中では先に入力されたバッチジョブから順番に実行されます。実行の終わったバッチジョブは出力キュー ( Output Queue ) に登録され、トークンカードで取り出すことができます。
TSS ジョブとバッチジョブの概念は下図のようになります。

バッチジョブの投入
TSS ジョブ

利用者端末

JOB C
計算機

JOB B 入力キュー
JOB A

指令
順番に入力・実行開始

出力キュー( SYSOUT )

応答
利用者端末

実行終了。出力キューへ
JOB

TSS ジョブとバッチジョブの概念図

６．１

JOB

JOB

TOKEN 出力

バッチジョブの作成

バッチジョブで実行するには、ジョブ制御言語 (JCL: Job Control Langage) と呼ばれる言語で記述した文、つまり、ジョブ制御文が必要になります。
ここでは、本センター標準のバッチ形式（バッチジョブで TSS コマンドが直接書ける）について説明します。
ジョブ制御言語でよく使われる文は以下の通りです（詳しい使用方法についてはコマンドマニュアル 第５版を参照して下さい）。
・ JOB 文ジョブの属性（ジョブを実行するために必要な情報）や実行する課金番号の指定、および他のジョブと識別するためのジョブ名を指定する文。ジョブ制御文の最初に書く必要があります。
・MAIN 文JOB 文の指定を補う補助制御文で、バッチジョブで使用する資源割り当ての予約等を行います。
・区切り文
データー（ソースプログラムやデーター）をジョブ制御文と一緒に入力するとき、データーの終わりを示す文です。
・空文
ジョブの終わりを示す文です。

バッチジョブの作成例//N30000EX JOB,********,CLASS=A,NOTIFY=N30000//*MAIN DEST=T,PAGES=5000>> USE TEST.FORT>> FILE FT10F001,TEST.DATA,IN,SHR,ABS>> CGO EX1,PARM(SOURCE)
//

JOB 文
MAIN 文

USE コマンドで TEST.FORT を使用することを宣言する
FILE コマンドで装置番号１０番にデータセット TEST.DATA を割り当てる
CGO コマンドでメンバー EX1 をコンパイル＆実行する

６．２

バッチジョブの実行

前節で作成したバッチジョブを実行します（ジョブ制御文を格納したデータセット名は TEST.CNTL メン
バーは EX とします）。
TSS ジョブからバッチジョブを投入するには SUBMIT コマンドを使用します（詳しい使用方法についてはコマンドマニュアル 第５版を参照して下さい）。

>> SUBMIT TEST.CNTL(EX)JET35785I JOB N30000EX(J 123456) SUBMITTED>>となり、SUBMIT します。また、実際に実行されているか確認するコマンドとしては STATUS コマンドがあります（詳しい使用方法についてはコマンドマニュアル 第５版を参照して下さい）。このコマンドは、バッ
チジョブの状態（実行待ち・実行中・出力待ち）を表示できます。
>> STATUSJET35446I JOB N30000EX(J 123456) IN EXECUTION
JET35446I JOB N30000(T 123455) IN EXECUTION>>
実行されていることが確認できます。