Browse Prior Art Database

TSO Scenario (RFC0390)

IP.com Disclosure Number: IPCOM000003568D
Original Publication Date: 1972-Sep-12
Included in the Prior Art Database: 2000-Sep-13
Document File: 3 page(s) / 6K

Publishing Venue

Internet Society Requests For Comment (RFCs)

Related People

R.T. Braden: AUTHOR

Abstract

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.

This text was extracted from a ASCII Text document.
This is the abbreviated version, containing approximately 51% of the total text.

Network Working Group Robert T. Braden

Request for Comments: 390 UCLA/CCM

NIC: 11582 September 12, 1972

TSO SCENARIO

BATCH COMPILATION AND FOREGROUND EXECUTION

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.

= CCN NEWS =

THE DEFAULT LOGON PROCEDURE NO LONGER PRE-ALLOCATES FILES -

SYSUT1, SYSUT2, AND 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

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 A...