← rfc/
╔══════════════════════════════════════════════════════════════════════════╗
RFC 390 · telnet

TSO Senaryosu

Yazar
Robert T. Braden, UCLA/CCM
Kurum
Tarih
12 Eylül 1972
Durum
Network Working Group Yorum Talebi
Kanal
telnet/

Ağ Çalışma Grubu

Yorum İsteği: 390
NIC: 11582
Yazar: Robert T. Braden, UCLA/CCM
Tarih: 12 Eylül 1972

TSO Senaryosu

Toplu Derleme ve Ön Plan Yürütme

Oturum Açma Sırası

logon uid                       (Kullanıcı kimliğinizi kullanın)
LOGON UID                       (TSO, kendine özgü nedenlerle satırı tekrarlar)
ENTER PASSWORD                  (TSO parola ister)
xyz
UID LOGON IN PROGRESS AT 09:59:18 ON AUGUST 28, 1972
LOGON PROCEEDING                (Bir dakika veya daha uzun sürebilir)
WELCOME TO TSO.  GOOD LUCK.

CCN Haberleri

Varsayılan oturum açma yordamı artık dosyaları önceden ayırmıyor:

Kaynak Veri Kümesi Oluşturma ve Düzenleme

READY                           (Kaynak veri kümesini oluşturmak için EDIT çağrılır)
edit sample new fortg
INPUT                           ("new" veri kümesi için EDIT otomatik olarak INPUT kipine girer)
00010 // exec fortgcl            (INPUT kipinde, EDIT satır numaralarını yazar,
00020 c  a sample fortran program kullanıcı satırları girer.)
00030 c
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)           (Edit komutunda "fortg" belirtilmesi, mantıksal sekmelerin
00080       read(5,3) a           Fortran için doğru ayarlanmasını sağlar)
00090       b=sqrt(a)
00100       write(6,2) a, b
00110       go to 100
00120       end
00130 /*
00140 //lked.syslmod dd disp=new,dsn=abc132.uid.load(root)

                                   (Boş satır INPUT kipinden çıkar)
verify                    ("verify", değiştirilen satırın görüntülenmesini sağlar)
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
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                          (Kaynak dosyanın kalıcı kopyasını yapar)
SAVED
end                           (EDIT'ten çık)

Yük Modülü Kitaplığı Oluşturma ve İş Gönderme

READY                          (Yeni yük modülü kitaplığı veri kümesi oluştur)
allocate da(load) new space(5,5) block(7294) dir(1)
READY
free da(load)                  (Toplu işin link-edit yapabilmesi için kitaplık veri kümesini TSO'dan serbest bırak)
READY
submit sample                  (Kaynak dosyayı toplu iş olarak gönder)
ENTER JOBNAME CHARACTER-
p
JOB ABC123P SUBMITTED          ("UID" kullanıcısının ücret numarası "ABC123"tür)

READY
status
 ABC123P  WAITING FOR READER
IEF404I ABC123P  ENDED         (İş bittiğinde kendiliğinden gelen ileti)
READY
status
 ABC123P  FINISHED WAITING FOR WRITER

Çıktıyı Kaydetme ve İnceleme

READY
keepout abc123p                (Çıktıyı kalıcı veri kümesinde sakla)
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", çıktı listesini incelemek için sizi EDIT içinde bırakır)
find /return code/
CCN011I STEP RETURN CODE =     0
list

//ABC123P   JOB  'ABC123.UID,B=0672',
//             UID,
//             NOTIFY=UID,
//             MSGLEVEL=(1,1)
// EXEC FORTGCL

XXFORTGCL PROC TC=1439,TL=1439,PC=150,PL=10,RL=154K,RC=100K,LEVEL=1
XXFORT   EXEC  PGM=IEYFORT,REGION=&RC,TIME=&TC
IEF653I SUBSTITUTION JCL - PGM=IEYFORT,REGION=100K,TIME=1439
XXSTEPLIB DD DISP=(SHR,PASS),DSN=&&FORTRAN&LEVEL
IEF653I SUBSTITUTION JCL - DISP=(SHR,PASS),DSN=&&FORTRAN1
XXSYSLIN DD DSN=&&LOADSET,DISP=(MOD,PASS),UNIT=SYSDA,
XX SPACE=(3200,(8,4),RLSE),DCB=BLKSIZE=3200
XXSYSPRINT DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=120,BLKSIZE=3480),
XX SPACE=(TRK,&PC,RLSE)
IEF653I SUBSTITUTION JCL - SPACE=(TRK,150,RLSE)
//SYSIN DD * GENERATED STATEMENT

IEF236I ALLOC. FOR ABC123P  FORT
IEF237I 342   STEPLIB'E AYRILDI
IEF237I 450   SYSLIN'E AYRILDI
IEF237I 630   SYSPRINT'E AYRILDI
IEF237I 230   SYSIN'E AYRILDI

1  FORTRAN IV G LEVEL  20                MAIN          DATE=72241

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

ÇAĞRILAN ALT PROGRAMLAR

EDIT
end                           (EDIT'ten çık)
READY
print output.list             (Çıktının CCN'de yazdırılmasını iste)
DATASET OUTPUT.LIST HAS BEEN ENQUEUED FOR PRINTING IN CLASS C

Yük Modülünün Ön Planda Yürütülmesi

READY                          (Şimdi yük modülünü ön planda çalıştır)
allocate file(ft05f001) da(*)
READY                          (Fortran giriş ve çıkış dosyalarını terminale ayır)
allocate file(ft06f001) da(*)
READY
call load(root)                (Yük modülünü çağır)

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

Bu RFC, çevrimiçi RFC arşivlerine girmek üzere Marcus Meissner tarafından 1/98 tarihinde makine tarafından okunabilir biçime dönüştürüldü.