RFC390 日本語訳
0390 TSO Scenario. R.T. Braden. September 1972. (Format: TXT=6103 bytes) (Status: UNKNOWN)
プログラムでの自動翻訳です。
英語原文
Network Working Group Robert T. Braden Request for Comments: 390 UCLA/CCM NIC: 11582 September 12, 1972
コメントを求めるワーキンググループロバートT.ブレーデン要求をネットワークでつないでください: 390 UCLA/立方センチメートルNIC: 11582 1972年9月12日
TSO SCENARIO BATCH COMPILATION AND FOREGROUND EXECUTION
TSOシナリオバッチ編集とフォアグランド実行
logon uid (Use your user-id) LOGON UID (TSO repeats line for reasons of its own) ENTER PASSWORD (TSO asks for password) xyz UID LOGON IN PROGRESS AT 09:59:18 ON AUGUST 28, 1972 LOGON PROCEEDING (It may take a minute or longer) WELCOME TO TSO. GOOD LUCK.
ログオンuid(あなたのユーザイドを使用する)LOGON UID(TSO反復は都合により立ち並んでいる)ENTER PASSWORD(TSOはパスワードを求める)xyz UID LOGON IN PROGRESS AT09:59:18ON AUGUST 28, 1972 LOGON PROCEEDING(それは1分かかるかもしれない)WELCOME TO TSO。 幸運。
= CCN NEWS =
= CCNニュース=
THE DEFAULT LOGON PROCEDURE NO LONGER PRE-ALLOCATES FILES - SYSUT1, SYSUT2, AND SYSUT3.
デフォルトログオンプロシジャはもうファイルをあらかじめ割り当てません--SYSUT1、SYSUT2、およびSYSUT3。
READY (call EDIT to create source data set) edit sample new fortg INPUT (for "new" data set, EDIT enters INPUT mode automatically) 00010 // exec fortgcl (in INPUT mode, 00020 c a sample fortran program EDIT types out line numbers, 00030 c user enters lines.) 00040 1 format(' enter a') 00050 2 format(' the square root of',f10.3,' is',f10.3) 00060 3 format(f10.3) 00070 100 write(6,1) (Specifying "fortg" in 00080 read(5,3) a edit command sets logical tabs 00090 b=sqrt(a) correctly for Fortran) 00100 write(6,2) a, b 00110 go to 100 00120 end 00130 /* 00140 //lked.syslmod dd disp=new,dsn=abc132.uid.load(root) 00150 (Null line leaves INPUT mode) verify ("verify" causes changed line to be displayed) change 140 /new/old/ 00140 //LKED.SYSLMOD DD DISP=OLD,DSN=ABC123.UID.LOAD(ROOT) list 00010 // EXEC FORTGCL 00020 C A SAMPLE FORTRAN PROGRAM 00030 C
READY(ソースデータセットを作成するためにEDITと呼ぶ)はサンプル新しいfortg INPUT(「新しい」データセットに関して、EDITは自動的にINPUTモードを入れる)00010//幹部fortgclを編集します(00020c aサンプルfortranプログラムEDITは、行番号から00030cユーザがINPUTモードで線に入るのをタイプします。)。 ('aに入る')00050 2がフォーマットする'00040 1形式、('平方根、'f10.3'、'f10.3) 100が00100を書く(6、1)(「fortgに、」00080読書(5、3)a編集コマンドセット論理タブでは、正しく00090b=sqrt(a)をFortranに指定します)00060 3形式(f10.3)00070がa(100 00120終わり00130/*の00140 //lkedへのb00110碁)を書くという(6、2)ことです; 新しいdsn=abc132.uid.load(根づく)syslmod dd disp=00150(空行はINPUTをモードに残す)は新しいか変化140/古い/00140//LKED.SYSLMOD DD DISP=OLD、DSN=ABC123.UID.LOAD(ROOT)リスト00010 // EXEC FORTGCL00020C A SAMPLE FORTRAN PROGRAMについて00030C確かめます(「検証」原因は表示するために線を変えました)。
[Page 1] 00040 1 FORMAT(' ENTER A') 00050 2 FORMAT(' THE SQUARE ROOT OF',F10.3,' IS',F10.3) 00060 3 FORMAT(F10.3) 00070 100 WRITE(6,1) 00080 READ(5,3) A 00090 B=SQRT(A) 00100 WRITE(6,2) A, B 00110 GO TO 100 00120 END 00130 /* 00140 //LKED.SYSLMOD DD DISP=OLD,DSN=ABC132.UID.LOAD(ROOT) END OF DATA save (Make permanent copy of source file) SAVED end (Leave EDIT) READY (Create new load module library data set) allocate da(load) new space(5,5) block(7294) dir(1) READY free da(load) (Free library data set from TSO so batch READY job can linkedit into it) submit sample (Submit source file to batch) ENTER JOBNAME CHARACTER- p JOB ABC123P SUBMITTED (User "UID" has charge number "ABC123") READY status ABC123P WAITING FOR READER IEF404I ABC123P ENDED (Spontaneous message when job finishes) READY status ABC123P FINISHED WAITING FOR WRITER READY keepout abc123p (Save output in permanent data set) SYSOUT DATA SET FOR JOB ABC123P ADDED TO PRINT DATA SET WITH UNLIKE ATTRIBUTES+ SYSOUT DATA SET FOR JOB ABC123P ADDED TO PRINT DATA SET WITH UNLIKE ATTRIBUTES+ NO CLASS OUTPUT FOR JOB ABC123P EDIT OUTPUT.LIST ("Keepout" leaves you in EDIT to examine output list) find /return code/ CCN011I STEP RETURN CODE = 0 list //ABC123P JOB 'ABC123.UID,B=0672', // UID, // NOTIFY=UID, // MSGLEVEL=(1,1) // EXEC FORTGCL 0000001
2がフォーマットする'1ページ00040 1つの形式('Aに入る')00050、('平方根、'F10.3'、'F10.3) 100がAを書く(6、2)と00080読書(5、3)A00090B=SQRT(A)00100に書く(6、1)00060 3形式(F10.3)00070、B00110が100 00120終わり00130/*の00140 //LKED.SYSLMOD DD DISP=老人(DSN=ABC132.UID)のものになるということです; END OF DATAがREADY(新しいロードモジュールライブラリデータセットを作成する)がda(ロードする)の新しいスペース(5、5)のブロック(7294)のdir(1) READYの自由なda(負荷)を割り当てるSAVED端(EDITを残す)を節約する(永久的なコピーに関するソースファイルを作ります)LOAD(ROOT)はサンプル(バッチにソースファイルを提出する)ENTER JOBNAME CHARACTER p JOB ABC123P SUBMITTEDを提出します(バッチREADY仕事がそれにlinkeditされることができるようにライブラリデータセットをTSOから解放します); (ユーザ"UID"には、電荷数"ABC123"があります) 読者IEF404I ABC123Pを待つ戦闘準備態勢ABC123PがABC123Pが加える仕事のための属性+SYSOUTデータセットと異なってデータセットを印刷するABC123Pが加えた仕事のために作家の持ち合わせのkeepout abc123p(永久的なデータセットにおける出力を取っておく)SYSOUTデータセットを待ち終わっている戦闘準備態勢ABC123Pを終わらせました(仕事であるときに、自然発生的なメッセージは終わります)。ED TO PRINT DATA SET WITH UNLIKE ATTRIBUTES+NO CLASS OUTPUT FOR JOB ABC123P EDIT OUTPUT.LIST("Keepout"は出力並びを調べるためにEDITにあなたを置き去りにする)は'ABC123.UID、B=0672'という0/return code/ CCN011I STEP RETURN CODE=リスト//ABC123P JOBを見つけます、//UID、//NOTIFY=UID、//MSGLEVEL=(1、1)//EXEC FORTGCL0000001
[Page 2] XXFORTGCL PROC TC=1439,TL=1439,PC=150,PL=10,RL=154K,RC=100K,LEVEL=1 XXFORT EXEC PGM=IEYFORT,REGION=&RC,TIME=&TC 0000002 IEF653I SUBSTITUTION JCL - PGM=IEYFORT,REGION=100K,TIME=1439 XXSTEPLIB DD DISP=(SHR,PASS),DSN=&&FORTRAN&LEVEL 0000003 IEF653I SUBSTITUTION JCL - DISP=(SHR,PASS),DSN=&&FORTRAN1 XXSYSLIN DD DSN=&&LOADSET,DISP=(MOD,PASS),UNIT=SYSDA, 0000004 XX SPACE=(3200,(8,4),RLSE),DCB=BLKSIZE=3200 0000005 XXSYSPRINT DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=120,BLKSIZE=3480), 0000006 XX SPACE=(TRK,&PC,RLSE) 0000007 IEF653I SUBSTITUTION JCL - SPACE=(TRK,150,RLSE) //SYSIN DD * GENERATED STATEMENT IEF236I ALLOC. FOR ABC123P FORT IEF237I 342 ALLOCATED TO STEPLIB IEF237I 450 ALLOCATED TO SYSLIN IEF237I 630 ALLOCATED TO SYSPRINT IEF237I 230 ALLOCATED TO SYSIN 1 FORTRAN IV G LEVEL 20 MAIN DATE=72241
2ページ XXFORTGCL PROC Tc=1439、Tl=1439、PC=150、PL=10、レベルは1XXFORT幹部PGM=IEYFORT、領域=、およびRCと154RL=Kと、100RC=K、等しいです、時間=とTc0000002IEF653I代替JCL--PGM=IEYFORT、100Kの領域=、時間は1439XXSTEPLIB DD DISP=と等しいです(SHR、通ってください)、DSN=、FORTRANとレベル0000003 IEF653I代替JCL--DISPは(SHR、パス)と等しいです; LOADSET、DISP=(モッズは通ってください)、ユニットはSYSDAと等しく、0000004XXスペースは=です。DSNが等しい、FORTRAN1 XXSYSLIN DD DSN=、(3200、(8、4、)RLSE)、DCB=BLKSIZE=3200 0000005 XXSYSPRINT DD SYSOUT=A、DCB=(RECFM=FBA、LRECL=120、BLKSIZE=3480)、0000006XXスペースは0000007IEF653I代替JCLと等しいです(TRK、およびPC、RLSE)--、スペース=(TRK、150、RLSE)//SYSIN DD*は声明IEF236I ALLOCを発生させました。 SYSIN1FORTRAN IV Gレベル20 主な日付の=72241に割り当てられたSYSPRINT IEF237I230に割り当てられたSYSLIN IEF237I630に割り当てられたSTEPLIB IEF237I450に割り当てられたABC123PとりでIEF237I342のために
0 C A SAMPLE FORTRAN PROGRAM C 0001 1 FORMAT(' ENTER A') 0002 2 FORMAT(' THE SQUARE ROOT OF',F10.3,' IS',F10.3) 0003 3 FORMAT(F10.3) 0004 100 WRITE(6,1) 0005 READ(5,3) A 0006 B=SQRT(A) 0007 WRITE(6,2) A, B 0008 GO TO 100 0009 END 1 FORTRAN IV G LEVEL 20 MAIN DATE=72241 0
'0C Aが2がフォーマットするFORTRANプログラムC0001 1形式('Aに入る')0002を抽出する、('平方根、'F10.3'、'100がAを書く(6、2)と0005年の読書(5、3)A0006B=SQRT(A)0007に書く(6、1)0003年の3形式(F10.3)F10.3)0004、B0008が0009年の100終わり1のFORTRAN IV Gレベル20 主な日付の=72241 0まで行くということです。
[Page 3] SUBPROGRAMS CALLED EDIT end (Leave EDIT) READY print output.list (Ask to have output printed at CCN) DATASET OUTPUT.LIST HAS BEEN ENQUEUED FOR PRINTING IN CLASS C READY (Now execute load module in foreground) allocate file(ft05f001) da(*) READY (Allocate Fortran input and output files to terminal) allocate file(ft06f001) da(*) READY call load(root) (Call load module) ENTER A 3.141 THE SQUARE ROOT OF 3.141 IS 1.772 ENTER A 4096. THE SQUARE ROOT OF 4096.000 IS 64.000 ENTER A READY logoff UID LOGGED OFF TSO AT 10:40:18 ON AUGUST 28, 1972+
SUBPROGRAMS CALLED EDITエンド(EDITを残す)READY print output.list(CCNで出力を印刷させるように頼む)DATASET OUTPUT.LIST HAS BEEN ENQUEUED FOR PRINTING IN CLASS C READY(現在、フォアグランドにおけるロードモジュールを作成する)がREADY(端末へのファイルをFortran入出力に割り当てる)がファイル(ft06f001)da(*)READY呼び出し荷重(根)(ロードモジュールと呼びます)ENTER A3.141THE SQUARE ROOT OF3.141を割り当てるファイル(ft05f001)da(*)を割り当てる[3ページ]は1.772ENTER A4096です。 THE SQUARE ROOT OF4096.000は64.000ENTER A READYログオフUID LOGGED OFF TSO AT10:40:18ON AUGUST 28, 1972+です。
[ This RFC was put into machine readable form for entry ] [ into the online RFC archives by Marcus Meissner 1/98 ]
[このRFCはエントリーのためのマシンに入れられた読み込み可能なフォームでした][マーカスマイスナー1/98によるオンラインRFCアーカイブへの]
[Page 4]
[4ページ]
一覧
スポンサーリンク