Friday, February 1, 2008

Popular Questions

How to determine the MVS version?

Apart from the natural curiosity, the knowledge of the MVS version that

one is using might be required in order to to look for system messages

either in IBM Book Manager or QuickRef.

Open SDSF session and enter primary command WHO. In reply to this

command SDSF will display several lines of information describing

session environment and containing among other useful things versions of

MVS, JES, ISPF and SDSF.

How to determine program compile date?

Compile date might be needed for various reason, the most typical of them

is the necessity to compare load modules of the same program in different

libraries.

Open program partition for browse in the load module library. Scroll one

screen right ([F11]) and you'll see the program name immediately

followed by the date in the format of YYYYMMDD. This is the program

compile date.

How to determine the ChangeMan package, in which program was compiled?

The ChangeMan package, in which program was compiled, might be

needed in order to get a list of associated objects, as well as program

compilation printout saved in the ChangeMan archive. The latter is useful

for program code analysis and is indispensable for troubleshooting.

Open program partition for browse in the load module library. Right on

the first screen you'll see program name followed by a "/", hex number

(ChangeMan ID code of load module), and another "/", which is

immediately followed by ChangeMan package number.

How to handle variable length records?

Define file as having variable length records in a way similar to the

following (MODE and BLOCK lines are useful for output files only — to

avoid specifying RECFM and BLKSIZE in JCL):

FD Var-Length-Rec-File

RECORDING MODE IS V

BLOCK CONTAINS 0 RECORDS

RECORD IS VARYING FROM 1 TO 1000

DEPENDING ON Record-Length.

01 Var-Length-Record PIC X(1000).

Maximum record length is assumed here to be 1000 bytes (minimum is

always 1). Record-Length variable should be defined as an elementary

unsigned integer capable of holding the maximum length value —

PIC 9(5) BINARY for the above example. Record-Length treatment

depends on the I/O operation:

_ The actual length of the record prepared for the output must be

placed by the program into Record-Length variable before any

output operation (WRITE, REWRITE or RELEASE).

_ The actual length of the record just read gets placed by the

operating system into Record-Length variable after the successful

input operation (READ or RETURN).

_ Execution of an output operation as well as execution of an

unsuccessful input operation doesn't change the value of the

Record-Length variable.

Omission of FROM ... TO ... range specification is tolerated by the

COBOL compiler, but output operation causes S0C4 AbEnd (protection

exception) in this case.

How to fix B37 AbEnd?

The most common reason of a B37 AbEnd is a situation when operating

system can't allocate secondary extent for DASD output data set because

there is not enough space on the DASD unit[s], defined for the data set

allocation.

Sequential data set can be allocated in up to 16 extents (normally one

primary and up to 15 secondary). When Operating System can't find

space for primary allocation, job gets cancelled with JCL error before

attempting to execute it. If primary allocation request is satisfied, job

starts running, allocating secondary extents when (and if) necessary. If an

attempt to allocate secondary extent fails, job AbEnds with B37.

There is a popular belief that increasing primary space solves B37 AbEnd

problem. Indeed, it might work for some situations, but it might fail to

work for other (those with significant deviations in the size of the data

set). B37 AbEnd is caused by the failure of secondary space allocation

and this is what should be addressed when fixing a B37 problem.

The right solution is to specify more than one (default) UNIT for the

output data set, E.g.: UNIT=(SYSALLDA,3). Thus, when system can't

find secondary extent on the first volume (i.e. volume where primary

extent is allocated), it switches to the second volume, etc. Normally

specifying 2 or 3 UNITs will work, but it might make sense to specify

more, depending on the number of generally available DASD units and

predicted deviations in the data set size.

Provided that there are enough DASD units for secondary space

allocation, it is important also to maintain some sort of a reasonable

balance between primary and secondary space requests. While there are

no universal rules for determining what balance is "right", there is "rule of

a thumb" that works reasonably well in most cases.

_ Evaluate the "peak" volume of the output data set (CYLs or

TRKs). One good way is to look at input file processing of which

caused B37 AbEnd and make approximate adjustments based on

the ratio of output/input record lengths. Let it be 100 CYLs, for

example.

_ Use 50% of the "peak" volume as primary space and 10% of the

peak volume as secondary space. This will give the following

space allocation for 100 CYL "peak" volume example:

SPACE=(CYL,(50,10),RLSE). Request to ReLeaSE unused space

when the output data set gets closed is a good practice improving

the overall system performance.

_ As can be easily seen, this allocation balance, while requesting

only 50% of "peak" volume upfront in primary space request,

permits to increase data set size up to 200% of the "peak" volume

(50%+15*10%=50%+150%=200%). Provided, of course, that the

sufficient number of DASD units was defined. For most practical

situations (a typical one is space request for sort work files) this

will be a reasonable balance between primary and secondary space.

How to position screen at the specified text line in the Edit/View/Browse session?

Screen positioning is the most basic and obvious operation in dealing with

texts and lists of data sets or library members. It is repeated dozens of

times every day and even minimal shortcuts can save hundreds of

keystrokes. Some of the descriptions below are based on the presumption

of the standard functional key assignment of UP/DOWN primary

COMMANDs to [F7]/[F8] keys.

_ In order to make current cursor string first/last on the screen

make sure that you have Scroll ===> CSR and simply hit

[F8]/[F7] key. If you have Scroll ===> PAGE (this is a default

in most applications), overtype PAGE by CSR (CurSoR) and exit

and re-enter the application so that scroll amount setting will be

saved in the profile.

_ If you want to position screen to text top, use 3 successive

keystrokes [Home]–[M]–[F7]; use [F8] as a last keystroke to

position screen to text bottom. TOP/BOTTOM commands (or

equivalent UP MAX / DOWN MAX) can be used also, but this is a

longer way (unless you'll assign those commands to functional

keys — however, this might not always work with the applications

which would redefine functional keys their own way).

_ In order to move screen for a certain amount of lines up/down type

this amount in the primary COMMAND field and hit [F7]/[F8]

key.

_ If you know the relative line number (left column in the

Edit/View session), use Locate primary COMMAND (can be

abbreviated to L) to make desired line first in the text area of the

screen. E.g.: primary COMMAND L 123 will position screen to

the line number 123 (from the beginning of the text). It is possible

to use the same method in the Browse session, but it's less obvious

where you are, since there are no displayable relative line numbers

in Browse (relative number of the first line in the text area of the

screen is displayed in the top-right corner, E.g.: Line 00000123).

_ If you have to skip many times to the same line of the text, you can

label this line by overtyping line number field with a line label,

e.g.: .A or .XYZ (should start with "."). To make labelled line first

in the text area of the screen enter L .label primary

COMMAND. E.g.: L .A will position screen to the line labelled

.A. Line labels are applicable to Edit and View sessions only.

You can have as many labelled line as you wish, but it's hardly

practical to use more than just several of them. Line labels are lost

once you leave Edit/View session. Use RESet LAB primary

COMMAND to delete all line labels.

How to remove Find limit for the Log and Output Data Set displays?

Find command in the SDSF has a default limit of 25,000 lines. This

makes the data search in the long output a rather annoying procedure,

especially considering the fact that SDSF limits DOWN to 9,999 lines

only. "RFIND is not active" in the SDSF, and the ability of SDSF Find

command to "remember" the parameters of it's previous entry is a poor

substitute for the actual RFIND (you have to enter Find without

parameters in the Command field landing each time on already found

entry unless you'll hit [F8] in between).

A simple way to overcome this limitation is to enter a

FINDLIM 9999999 command that will reset the default limit of 25,000

to a more reasonable limit of 9,999,999 making a search limited

practically only by the end of the file (which definitely should be a default

as it is in the ISPF/PDF).

Alternatively it is possible to enter a FINDLIM ? command to display

the current search limit and to overtype it by 9999999. In any case it is

necessary to exit and re-enter the SDSF so that search limit setting will be

saved in the profile.

What is MITVMC?

· A secure machine with very strict access controls, for those who need access to its

databases..

· Contains databases for alumni, resource development, payroll, and pension.

· Telnet into this machine is allowed only via Kerberized telnet clients, such as

Hostexplorer on PCs or ktn3270 on Macintosh.

What is MITVMA?

· Administrative IBM mainframe housed in W91 running CMS under VM/ESA.

· Web page: http://mitvma.mit.edu/system/htbin/system

· Contains the CAO accounting databases.

· Access to this machine is by password for registered users on departmental or

personal billing.

What networks is the mainframe connected to?

· MITVMA and MITVMC are connected to the Internet; MITVMC requires

Kerberos authentication for incoming Telnet and Ftp connections.

Can you please force me off the system ("off the C-machine", "off of

A")?

· A service we provide when:

o a userid is hung

o a terminal is hung

o a userid is in disconnected mode and the person is trying to use $SumMIT

· Forcing someone off is done by a command entered from a privileged userid.

· If the Mainframe contact people are not available and the client can't wait, you

can transfer the call to Mainframe Operations at x3-7049.

· If the client can wait, log the call, mark it Urgent/Mainframe. Tell them it should

be done within an hour.

· The client can also log onto the system (from another terminal, if necessary).

After pressing Enter at the dome screen, type "LOGON userid HERE" and answer

the password prompt. The client may then enter Begin, to use the terminal

session, or Logon, to revert to SumMIT or, or quit altogether.go to another

terminal and log into the system.

I have forgotten my password ...May I please have a new password?

· A person has forgotten their password, or the password has expired. (Passwords

are good for 90 days on the mainframes, at which time the system forces the user

to change the password.) For 99% of these requests, the person making the

request must own the account.

· From a privileged userid, we can provide a temporary password.

· Make as complete a case entry as you can, including the mainframe and userid.

Mark the case New/Mainframe.

· While on the phone with the client, try to find one of the contact people. If you

can't, tell the client we will call back when we reset the password.

The Menu won't come up, or, What do I do about CP Read status?

· CP Read is a state that a userid can be in when reconnected from being

disconnected.

· Users will usually call and say "the menu won't come up".

· When this occurs we ask what it says in the lower right hand corner of the screen.

· If it says CP Read, then we tell them to type the word begin and hit enter.

· If this does not work, then take the client's information, and treat the entry as a

Force-Off request. Make a case entry, mark it New/Mainframe.

· Find a Mainframe contact person.

Help! My disk is full!

· The mainframe uses what are called Minidisks for data storage for userids. The

primary storage area for a userid is called the A or 191 disk.

· When this disk space becomes 99% full, nothing more can be written to it and

files need to be cleared off before proceeding, much like a locker in Athena.

· The most common cause of the disk being full is that people do not discard any

mail and either the All Notebook or the Unread Notebook is too large to be

written back to the disk.

· If the client is using Mail or XEdit, he/she may enter a Filelist command, look for

old unneeded files, type Erase in front of each, and press Enter. After Quitting

from that, there may be enough space to complete the operation.

· Make as complete a log entry as possible, then try to find one of the Mainframe

contacts. If you can't, mark the case New/Mainframe and tell the client we will

get back to them shortly.

What is HDMS?

· Secure Analog access to MITVMC and some VAXs.

· This is a pool of call-back modems controlled by an authorization table.

· Requests for this access must come from authorized management (and require

account numbers for long-distance call back).

· Requests for this service must be made from management in email to

mithelp@mit.edu.

· Log the call, mark it New/Mainframe.

How do I get an HDMS account?

· Department management must send email to mithelp@mit.edu to request a new

HDMS account.

What is CUG (Closed Users Group)?

· Access through a specific digital phone to MITVMC and some of the VAX's.

· A request for CUG access has to come from a manager who is authorized to make

such requests. We then send mail to Telecomm and record the access in a

database.

· Requests for this service must be made from management in email to

mithelp@mit.edu.

· Log the call, mark it New/Mainframe.

How do I get added to the CUG?

· All requests for CUG access must be made via email to mithelp@mit.edu from

management.

What is the VM dialup number?

· The numbers for dialup access to MITVMA and MITVMC:

o Digital to MITVMA: 258-8311

o Digital to MITVMC: 258-8351 (restricted access)

o Analog to MITVMA: 258-9600 (4800 baud and above)

o Analog to MITVMC: 258-6311 (restricted access)

· The settings in the software for all the dialups should be:

o parity: even

o data bits: 7

o stop bits: 1

If someone is having trouble transferring files with Kermit they can try none,8,1

(except through HDMS).

What is ADSM?

· ADSM is a utility that allows microcomputers and workstations to back up files to

MIT's mainframe. ADSM is the Adstar Data Storage Manager backup service for

Mac, PC, and workstations; the server resides on MITVMA.

· The help desk administers the requests for access to this service, including:

o setting up node names

o maintaining a database of accounting information

o changing passwords

o adding clients to schedules

o changing passwords

· Take the client's information. Make a log entry and mark it New/Mainframe. Tell

the client the service should be available within four hours. If a Mainframe

contact is available, give him/her the case number.

Where can I get more information about ADSM?

More information about the program and the platforms it supports can be found on the

Web at: http://web.mit.edu/is/help/adsm/

How do I get the service?

· Call the help desk.

· We take the client's:

o name

o department

o building and room number

o E-mail address

o extension

o account number (or student billing ID)

· We ask the client, or someone with signature authority on the account number, to

send email to mithelp@mit.edu authorizing us to charge the account number for

the backup service.

· Make a log entry mark it New/Mainframe. Tell the client the service should be

available by the end of the day. Point them to net-dist to download (via FTP) the

software. If a Mainframe contact is available, give him/her the case number.

I have forgotten my ADSM password, what should I do?

· Call the help desk and request a new password.

· Take the client's name and node name, if known. Tell the client that the password

should be changed within one hour.

· Log the call. Mark it New/Mainframe.

How do I get backups to occur automatically on a schedule?

· Call the help desk to have your node added to "a schedule". Scheduled backups

are run on weekdays, in the evening or after midnight.

· Find out when the client would like to be backed up. Take the client's name and

node name.

· Log the call, mark it Pending/Mainframe. If the client knows their node name,

put that in the case as well. Ask the client which weekday evening they would

prefer, put this in the log.

· Tell the client the node should be added to the schedule by the end of the day.

· If a Mainframe contact is available, give him/her the case number.

Is ADSM service free?

· There is currently a charge of $5.00 per month for new clients.

What is a Midas Account?

· An account on MITVMA whose cost is underwritten by CAO for use by

administrators for accounting and payroll access. These accounts will go away

with the complete and successful rollout of SAP.

· A request for a Midas account can come from anyone. We record the information

in a database, set up the account and inform Kip Warren's group of the new

userid. Kip then grants access to the appropriate account numbers for the person.

How do I get a Midas Account?

· Call the help desk.

· We take the client's:

o name

o department

o building and room

o extension

o email address

o platform information

· The client will also need connectivity software:

o For the PC: HostExplorer or Procomm

o For the Mac: KTN3270, WhiteKnight, term, or Zterm

· Make as complete a log entry as you can. Mark the log New/Mainframe.

· Tell the client the userid should be set up by the end of the day and the account

access available the next working day. If a Mainframe contact is available, give

him/her the case number.

What is $SumMIT?

· An Account on MITVMA used for accounting and payroll. These accounts will

go away with the complete and successful rollout of SAP.

· $SumMIT is a direct interface to the information on the mainframe.

· A $SumMIT Account requires an MITNET connection.

· A $SumMIT account cannot exist without a Midas account.

How do I get a $SumMIT Account?

· The procedure for setting up a $SumMIT account is the same as for a Midas

account.

· Call the Help Desk.

· Someone from CAO will contact the client about installing $SumMIT on their

machine.

· Make as complete a case entry as you can. Mark the log New/Mainframe.

· Tell the client the userid should be set up by the end of the day and the account

access available the next working day.

· If a Mainframe contact is available, give him/her the case number.

Is there electronic mail on the mainframe?

· The email system on the mainframes is called Rice Mail, after the university

where it was developed.

· This mail system offers the PFkey-equivalents for the commands to read, send,

forward, and delete mail.

· When a client asks if there is email on the mainframe, say "Yes" then ask: "Do

you currently have account on the mainframe?" If they answer "Yes", tell them

that they currently have email and can type HELP MAIL from ready prompt. If

they answer "No", ask if there is a particular reason they are asking about E-mail

on the mainframe (email isn't typically enough of a reason alone to give out a

mainframe account):

o For general E-mail, use we should point them to Eudora.

o If they want to set up a ListServ list, log the information and mark the case

New/Mainframe/Listserv and give Art the case number.

· Art is the Rice-Mail and ListServ administrator.

How do I forward my email on the mainframe?

Mail can be forwarded from the mainframe to Athena or TechMail/Eudora.

· The command to forward mail on the mainframe is:

TELL MAILER SET FORWARD

· To unforward mail:

TELL MAILER SET FORWARD OFF

· Tell client to enter the following command at the ready prompt:

TELL MAILER SET FORWARD

· If that works, enter and close a case.

· If that does not work, enter a case, mark it Urgent/Mainframe. If Art, Carol

Wood, or Lynne is in 11-226, tell one of them the log number.

What is LISTSERV?

· ListServ is a service on MITVMA which maintains electronic mailing lists.

· ListServ is part of a worldwide system for managing mailing lists. When you

subscribe to Something-L by sending mail to listserv@someplace.edu, you're

using a ListServ server.

· LISTSERV is managed by the VM postmasters: Art Anger, Noel Hart, and Jeff

Harrington.

What is XEDIT?

· A facility on the mainframe for creating and editing text files.

· The data are displayed, treated, and stored in lines (records), which may be

specified by number, position, name or content .

What is FILELIST?

· A menu-driven program for displaying a list of the contents of any linked

minidisk, usually A(191).

Use a PPP dial-in internet account, is there any way I can get to PantherNet using it?

Yes you can. You need a specialized Telnet program that does 3270 full screen

access called TN3270. These programs are available in the public domain for

most platforms. Search for "tn3270" to find a number of them. Or you can get

information about downloading it and setting it up. The PantherNet.pbcc.cc.fl.us

host is only available if you are dialed into PBCC's PPP systems, not your

personal ISP account.

Is it possible to send a PantherNet report to a user that they can create a spreadsheet

from it?

Yes. The report will be email as an attachment to the user. First you will have to

save the report as a file. You have 2 options then to send the file, from interactive

TSO or from Batch. There is more information in the XMITIP Help file. Below is

sample JCL that will send a file but no other email message.

//XMITIP JOB SYS,DEV,MSGCLASS=Q,MSGLEVEL=(0,0),TIME=(2,00)

//STEP01 EXEC PGM=IKJEFT1B

//STEPLIB DD DSN=SYSTEMS.LOAD,DISP=SHR

//SYSTCPD DD DSN=SYS3.TCPIP.SEZAINST(TCPDATA),DISP=SHR

//SYSEXEC DD DSN=SYSTEMS.EXEC,DISP=SHR

//SYSTSPRT DD SYSOUT=Q

//SYSPRINT DD SYSOUT=Q

//SYSTSIN DD *

%XMITIP user@pbcc.cc.fl.us FILE 'your.file.name.here' -

SUBJECT 'subject line here' -

NOMSG ASA

/*

I want to be able to COPY and PASTE more lines of a member than what I see on the

screen?

You can use the TSO Cut/Append/Paste edit macros and Help file.

I want to send email from a batch job only if the return code is not zero?

You can use the Rexx exec called EMNOTIFY. Below is sample JCL that will

send a email to wisej with a subject of 'Job PHONEDIR had a bad return code'

and the body of the email is 'Please check it out'. Notice the //CHECK is checking

for a return code greater then 0 it will execute this step. You can put another

userid in place of the NOCC that will receive a CC copy of the email.

//CHECK IF RC > 0 THEN

//STEP99 EXEC PGM=IKJEFT01,PARM='EMNOTIFY'

//SYSEXEC DD DSN=SYSTEMS.EXEC,DISP=SHR

//SYSTSPRT DD DUMMY

//SYSTSIN DD *

WISEJ NOCC Job PHONEDIR had a bad return code

Please check it out!!

END

/*

// ENDIF

How can I tell who is logged on to TSO?

You can use the Rexx exec called WHO. On any TSO command line just type

TSO WHO. It will display all the users that are logged on to TSO. Remember that

sometimes users do not logoff.

How can I send a message to another TSO user?

You can use the Rexx exec called TELL On any TSO command line just type

TSO TELL userid message. Fill in the userid of the person that you want the

message to go to and fill in message with your short message that is less than 115

characters.

I want to receive email when someone online adds a record to a file or maybe when

a certain error occurs.

You will have to change your Natural program so that it submits a job depending

on what/when a certain event occurs. Below is a some sample Nautral code that

submits a job (See number 4).

DEFINE DATA LOCAL

01 COUNT (B4)

01 FLAG (A1)

01 RETHEX (B2)

01 CARDS (A80/15)

END-DEFINE

MOVE '//EMNOTIFY JOB SYS,DEV,MSGCLASS=9' TO CARDS (1)

MOVE "//STEP01 EXEC PGM=IKJEFT01,PARM='EMNOTIFY'" TO CARDS (2)

MOVE '//SYSEXEC DD DSN=SYSTEMS.EXEC,DISP=SHR' TO CARDS (3)

MOVE '//SYSTSPRT DD DUMMY' TO CARDS (4)

MOVE '//SYSTSIN DD *' TO CARDS (5)

MOVE 'WISEJ NOCC Job PHONEDIR had a bad return code' TO

CARDS (6)

MOVE 'Please check it out!!' TO CARDS (7)

MOVE 'END' TO CARDS (8)

MOVE '/*' TO CARDS (9)

MOVE 9 TO COUNT

MOVE 'L' TO FLAG

CALL 'NATRJE' CARDS(*) COUNT FLAG RETHEX

IF RETHEX = H'0000'

WRITE 'JOB SUBMITTED SUCCESSFULLY'

ELSE

WRITE 'ERROR FROM NATRJE' RETHEX

END

I want to print a report to the Lexmark printer in the lobby of the DP building?

There are several ways to get the report printed on the printer. If you have not

created the report in JES yet, you can use JCL simular to the following JCL. Note

that the program is writing the report to SYSPRINT. The SYSPRINT DD is

pointing to the OUT1 OUTPUT card which list the printer (i.e. S011) as the

FORMS name.

//TEST6400 JOB PBPDTR01,MSGLEVEL=(1,1),MSGCLASS=A

//STEP01 EXEC PGM=PROGRAMA

//OUT1 OUTPUT COPIES=3,FORMS=S011

//SYSPRINT DD SYSOUT=C,DEST=LOCAL,OUTPUT=*.OUT1

If the job has already run and produced the report in the JES queue you can use

SDSF and change the CLASS and FORMS. Change the C column to C and the

FORMS column to S011. These must be change at the same time or the listing

could be put on hold. If after changing these fields the report still does not print,

then in SDSF - O screen release the report with the A command.

NP JOBNAME JOBID OWNER PRTY C FORMS TOT-REC DEST

COPY13P JOB00869 ++++++++ 9 A STD 71 LOCAL

Another way to print is:

1. Go into SD.ST and find your job listing that you want printed.

2. Select your job with 'S'

3. On the command line type: PT OPEN C 1 S011 (where C is the class and

1 is the number of copies.)

4. Type PRINT (or PRINT 1 200 if you would like to select specific lines.)(1

is the starting line number and 200 is the number of lines to print.)

5. Type PT CLOSE.

How do I define a dataset in TSO/ISPF?

(This is paraphrased from a book.)

The process of creating a new dataset is often made easier if there's a modle to

follow. Option P.3.2 has this feature. The key to its use is that the characteristives

of the last viewed dataset are retained. To take advantage of the fact, the name of

and existing dataset is speci fied in the DATA SET NAME field.

Once the date set characteristics are displayed, they're retained until another data

set is listed. The characteristices of the model data set need not exactly match the

one being created. The closer its characteristices are, however, the easier the task

of creating the new data set.

Whether or not the characteristices of an existing data set have been displayed, the

rest of the process is the same. A processing option of A is used to create or

allocate a data set. The name of the new data set is specified, just as with the

listing option above.

If it was not nessessary to change any of the characteristives, the ENTER key

could be pressed to create the data set.

When both volume serial number and gereric unit (the next field down) are

omitted, the operating system wil determine the appropriate volume for the data

set. This is done according to defaults defined at each installation and generally

has advantages in being able to find enough disk space for the date set.

The one field that should almost always be left blank is the expiration date. Most

think that the expiration date keeps a data set from being deleted. It actually only

makes it slightly more difficult to delete the data set. In practive, however, it's

very difficult to update an unexpired data set. For that reason, it's not

recommedned that expiration dates be applied to disk data set.

After changes are mode to any of the fields, the ENTER key is pressed to

continue the allocation process.

The allocate option only supports cataloged data sets.

Are there any 'Volume standards' for placing non-Adabas datasets?

They can be placed on any volume that has room and does not contain datasets

that start with SAG.DB. They should also not be place on the volumes SYSSHR

and SYSPR1 and volumes that start with D9E, SYA, SYB, SYC, SYD, etc.

How can I edit/browse 2 different members at the same time?

You can split the screen and create 2 panels with the PF2 key. Then to flip

between the 2 panels you can use the PF9 key. More information on Using Split

Screen.Another use for this facility might be editing in one panel and SDSF in the

other panel.

Is there a way to see how much free space is on a volume?

Yes, there are a couple of ways. Each night at 3:00 AM a job is run that collects

the information. You can view is from the Disk Space Utilization Web Page.

After viewing it and you want details of what dataset are on a volume you can

change the word volume on the URL to the name of the volume.

Example:

From: http://panthernet.pbcc.cc.fl.us/dasd.cgi?w=volume

to : http://panthernet.pbcc.cc.fl.us/dasd.cgi?w=SMS315

and this will list all the datasets on the volume as of last night.

Another way to get the information that will be current is to do the following:

6. Go to option P.3.4 in ISPF

7. On the option line type V

8. Leave Dsname Level . . .blank

9. and enter your volume that you are interested in on the Volume serial .

.line.

I want to look up a error message or the syntax for a command from home but do

not have the manuals at home.

If you are dialed-in to the PBCC network you should be able to browse most of

the manuals for the PantherNet System. If you find a manual out of date please let

me know.

I have a user that runs a report each day and wants to be able to view the report

before printing it but, the user does not have a TSO id. Is there a way to view it and

either print or delete it?

Yes, If the user is at PBCC. They have to run the report so that the output goes to

output class=C and that it is only a few pages in length. The JCL will have to be

setup so that it is just like printing to a campus printer with the FORMS name

prepended with WEB (i.e. WEBS080) After the job has run have the user go to

the Jes2Web address and enter their Panthernet userid. The next page has buttons

that allow them to either View/Print/Delete the reports.

See Question 28 for documentation.

Can I find the status of PantherNet using the web?

You can try http://panthernet.pbcc.cc.fl.us/status.cgi, If the systems is busy please

be patient.

I am editing one member and I want to look at another member but a may or may

not remember the name of the member. Is there a shortcut with out backing out of

edit and going back in to the other dataset?

Yes, you can use one of several commands. You can enter one of the following

commands on the edit command line. They are:

o DS = Just like option 3.4 is ISPF/PDF.

_ DS SAG.NAT*

o XE = If you know the member name. This will leave you in edit mode of

member PHONEDIR.

_ XE PBCC.NAT.CNTL(PHONEDIR)

o XM = If you do not know the member name. This will leave you in a

member list that you can locate the member and edit.

_ XE PBCC.NAT.CNTL

After using the above commands you might want to use the commands of

(Number 3).

I work in Operations and have a need to bring down a CICS for maintence and I

would like to send a message to all the users that are logon to that CICS to give

them a little warning. Is that possible?

Yes, from the main OS/390 console you can issue the following command:

F CICSx,MESG ALL your message here

I want to split or join a line is TSO edit. Is there a way I can do it without copying

the line and deleting the stuff that is a duplicate?

This Rexx program splits a line or joins two lines. If right of cursor is blank then

it joins the next line. If right of cursor is data then it splits the line to two. Use

with a PF Key place cursor on line & press pfk.

I want to find the Julian date of a date in the past without having to to dig out the

calendar for last year?

You can use TSO RDATE mm/dd/yyyy on any TSO command line. Replace

mm/dd/yyyy with the date that you are interested in. With 12/31/1999 the

command returns 12/31/1999.365 36524 Friday with 365 being the Julian date.

I use the "split screen option" in TSO and when I go to logoff it takes me a half a

dozen PF3 keys to logoff. Is there a faster way?

On the TSO command line you can type =LOGOFF. You will have to do this 2

or 3 times depending if you are using "split screen mode" or not. It will log you

off completly if you have your TSO LOG/LIST defaults set correctly. To set the

defaults:

13. From the main TSO menu select option P ISPF/Program Development

Facility

14. Select option 0Terminal and user parameters

15. Select Log/List option from the menu and set your Log/List defaults.

When I FTP a file to a foreign host and it is not available I want the return code

not equal 0 and optionally be notified by email.

You can use the following sample JCL. This example uses the part of the JCL

from (Question number 4).

//STEP30 EXEC PGM=FTP,REGION=4M,PARM='(EXIT'

//STEPLIB DD DSN=SYS2.TCPIP.SEZALINK,DISP=SHR

//SYSFTPD DD DSN=SYS3.TCPIP.SEZAINST(FTSDATA),DISP=SHR

//SYSFTSX DD DSN=SYSTEMS.TCPIP.STANDARD.TCPXLBIN,DISP=SHR

//SYSTCPD DD DSN=SYS3.TCPIP.SEZAINST(TCPDATA),DISP=SHR

//PROFILE DD DSN=SYS3.TCPIP.SEZAINST(PROFILE),DISP=SHR

//SYSUDUMP DD SYSOUT=*

//SYSDBOUT DD SYSOUT=*

//SYSOUT DD SYSOUT=*

//SYSPRINT DD SYSOUT=*

//SYSPUT DD SYSOUT=*

//INPUT DD *

support.PBCC.CC.FL.US

pbcc_admin1\someuserid password

PUT 'SYSTEMS.WEBPHONE.LOG(0)' PHONE.DAT

QUIT

/*

//CHECK IF RC > 0 THEN

//STEP99 EXEC PGM=IKJEFT01,PARM='EMNOTIFY'

//SYSEXEC DD DSN=SYSTEMS.EXEC,DISP=SHR

//SYSTSPRT DD DUMMY

//SYSTSIN DD *

WISEJ NOCC Job PHONEDIR had a bad return code

Please check it out!!

END

/*

// ENDIF

I want to take a report and send it to a user but I want to remove the report

headers/footers before sending it to them. How can I do this without writing it to a

work file and the using (Option number 2).

You can use the following JCL as an example and I will explain below.

//STRIPHDR JOB (ACCT),'SYSPROG',REGION=6M,MSGCLASS=A

//STEP10 EXEC PGM=IKJEFT01,PARM='STRIPHDR'

//STEPLIB DD DSN=SYSTEMS.LOAD,DISP=SHR

//SYSEXEC DD DSN=SYSTEMS.EXEC,DISP=SHR

//SYSTSPRT DD SYSOUT=Q

//INPUT DD DSN=&SYSUID..STRIPHDR.WORK,DISP=SHR

//OUTPUT DD DSN=&SYSUID..STRIPHDR.WORK.OUTPUT,DISP=(NEW,CATLG),

// SPACE=(CYL,(5,1),RLSE),LRECL=133

//SYSTSIN DD *

40 65

(1)

STUDENT INFORMTIO

(2)

Registration Overr

(2)

01/01/00 - 01/

(2)

Overrd Hold

(2)

Date Code Hold

(2)

-------- ---- -----------

(2)

(3)

/*

//STEP20 EXEC PGM=IKJEFT1B

//SYSTCPD DD DSN=SYS3.TCPIP.SEZAINST(TCPDATA),DISP=SHR

//SYSEXEC DD DSN=SYSTEMS.EXEC,DISP=SHR

//SYSTSPRT DD SYSOUT=Q

//SYSPRINT DD SYSOUT=Q

//MAILFILE DD

DSN=&SYSUID..STRIPHDR.WORK.OUTPUT,DISP=(OLD,DELETE)

//SYSTSIN DD *

%XMITIP WISEJ@PBCC.CC.FL.US FILEDD MAILFILE -

(4)

SUBJECT 'STRIPHDR - Import Report' -

(5)

NOMSG REPORT .xls

(6)

/*

The JCL above will take a sequential file as input named:

userid.STRIPHDR.WORK and remove the headers/footers and email it to the

person in note (4).

(1) The first number is the starting number to match text in. The second number is

the last column to match on.

(2) These are the lines from the report that you want to match on. They have to

match exactly on columns and case. It is best to cut and paste from the report.

(3) I have included a blank line here to get rid of any blank lines in the report.

(4) WISEJ@PBCC.CC.FL.US is whom you want the file mailed to. Please put in

a fully qualified email address.

(5) Within the quote is the subject that you want the email to have.

(6) The .xls is the file type you want the file to have as an attachment.

How do I save a report to a file for the different questions on this page?

There are several ways. I will tell you the long way and then the short way. The

long way is to go into SDSF and select the file you want to save in a file.

16. Select Print from the TSO menu bar

17. Select option 2 Print open data set... and fill out the following screen.

18. Select Print from the TSO menu bar

19. Select option 4 Print... and fill in the Begin line and End line

20. Select Print from the TSO menu bar

21. Select option 5 Print close.

Now you should have your report in the file specified in step 2.

Or

22. Position to the file you want to print to a file using S or ?

23. Next to the file you want printed to a disk file type XDC and fill out the

following screen.

This will do the same as the first proceedure with the exception that it will print

the whole file to disk and not give you a chance to specify the Begin and End

lines.

I am trying to figure out the different options that are defined for my PantherNet

printer and don't know where to find out what is defined?

You can user the following link if you are within PBCC that will list all the

current printer configurations: panthernet.pbcc.cc.fl.us:91/zprt.cgi If you do not

think it is working and want to check if it is on the network you can click on the

IP address and PantherNet will do a ping to the address and will return the results

to you browser.

I want to be able to enter upper and lower case text on the PantherNet maps. How

do I change the way CICS changes everything to uppercase?

24. Select option B from the 'A,B,C' screen.

25. Key in your userid/password and hit PF9 (NOT Enter).

26. Clear the screen.

27. Type UCTL for lower case or UCTU or uppercase and hit Enter.

28. Clear the screen.

29. Type in NAT2 (be sure it is in uppercase).

30. In Natural it might be required to enter %L for lowercase or %U for

uppercase.

If I have a job that FTP's to another computer and I want the job to wait a few

minutes before it process the next job step how do I make it wait?

You can use the following sample JCL as the job step where you want to wait:

//STEP01 EXEC PGM=IKJEFT01,PARM='TSOWAIT xx' (see note)

//STEPLIB DD DSN=SYSTEMS.LOAD,DISP=SHR

//SYSEXEC DD DSN=SYSTEMS.EXEC,DISP=SHR

//SYSTSPRT DD SYSOUT=*

//SYSTSIN DD *

/*

Where the xx is the number of seconds that you what to wait .

I trying to edit a member and I get the message Member in use. How do I find who

is editing the Member?

You can hit PF1 twice and should see a list of whom has a lock on the member. If

you have normal color then the Green is Owns data set shared and Red is Owns

data set exclusively.

Is there a way to view the listings of the jobs that I have submitted on the web?

Yes, right now it is a home grown solution and you can read the documentation to

see how it works. Or you can try it with your PantherNet userid/password using

Jes2Web.

What are the standard form name on the 3160 (InfoPrint) laser printer?

There are several. To route your listing to the 3160 high speed laser just make

your output CLASS=L.

If you do not give a FORMS= in your JCL it will default to STD which the printer

will print landscape on the front and back. The additional forms are:

1WDE - Landscape - 1 side

1NAR - Portrait - 1 side

2NAR - Portrait - 2 side

I have recieved an error message on a job that I was running and cannot find the

explaination. If it is an IBM error message the you can look it up easily in TSO.

You can issue the command on any TSO command line.

2. TSO LOOKAT message number

3. (i.e. TSO LOOKAT $HASP160)

And it will display he messages description. It is being tested on the web here or

you can check the IBM site.

How do I print multiple copies of a report on a Lexmark printer?

4. //TEST6400 JOB

5. //***********************************************

6. //* SAMPLE JCL TO PRINT MULTIPLE COPIES TO 6400 *

7. //* SEE LAST FEW LINES OF THIS JCL FOR 'HOW TO' *

8. //***********************************************

9. //TRS0010 EXEC PGM=TRS0010,

10. // PARM=' /'

11. //SYSOUT DD SYSOUT=*

12. //O1 OUTPUT FORMS=S011

13. //PRINTER DD SYSOUT=C,DEST=LOCAL, (1)

14. // OUTPUT=(*.O1,*.O1,*.O1) (2)

(1) This line specifies the FORMS with the printer number assigned.

(2) This will print 3 copies to O1. O1 can be any tag of the OUTPUT statement.

I have a Natural program that needs to send email to a certain number of users.

The users will be different each time it is run and could be several hundreds users

that are selected. How do I send email without submitting JCL for each user?

You will use your normal Natural JCL with additional DD card below: This is

assuming that the email output is going to WORK FILE 1.

//CMWKF01 DD SYSOUT=(B,SMTP)

Below is a sample Natural program with comments.

0010

*****************************************************************

0020 * EXAMPLE PROGRAM OF SENDING MULTIPLE E-MAILS

0030 * PLEASE NOTE THAT EACH LINE IS SENT TO WORKFLE (CMWKF01)

0040 * JCL MUST HAVE THE FOLLOWING: //CMWKF01 DD

SYSOUT=(B,SMTP)

0050

*****************************************************************

0060 DEFINE DATA LOCAL

0070 01 #WORKFLE

0080 02 LINE1 (A80)

0090 01 #X (N3)

0100 END-DEFINE

0110 FOR #X 1 TO 3

0120 ********************

0130 * THIS IS WHAT CONNECTS TO THE E-MAIL SYSTEM

0140 * AND MUST BE AT THE TOP OF THE LOOP IN ORDER TO WORK

0150 MOVE 'HELO PANTHERNET.CC.FL.US' TO LINE1

0160 PERFORM WRITE-WORKFLE

0170 ********************

0180 * THIS IS THE E-MAIL FROM (YOU COULD INDICATE COMPUTER

GENERATED)

0190 **********************

0200 MOVE 'MAIL FROM:' TO LINE1

0210 PERFORM WRITE-WORKFLE

0220 ********************

0230 * THIS IS THE E-MAIL ADDRESS TO WHOM YOU ARE SENDING

0240 **********************

0250 MOVE 'RCPT TO:' TO LINE1

0260 PERFORM WRITE-WORKFLE

0270 ********************

0280 * ANYTHING TYPED AFTER THE NEXT LINE WILL BE ON THE E-MAIL

0290 **********************

0300 MOVE 'DATA' TO LINE1

0310 PERFORM WRITE-WORKFLE

0320 *****************************

0330 *****************************

0340 MOVE 'REPLY-TO: ' TO LINE1

0350 PERFORM WRITE-WORKFLE

0360 MOVE 'TO: NANCY SIMMONS ' TO

LINE1

0370 PERFORM WRITE-WORKFLE

0380 MOVE 'SUBJECT: THIS IS TEST 2' TO LINE1

0390 PERFORM WRITE-WORKFLE

0400 MOVE 'THIS IS THE E-MAIL TEST TO PERSON' TO LINE1

0410 PERFORM WRITE-WORKFLE

0420 * YOU MUST REMEMBER TO CODE THE NEXT THREE LINES AT THE END

OF

0430 * EACH E-MAIL THAT IS GOING OUT.

0440 MOVE ' ' TO LINE1

0450 PERFORM WRITE-WORKFLE

0460 MOVE '.' TO LINE1

0470 PERFORM WRITE-WORKFLE

0480 END-FOR

0490 *******************************

0500 * INCLUDE THE FOLLOWING AFTER THE LOOP PROCESS

0510 *******************************

0520 MOVE 'QUIT' TO LINE1

0530 PERFORM WRITE-WORKFLE

0540

*****************************************************************

**

0550 DEFINE SUBROUTINE WRITE-WORKFLE

0560

*****************************************************************

**

0570 WRITE WORK 01

0580 #WORKFLE

0590 END-SUBROUTINE

0600 END

How do I compile INAS with COBOL for MVS(AKA LE/370)?

First compile programs: FMRJCTnn, FMSNTnn, INLCLnn, INTAXnn.

Second compile programs: FMCALCnn and FMTWEKnn

and then do the following before compiling INASnnnn:

In the calling program (i.e. WFNAIxxN) comment out the line SET CONTROL

'P=S'. Then change the LINKAGE SECTION of INASxxxx to the follow:

091000*==========================================================

=======

091100 LINKAGE SECTION.

091200*==========================================================

=======

091300

01 TWA-DATA.

03 PARM-POINTER USAGE IS POINTER.

01 PARM-LIST.

03 POINTER-P1 USAGE IS POINTER.

03 POINTER-P2 USAGE IS POINTER.

03 POINTER-P3 USAGE IS POINTER.

03 POINTER-P4 USAGE IS POINTER.

03 POINTER-P5 USAGE IS POINTER.

03 POINTER-P6 USAGE IS POINTER.

091400 01 ISIR-RCRD.

091500 COPY FED01.

091600

091700 01 ISIR-EXT.

091800 03 FILLER PIC X(500).

091900

092000 01 FILLER REDEFINES ISIR-EXT.

092100 10 FILLER PIC X(9).

092200 10 IE-TYPE-CALC PIC X.

092300 10 FILLER PIC X(380).

092400 10 IE-SRCE PIC X(4).

092500 10 FILLER PIC X(106).

092600

092700 01 INAR-RCRD.

092800 COPY INAR01.

092900

093000 01 GLOBAL-RCRD.

093100 COPY GLOBAL01.

093200

093300 01 PROFILE-RCRD.

093400 COPY PRO01.

093500

093600 01 PROFILE-EXT.

093700 COPY PROEXT01.

093800

093900***********************************************************

*******

094000*PROCEDURE DIVISION WIN32API.

094100*ENTRY 'INAS2001' WIN32API USING ISIR-RCRD

094200

094300 PROCEDURE DIVISION.

094300*PROCEDURE DIVISION USING ISIR-RCRD

094400* ISIR-EXT

094500* INAR-RCRD

094600* GLOBAL-RCRD

094700* PROFILE-RCRD

094800* PROFILE-EXT.

094900***********************************************************

*******

095000

095100 INAS-MAIN.

095200***********

EXEC CICS ADDRESS TWA(ADDRESS OF TWA-DATA) END-EXEC.

SET ADDRESS OF PARM-LIST TO PARM-POINTER.

SET ADDRESS OF ISIR-RCRD TO POINTER-P1.

SET ADDRESS OF ISIR-EXT TO POINTER-P2.

SET ADDRESS OF INAR-RCRD TO POINTER-P3.

SET ADDRESS OF GLOBAL-RCRD TO POINTER-P4.

SET ADDRESS OF PROFILE-RCRD TO POINTER-P5.

SET ADDRESS OF PROFILE-EXT TO POINTER-P6.

095300

095400 PERFORM HSKPG THRU H-EXIT.

095500 PERFORM INIT-INAR THRU IR-EXIT.

095600 PERFORM SCENARIO-TST THRU ST-EXIT.

Following are the compile and linkedit options for the online version:

//COB EXEC PGM=IGYCRCTL,REGION=4M,

//

PARM='NODYNAM,LIB,OBJECT,RENT,APOST,MAP,XREF,LIST,OFFSET'

// LNKPARM='AMODE(31),RMODE(ANY),LIST=ALL,XREF'

//LKED EXEC PGM=IEWL,REGION=4M,

// PARM='&LNKPARM',COND=(5,LT,COB)

What are the standard JOB and PRINT classes?

Print Classes:

o C - Lexmark Printers

o L - 3160 High speed laser

o J - 6262 Impact printer

o 9 - This class is immediately destroyed

Job Classes:

o A - Programmer and general purpose

o B - Programmer and general purpose

o C - Programmer and general purpose

o D - Programmer and general purpose

o E - Operations Production Jobs

o F - Systems Utilities

o G - General user Jobs

How do I determine what kind and how much I should allocate for my work file?

First you will have to estimate the number of records in the output file and also

know the record length of those records. Below are some number that you will

also need to know.

o Total number of cylinders on a 3390-3 = 3339

o Number of tracks per cylinder = 15

o Number of bytes per track = 58786

To determine the approximate allocation you would take the number of records

times the record length giving you the total number of bytes. Take this number

and divide it by number of bytes per track giving you number of tracks. If this

number is larger than 15 then divide this number by 15 giving you number of

cylinders.

A good rule of thumb is use this number as the primary allocation and divide this

number in half for the secondary allocation.

Example

14. Number of records in the file = 370587

15. Record length = 133

16. 370587 * 133 = 49,288,071 (total number of bytes in the file)

17. 49,288,071 / 58786 = 838.4321266 (number of tracks needed)

18. 839 / 15 = 55.9333333 (number of cylinders needed)

19. So your primary allocation should be 56 cylinders and make your

secondary allocation 25

Again this is approximate because we are not taking into consideration blocksize

and track capacity with regards to wasted space.

EXPERTS INTERVIEW FAQ

How can I tell if a particular CICS region is up?

If you are authorized for that particular region, you can look on your TPX menu. Regions that are not running are noted with N/A. Alternate

methods are looking on the monitor, use SDSF option 11 on their TSO menu, or call the HelpDesk.

When I upload a file to the mainframe, how can I tell the mainframe not to cut off my records?

By default the mainframe assumes files being uploaded have 80-character records. This is a holdover from the days of punched cards. To

specify a different record length, use the SITE subcommand of FTP. Assuming you are sending a file with 240-character long records and

have already connected to the mainframe with your username and password:

FTP> site lrecl=240

Some FTP clients do not understand the SITE command or do not accept the syntax required by the mainframe. In that case, use the

QUOTE command in conjunction with the SITE command:

FTP> quote site lrecl=240

FTP> put myfile ‘mainframe.file’

Note that changing one parameter, such as the record length, may require changing another parameter, such as the blocksize of the

mainframe file.

For full information on the use of the SITE command, see the “OS/390 V2R6.0 eNetwork CS IP User’s Guide” found in the “OS/390 V2R6.0

eNetwork Communications Server Bookshelf” available from TSO using the BOOKMGR command.

I cannot see how much time my job on the ONLINE computer has used since SHOW SEND S1 ‘ACT B’ no longer works. Is there

another way to get this Information?

Use SHOW SEND S1 ‘STAT jobname’ to get the CPU time used and remaining CPU time.

What is the BEST way to determine the right BLOCKSIZE for a dataset?

Let the system determine the blocksize. Don't use BLKSIZE=xxxxx. When you don't use BLOCKSIZE the system will use the best blocksize

for the kind of storage you are using.

What is the minimum region size for TSO when using ISPF?

You can usually get by with 2M but using 4M will provide better performance.

Our HP printer stopped printing schedule/bills several minutes ago. I've got several students in line waiting. Can you find out why

we've stopped printing?

It could be several things.

1-It could be problems with the mainframe. Perhaps the ONLINE LPAR is at 100% or it could be another Operating System level problem.

2-We could be having problems with VTAM acquiring your printer

3-We could be having a problem w/ the Natural/CICS region

4-It could be that the printer has forgotten its IP address. Please turn it off and on.

5-It could be that we are experiencing network problems.

6-It could be Printway is backed up with too many active jobs trying to communicate with unresponsive printers.

7-It could be that the printer is in "sleep" mode. If so, change "sleep mode" to 2 hours or turn it off.

When are various CICS regions scheduled to be up? Users inform UAIS managers when they need them up and that information is

passed to operations and a schedule is set up.

How do I send e-mail from a batch job on the mainframe?

Include a step like this:

//EMAIL EXEC PGM=IEBGENER

//SYSUT2 DD SYSOUT=M,DEST=(UCCCMVS,S47SMT)

//SYSIN DD DUMMY

//SYSPRINT DD SYSOUT=*

//SYSUT1 DD *

HELO UCCCMVS.BITNET

TICK 0001

MAIL FROM:

RCPT TO:

RCPT TO:

DATA

Date: 16 Mar 2000 14:30 EST

From: Mainframe job notification (zsysj1r@turbotimmy.uc.edu)

To: Email recipient (robinsjo@ucmail.uc.edu)

Subject: Email from a batch job

Testing e-mail from a batch job.

.

QUIT

/*

Note that any text shown in all caps must appear as shown. Any text shown in mixed case may be changed to fit the requirements of your

job. Include a separate "RCPT TO:" line for each recipient. The data shown in-stream for SYSUT1 may be placed in a dataset and read as

input instead.

When I telnet to the mainframe, it says "Application Required. No Installation Default". The second line runs off the screen, and I

can't type in TPX or CUFS. What's wrong?

The most likely cause is a mismatch between the telnet client and the mainframe. There are three types of terminals emulated by different

telnet packages: VT-220, 3270 and 5250. Most non-IBM computers use VT-220. 5250 is for IBM AS-400 computers. The mainframe

expects to see a 3270 terminal. Make sure your telnet client is set up to act like a 3270. For help configuring your telnet client, call the UCit

Help Desk at 556-3785.

How do I change my password when I only use FTP to connect to the mainframe?

When prompted for your password, enter oldpass/newpass/newpass where oldpass is your current password and newpass is the password

you're changing to.

What's the IP address for the mainframe?

There are two separate network connections for the mainframe. Connecting by name (UCMVS580.UC.EDU or BATCH.UC.EDU) uses a

fiber-optic high-speed interface at IP address 129.137.180.98 (but please use the name rather than the number to connect, to insulate you

from any future networking changes). The mainframe continues to use its original network connection, and ethernet interface at IP address

129.137.124.102. Both addresses will continue to function for the foreseeable future, but UCit Infrastructure Services STRONGLY

recommends using the name rather than the number to connect.

When I transfer files to the mainframe, some of the characters don't look right. What's the inside scoop?

Most computers use a code called ASCII to store characters, but IBM mainframes use a different code called EBCDIC. When a file is

uploaded or FTP'ed to the mainframe, the characters are translated from ASCII to EBCDIC. This works well for all letters and numbers, and

most symbols, but some symbols such as the caret (^) don't have an EBCDIC representation. The mainframe will substitute it's own

What is TPX?

Terminal Productivity eXecutor is a session manager. It is a mainframe application that plays middleman between a user's terminal session

and another application. A user establishes a terminal session with TPX. TPX provides an easy to use menu and simple commands that

allows the user to connect to several mainframe applications at the same time. This multiple session support is a major convenience and

time saver. The user no longer needs to logoff one application to be able to logon to a different application. Some of the common

mainframe application accessed via TPX are TSO, CUFS, Human Resources, Natural, Nomad, and various CICS and OS/390 monitors.

Many of these applications have training and test versions.

How do accounts and security work on the mainframe?

Most of the mainframe applications use ACF2 (Access Control Facility) for security. ACF2 provides centralized control needed by large

institutions for authentication and reporting. It also tightens security by forcing users to change their passwords frequently. Userids are

issued to individual users and are not intended for department wide use.

Mainframe userids are seven characters long to conform to the architecture of the operating system. For decades, UC has been using a

format of ADDDIII, where A is the broad area, DDD is the department code, and III is the person's initials. A user in the academic area,

department of chemistry, with the name of John Q. Public most likely would be assigned a userid of PCHMJQP. This userid and associated

password may be used to logon to a wide variety of mainframe applications. Changing the password in one application will change the

password for all applications since only one ACF2 userid is involved. The userid may only be used for applications for which it is explicitly

authorized. PCHMJQP, being a student, may have access to the TSO application, however it would not be authorized for any of the

administration applications.

TPX uses ACF2 for security, however has a different format for the userid. Instead it prompts for a username. Everyone at the University

has a unique username. This username is also used for non-mainframe related services, such as e-mail and remote access. It is usually

the first six characters of the user's last name, plus their first and middle initial. John Q. Public would most likely have a username of

publicjq. ACF2 is used to control the TPX display menu. Only authorized applications will be listed. Changing your TPX password will only

affect TPX. Other services that use the same username (such as Bearcat Online, Remote Access, & Exchange) will not be affected since

they are not mainframe based, therefore they do not use ACF2.

The CUFS mainframe application has it's own security and does not use ACF2.

Who do I call about: computer output, tape usage, data set recovery, and forms design?

To discuss XEROX laser printer forms design or modifications please contact:

Direct Access Storage Coordinator at 556-0018 or 556-0037.

Where do I put my data sets?

Rules are established in the Dr. Quack program that permits data sets to be placed on selected disk packs (a single pack or one of a group

of packs). Call Direct Access Storage Coordinator at 556-0018 or 556-0037 to find out where your data sets are authorized to reside.

Why did DRQUACK take my data set?

Dr. Quack rules establish where data sets can reside. Put the data set on the wrong pack and Dr. Quack will archive it. Additionally, some

users have time limits for how long data sets remain on the system. Usual time limits are 90, 120 or 180 days.

My data set disappeared? (MrClean)

There are two ways that a data set can disappear: One is the program DRQUACK that reviews disk space usage each morning and has

the capability to remove a data set because of over allocation of assigned space by the user. The other is a daily work pack cleanup that

will delete data created on a different Julian date. These data sets are un-cataloged and deleted. Work packs are not used for long term or

permanent storage and the data removed from these packs cannot be recovered.

How do I get a damaged or lost data set restored?

Call the Help Desk at 556-3785 for assistance.

How long is a data set archived for?

Archived data is usually retained for one year from the date that it was removed by the archival job.

How do I submit my tape for use on the mainframe computer?

Obtain a tape submittal card; complete the card; and bring both the card and tape to UCit computer operations at G95 MSB.

How do I get my personal magnetic tape initialized?

Obtain a tape submittal card by coming to G95MSB or calling 556-0037 to obtain cards. Complete the card and submit with the tape to

G95MSB. The staff will initialize the tape and notify you when it is ready for use.

Can I remove data that has been stored on a tape?

When data is stored on a computing center “scratch” tape it can be copied to a personal tape that has been submitted. A new tape usually

requires initialization. Contact UCit Computer Operations at 556-0037 for more information.

Where can I pick up Exam Grading output?

The Exam Grading has moved to 410 Zimmer. However, exam output, for East campus customers, can be claimed at the UCit Computer

Operations at G95MSB. Contact UCit Computer Operations at 556-0037 for more information.

Where can I submit an exam to be processed?

Exams for users on the East Campus may be dropped off at G95MSB, Computer Operations for delivery to the Exam Grading Department

at 410 Zimmer for processing. They will be returned to Computer Operations, after completed, for pick up.

Who can help me with my program that keeps failing?

To obtain help on a failing program, call the Help Desk at 63785.

I have forgotten my password, can you help me?

If you have forgotten your password, call the Help Desk at 556-3785.

What is ACF2?

Access Control Facility 2 (ACF2) is the security package protecting information on the mainframe. When you fill out the Mainframe Access

Request Form, the security team tells ACF2 to recognize you as a person who can have access to specific mainframe information.

What is the Username?

This ID is assigned to you when you come to UC. The ID is usually a combination of the first 6 characters of your last name, the first initial

of your first name and the first initial of your middle name (which is how it came to be known as the 6+2). This ID remains consistent across

all systems such as Bearcat Online, TPX, e-mail and internet access.

What is the Userid?

You may also know this logonid as a 1+3+3. This is the logonid used to access specific mainframe applications such as UniverSIS, HRS or

TSO. This userid may have a password unique to each system being accessed.

How do I get access to UniverSIS?

Try visiting the UniverSIS Access page.

If I submit a Request for Mainframe Access, how long will it take and how will I be notified?

If a request is submitted online, it will take less time than if submitted by mail. In either case, you should allow 3 business days from the

time the request is received by security for the request to be processed. A letter will be mailed to you with your accounts and initial

password. If a request is submitted online, it cannot be processed until both your acceptance of the User Agreement and the Budget

Number supplied by your manager are received by security.

How to determine the MVS version?

Apart from the natural curiosity, the knowledge of the MVS version that

one is using might be required in order to to look for system messages

either in IBM Book Manager or QuickRef.

Open SDSF session and enter primary command WHO. In reply to this

command SDSF will display several lines of information describing

session environment and containing among other useful things versions of

MVS, JES, ISPF and SDSF.

How to determine program compile date?

Compile date might be needed for various reason, the most typical of them

is the necessity to compare load modules of the same program in different

libraries.

Open program partition for browse in the load module library. Scroll one

screen right ([F11]) and you'll see the program name immediately

followed by the date in the format of YYYYMMDD. This is the program

compile date.

How to determine the ChangeMan package, in which program was compiled?

The ChangeMan package, in which program was compiled, might be

needed in order to get a list of associated objects, as well as program

compilation printout saved in the ChangeMan archive. The latter is useful

for program code analysis and is indispensable for troubleshooting.

Open program partition for browse in the load module library. Right on

the first screen you'll see program name followed by a "/", hex number

(ChangeMan ID code of load module), and another "/", which is

immediately followed by ChangeMan package number.

How to handle variable length records?

Define file as having variable length records in a way similar to the

following (MODE and BLOCK lines are useful for output files only — to

avoid specifying RECFM and BLKSIZE in JCL):

FD Var-Length-Rec-File

RECORDING MODE IS V

BLOCK CONTAINS 0 RECORDS

RECORD IS VARYING FROM 1 TO 1000

DEPENDING ON Record-Length.

01 Var-Length-Record PIC X(1000).

Maximum record length is assumed here to be 1000 bytes (minimum is

always 1). Record-Length variable should be defined as an elementary

unsigned integer capable of holding the maximum length value —

PIC 9(5) BINARY for the above example. Record-Length treatment

depends on the I/O operation:

_ The actual length of the record prepared for the output must be

placed by the program into Record-Length variable before any

output operation (WRITE, REWRITE or RELEASE).

_ The actual length of the record just read gets placed by the

operating system into Record-Length variable after the successful

input operation (READ or RETURN).

_ Execution of an output operation as well as execution of an

unsuccessful input operation doesn't change the value of the

Record-Length variable.

Omission of FROM ... TO ... range specification is tolerated by the

COBOL compiler, but output operation causes S0C4 AbEnd (protection

exception) in this case.

How to fix B37 AbEnd?

The most common reason of a B37 AbEnd is a situation when operating

system can't allocate secondary extent for DASD output data set because

there is not enough space on the DASD unit[s], defined for the data set

allocation.

Sequential data set can be allocated in up to 16 extents (normally one

primary and up to 15 secondary). When Operating System can't find

space for primary allocation, job gets cancelled with JCL error before

attempting to execute it. If primary allocation request is satisfied, job

starts running, allocating secondary extents when (and if) necessary. If an

attempt to allocate secondary extent fails, job AbEnds with B37.

There is a popular belief that increasing primary space solves B37 AbEnd

problem. Indeed, it might work for some situations, but it might fail to

work for other (those with significant deviations in the size of the data

set). B37 AbEnd is caused by the failure of secondary space allocation

and this is what should be addressed when fixing a B37 problem.

The right solution is to specify more than one (default) UNIT for the

output data set, E.g.: UNIT=(SYSALLDA,3). Thus, when system can't

find secondary extent on the first volume (i.e. volume where primary

extent is allocated), it switches to the second volume, etc. Normally

specifying 2 or 3 UNITs will work, but it might make sense to specify

more, depending on the number of generally available DASD units and

predicted deviations in the data set size.

Provided that there are enough DASD units for secondary space

allocation, it is important also to maintain some sort of a reasonable

balance between primary and secondary space requests. While there are

no universal rules for determining what balance is "right", there is "rule of

a thumb" that works reasonably well in most cases.

_ Evaluate the "peak" volume of the output data set (CYLs or

TRKs). One good way is to look at input file processing of which

caused B37 AbEnd and make approximate adjustments based on

the ratio of output/input record lengths. Let it be 100 CYLs, for

example.

_ Use 50% of the "peak" volume as primary space and 10% of the

peak volume as secondary space. This will give the following

space allocation for 100 CYL "peak" volume example:

SPACE=(CYL,(50,10),RLSE). Request to ReLeaSE unused space

when the output data set gets closed is a good practice improving

the overall system performance.

_ As can be easily seen, this allocation balance, while requesting

only 50% of "peak" volume upfront in primary space request,

permits to increase data set size up to 200% of the "peak" volume

(50%+15*10%=50%+150%=200%). Provided, of course, that the

sufficient number of DASD units was defined. For most practical

situations (a typical one is space request for sort work files) this

will be a reasonable balance between primary and secondary space.

How to position screen at the specified text line in the Edit/View/Browse session?

Screen positioning is the most basic and obvious operation in dealing with

texts and lists of data sets or library members. It is repeated dozens of

times every day and even minimal shortcuts can save hundreds of

keystrokes. Some of the descriptions below are based on the presumption

of the standard functional key assignment of UP/DOWN primary

COMMANDs to [F7]/[F8] keys.

_ In order to make current cursor string first/last on the screen

make sure that you have Scroll ===> CSR and simply hit

[F8]/[F7] key. If you have Scroll ===> PAGE (this is a default

in most applications), overtype PAGE by CSR (CurSoR) and exit

and re-enter the application so that scroll amount setting will be

saved in the profile.

_ If you want to position screen to text top, use 3 successive

keystrokes [Home]–[M]–[F7]; use [F8] as a last keystroke to

position screen to text bottom. TOP/BOTTOM commands (or

equivalent UP MAX / DOWN MAX) can be used also, but this is a

longer way (unless you'll assign those commands to functional

keys — however, this might not always work with the applications

which would redefine functional keys their own way).

_ In order to move screen for a certain amount of lines up/down type

this amount in the primary COMMAND field and hit [F7]/[F8]

key.

_ If you know the relative line number (left column in the

Edit/View session), use Locate primary COMMAND (can be

abbreviated to L) to make desired line first in the text area of the

screen. E.g.: primary COMMAND L 123 will position screen to

the line number 123 (from the beginning of the text). It is possible

to use the same method in the Browse session, but it's less obvious

where you are, since there are no displayable relative line numbers

in Browse (relative number of the first line in the text area of the

screen is displayed in the top-right corner, E.g.: Line 00000123).

_ If you have to skip many times to the same line of the text, you can

label this line by overtyping line number field with a line label,

e.g.: .A or .XYZ (should start with "."). To make labelled line first

in the text area of the screen enter L .label primary

COMMAND. E.g.: L .A will position screen to the line labelled

.A. Line labels are applicable to Edit and View sessions only.

You can have as many labelled line as you wish, but it's hardly

practical to use more than just several of them. Line labels are lost

once you leave Edit/View session. Use RESet LAB primary

COMMAND to delete all line labels.

How to remove Find limit for the Log and Output Data Set displays?

Find command in the SDSF has a default limit of 25,000 lines. This

makes the data search in the long output a rather annoying procedure,

especially considering the fact that SDSF limits DOWN to 9,999 lines

only. "RFIND is not active" in the SDSF, and the ability of SDSF Find

command to "remember" the parameters of it's previous entry is a poor

substitute for the actual RFIND (you have to enter Find without

parameters in the Command field landing each time on already found

entry unless you'll hit [F8] in between).

A simple way to overcome this limitation is to enter a

FINDLIM 9999999 command that will reset the default limit of 25,000

to a more reasonable limit of 9,999,999 making a search limited

practically only by the end of the file (which definitely should be a default

as it is in the ISPF/PDF).

Alternatively it is possible to enter a FINDLIM ? command to display

the current search limit and to overtype it by 9999999. In any case it is

necessary to exit and re-enter the SDSF so that search limit setting will be

saved in the profile.

What is MITVMC?

· A secure machine with very strict access controls, for those who need access to its

databases..

· Contains databases for alumni, resource development, payroll, and pension.

· Telnet into this machine is allowed only via Kerberized telnet clients, such as

Hostexplorer on PCs or ktn3270 on Macintosh.

What is MITVMA?

· Administrative IBM mainframe housed in W91 running CMS under VM/ESA.

· Web page: http://mitvma.mit.edu/system/htbin/system

· Contains the CAO accounting databases.

· Access to this machine is by password for registered users on departmental or

personal billing.

What networks is the mainframe connected to?

· MITVMA and MITVMC are connected to the Internet; MITVMC requires

Kerberos authentication for incoming Telnet and Ftp connections.

Can you please force me off the system ("off the C-machine", "off of

A")?

· A service we provide when:

o a userid is hung

o a terminal is hung

o a userid is in disconnected mode and the person is trying to use $SumMIT

· Forcing someone off is done by a command entered from a privileged userid.

· If the Mainframe contact people are not available and the client can't wait, you

can transfer the call to Mainframe Operations at x3-7049.

· If the client can wait, log the call, mark it Urgent/Mainframe. Tell them it should

be done within an hour.

· The client can also log onto the system (from another terminal, if necessary).

After pressing Enter at the dome screen, type "LOGON userid HERE" and answer

the password prompt. The client may then enter Begin, to use the terminal

session, or Logon, to revert to SumMIT or, or quit altogether.go to another

terminal and log into the system.

I have forgotten my password ...May I please have a new password?

· A person has forgotten their password, or the password has expired. (Passwords

are good for 90 days on the mainframes, at which time the system forces the user

to change the password.) For 99% of these requests, the person making the

request must own the account.

· From a privileged userid, we can provide a temporary password.

· Make as complete a case entry as you can, including the mainframe and userid.

Mark the case New/Mainframe.

· While on the phone with the client, try to find one of the contact people. If you

can't, tell the client we will call back when we reset the password.

The Menu won't come up, or, What do I do about CP Read status?

· CP Read is a state that a userid can be in when reconnected from being

disconnected.

· Users will usually call and say "the menu won't come up".

· When this occurs we ask what it says in the lower right hand corner of the screen.

· If it says CP Read, then we tell them to type the word begin and hit enter.

· If this does not work, then take the client's information, and treat the entry as a

Force-Off request. Make a case entry, mark it New/Mainframe.

· Find a Mainframe contact person.

Help! My disk is full!

· The mainframe uses what are called Minidisks for data storage for userids. The

primary storage area for a userid is called the A or 191 disk.

· When this disk space becomes 99% full, nothing more can be written to it and

files need to be cleared off before proceeding, much like a locker in Athena.

· The most common cause of the disk being full is that people do not discard any

mail and either the All Notebook or the Unread Notebook is too large to be

written back to the disk.

· If the client is using Mail or XEdit, he/she may enter a Filelist command, look for

old unneeded files, type Erase in front of each, and press Enter. After Quitting

from that, there may be enough space to complete the operation.

· Make as complete a log entry as possible, then try to find one of the Mainframe

contacts. If you can't, mark the case New/Mainframe and tell the client we will

get back to them shortly.

What is HDMS?

· Secure Analog access to MITVMC and some VAXs.

· This is a pool of call-back modems controlled by an authorization table.

· Requests for this access must come from authorized management (and require

account numbers for long-distance call back).

· Requests for this service must be made from management in email to

mithelp@mit.edu.

· Log the call, mark it New/Mainframe.

How do I get an HDMS account?

· Department management must send email to mithelp@mit.edu to request a new

HDMS account.

What is CUG (Closed Users Group)?

· Access through a specific digital phone to MITVMC and some of the VAX's.

· A request for CUG access has to come from a manager who is authorized to make

such requests. We then send mail to Telecomm and record the access in a

database.

· Requests for this service must be made from management in email to

mithelp@mit.edu.

· Log the call, mark it New/Mainframe.

How do I get added to the CUG?

· All requests for CUG access must be made via email to mithelp@mit.edu from

management.

What is the VM dialup number?

· The numbers for dialup access to MITVMA and MITVMC:

o Digital to MITVMA: 258-8311

o Digital to MITVMC: 258-8351 (restricted access)

o Analog to MITVMA: 258-9600 (4800 baud and above)

o Analog to MITVMC: 258-6311 (restricted access)

· The settings in the software for all the dialups should be:

o parity: even

o data bits: 7

o stop bits: 1

If someone is having trouble transferring files with Kermit they can try none,8,1

(except through HDMS).

What is ADSM?

· ADSM is a utility that allows microcomputers and workstations to back up files to

MIT's mainframe. ADSM is the Adstar Data Storage Manager backup service for

Mac, PC, and workstations; the server resides on MITVMA.

· The help desk administers the requests for access to this service, including:

o setting up node names

o maintaining a database of accounting information

o changing passwords

o adding clients to schedules

o changing passwords

· Take the client's information. Make a log entry and mark it New/Mainframe. Tell

the client the service should be available within four hours. If a Mainframe

contact is available, give him/her the case number.

Where can I get more information about ADSM?

More information about the program and the platforms it supports can be found on the

Web at: http://web.mit.edu/is/help/adsm/

How do I get the service?

· Call the help desk.

· We take the client's:

o name

o department

o building and room number

o E-mail address

o extension

o account number (or student billing ID)

· We ask the client, or someone with signature authority on the account number, to

send email to mithelp@mit.edu authorizing us to charge the account number for

the backup service.

· Make a log entry mark it New/Mainframe. Tell the client the service should be

available by the end of the day. Point them to net-dist to download (via FTP) the

software. If a Mainframe contact is available, give him/her the case number.

I have forgotten my ADSM password, what should I do?

· Call the help desk and request a new password.

· Take the client's name and node name, if known. Tell the client that the password

should be changed within one hour.

· Log the call. Mark it New/Mainframe.

How do I get backups to occur automatically on a schedule?

· Call the help desk to have your node added to "a schedule". Scheduled backups

are run on weekdays, in the evening or after midnight.

· Find out when the client would like to be backed up. Take the client's name and

node name.

· Log the call, mark it Pending/Mainframe. If the client knows their node name,

put that in the case as well. Ask the client which weekday evening they would

prefer, put this in the log.

· Tell the client the node should be added to the schedule by the end of the day.

· If a Mainframe contact is available, give him/her the case number.

Is ADSM service free?

· There is currently a charge of $5.00 per month for new clients.

What is a Midas Account?

· An account on MITVMA whose cost is underwritten by CAO for use by

administrators for accounting and payroll access. These accounts will go away

with the complete and successful rollout of SAP.

· A request for a Midas account can come from anyone. We record the information

in a database, set up the account and inform Kip Warren's group of the new

userid. Kip then grants access to the appropriate account numbers for the person.

How do I get a Midas Account?

· Call the help desk.

· We take the client's:

o name

o department

o building and room

o extension

o email address

o platform information

· The client will also need connectivity software:

o For the PC: HostExplorer or Procomm

o For the Mac: KTN3270, WhiteKnight, term, or Zterm

· Make as complete a log entry as you can. Mark the log New/Mainframe.

· Tell the client the userid should be set up by the end of the day and the account

access available the next working day. If a Mainframe contact is available, give

him/her the case number.

What is $SumMIT?

· An Account on MITVMA used for accounting and payroll. These accounts will

go away with the complete and successful rollout of SAP.

· $SumMIT is a direct interface to the information on the mainframe.

· A $SumMIT Account requires an MITNET connection.

· A $SumMIT account cannot exist without a Midas account.

How do I get a $SumMIT Account?

· The procedure for setting up a $SumMIT account is the same as for a Midas

account.

· Call the Help Desk.

· Someone from CAO will contact the client about installing $SumMIT on their

machine.

· Make as complete a case entry as you can. Mark the log New/Mainframe.

· Tell the client the userid should be set up by the end of the day and the account

access available the next working day.

· If a Mainframe contact is available, give him/her the case number.

Is there electronic mail on the mainframe?

· The email system on the mainframes is called Rice Mail, after the university

where it was developed.

· This mail system offers the PFkey-equivalents for the commands to read, send,

forward, and delete mail.

· When a client asks if there is email on the mainframe, say "Yes" then ask: "Do

you currently have account on the mainframe?" If they answer "Yes", tell them

that they currently have email and can type HELP MAIL from ready prompt. If

they answer "No", ask if there is a particular reason they are asking about E-mail

on the mainframe (email isn't typically enough of a reason alone to give out a

mainframe account):

o For general E-mail, use we should point them to Eudora.

o If they want to set up a ListServ list, log the information and mark the case

New/Mainframe/Listserv and give Art the case number.

· Art is the Rice-Mail and ListServ administrator.

How do I forward my email on the mainframe?

Mail can be forwarded from the mainframe to Athena or TechMail/Eudora.

· The command to forward mail on the mainframe is:

TELL MAILER SET FORWARD

· To unforward mail:

TELL MAILER SET FORWARD OFF

· Tell client to enter the following command at the ready prompt:

TELL MAILER SET FORWARD

· If that works, enter and close a case.

· If that does not work, enter a case, mark it Urgent/Mainframe. If Art, Carol

Wood, or Lynne is in 11-226, tell one of them the log number.

What is LISTSERV?

· ListServ is a service on MITVMA which maintains electronic mailing lists.

· ListServ is part of a worldwide system for managing mailing lists. When you

subscribe to Something-L by sending mail to listserv@someplace.edu, you're

using a ListServ server.

· LISTSERV is managed by the VM postmasters: Art Anger, Noel Hart, and Jeff

Harrington.

What is XEDIT?

· A facility on the mainframe for creating and editing text files.

· The data are displayed, treated, and stored in lines (records), which may be

specified by number, position, name or content .

What is FILELIST?

· A menu-driven program for displaying a list of the contents of any linked

minidisk, usually A(191).

Use a PPP dial-in internet account, is there any way I can get to PantherNet using it?

Yes you can. You need a specialized Telnet program that does 3270 full screen

access called TN3270. These programs are available in the public domain for

most platforms. Search for "tn3270" to find a number of them. Or you can get

information about downloading it and setting it up. The PantherNet.pbcc.cc.fl.us

host is only available if you are dialed into PBCC's PPP systems, not your

personal ISP account.

Is it possible to send a PantherNet report to a user that they can create a spreadsheet

from it?

Yes. The report will be email as an attachment to the user. First you will have to

save the report as a file. You have 2 options then to send the file, from interactive

TSO or from Batch. There is more information in the XMITIP Help file. Below is

sample JCL that will send a file but no other email message.

//XMITIP JOB SYS,DEV,MSGCLASS=Q,MSGLEVEL=(0,0),TIME=(2,00)

//STEP01 EXEC PGM=IKJEFT1B

//STEPLIB DD DSN=SYSTEMS.LOAD,DISP=SHR

//SYSTCPD DD DSN=SYS3.TCPIP.SEZAINST(TCPDATA),DISP=SHR

//SYSEXEC DD DSN=SYSTEMS.EXEC,DISP=SHR

//SYSTSPRT DD SYSOUT=Q

//SYSPRINT DD SYSOUT=Q

//SYSTSIN DD *

%XMITIP user@pbcc.cc.fl.us FILE 'your.file.name.here' -

SUBJECT 'subject line here' -

NOMSG ASA

/*

I want to be able to COPY and PASTE more lines of a member than what I see on the

screen?

You can use the TSO Cut/Append/Paste edit macros and Help file.

I want to send email from a batch job only if the return code is not zero?

You can use the Rexx exec called EMNOTIFY. Below is sample JCL that will

send a email to wisej with a subject of 'Job PHONEDIR had a bad return code'

and the body of the email is 'Please check it out'. Notice the //CHECK is checking

for a return code greater then 0 it will execute this step. You can put another

userid in place of the NOCC that will receive a CC copy of the email.

//CHECK IF RC > 0 THEN

//STEP99 EXEC PGM=IKJEFT01,PARM='EMNOTIFY'

//SYSEXEC DD DSN=SYSTEMS.EXEC,DISP=SHR

//SYSTSPRT DD DUMMY

//SYSTSIN DD *

WISEJ NOCC Job PHONEDIR had a bad return code

Please check it out!!

END

/*

// ENDIF

How can I tell who is logged on to TSO?

You can use the Rexx exec called WHO. On any TSO command line just type

TSO WHO. It will display all the users that are logged on to TSO. Remember that

sometimes users do not logoff.

How can I send a message to another TSO user?

You can use the Rexx exec called TELL On any TSO command line just type

TSO TELL userid message. Fill in the userid of the person that you want the

message to go to and fill in message with your short message that is less than 115

characters.

I want to receive email when someone online adds a record to a file or maybe when

a certain error occurs.

You will have to change your Natural program so that it submits a job depending

on what/when a certain event occurs. Below is a some sample Nautral code that

submits a job (See number 4).

DEFINE DATA LOCAL

01 COUNT (B4)

01 FLAG (A1)

01 RETHEX (B2)

01 CARDS (A80/15)

END-DEFINE

MOVE '//EMNOTIFY JOB SYS,DEV,MSGCLASS=9' TO CARDS (1)

MOVE "//STEP01 EXEC PGM=IKJEFT01,PARM='EMNOTIFY'" TO CARDS (2)

MOVE '//SYSEXEC DD DSN=SYSTEMS.EXEC,DISP=SHR' TO CARDS (3)

MOVE '//SYSTSPRT DD DUMMY' TO CARDS (4)

MOVE '//SYSTSIN DD *' TO CARDS (5)

MOVE 'WISEJ NOCC Job PHONEDIR had a bad return code' TO

CARDS (6)

MOVE 'Please check it out!!' TO CARDS (7)

MOVE 'END' TO CARDS (8)

MOVE '/*' TO CARDS (9)

MOVE 9 TO COUNT

MOVE 'L' TO FLAG

CALL 'NATRJE' CARDS(*) COUNT FLAG RETHEX

IF RETHEX = H'0000'

WRITE 'JOB SUBMITTED SUCCESSFULLY'

ELSE

WRITE 'ERROR FROM NATRJE' RETHEX

END

I want to print a report to the Lexmark printer in the lobby of the DP building?

There are several ways to get the report printed on the printer. If you have not

created the report in JES yet, you can use JCL simular to the following JCL. Note

that the program is writing the report to SYSPRINT. The SYSPRINT DD is

pointing to the OUT1 OUTPUT card which list the printer (i.e. S011) as the

FORMS name.

//TEST6400 JOB PBPDTR01,MSGLEVEL=(1,1),MSGCLASS=A

//STEP01 EXEC PGM=PROGRAMA

//OUT1 OUTPUT COPIES=3,FORMS=S011

//SYSPRINT DD SYSOUT=C,DEST=LOCAL,OUTPUT=*.OUT1

If the job has already run and produced the report in the JES queue you can use

SDSF and change the CLASS and FORMS. Change the C column to C and the

FORMS column to S011. These must be change at the same time or the listing

could be put on hold. If after changing these fields the report still does not print,

then in SDSF - O screen release the report with the A command.

NP JOBNAME JOBID OWNER PRTY C FORMS TOT-REC DEST

COPY13P JOB00869 ++++++++ 9 A STD 71 LOCAL

Another way to print is:

1. Go into SD.ST and find your job listing that you want printed.

2. Select your job with 'S'

3. On the command line type: PT OPEN C 1 S011 (where C is the class and

1 is the number of copies.)

4. Type PRINT (or PRINT 1 200 if you would like to select specific lines.)(1

is the starting line number and 200 is the number of lines to print.)

5. Type PT CLOSE.

How do I define a dataset in TSO/ISPF?

(This is paraphrased from a book.)

The process of creating a new dataset is often made easier if there's a modle to

follow. Option P.3.2 has this feature. The key to its use is that the characteristives

of the last viewed dataset are retained. To take advantage of the fact, the name of

and existing dataset is speci fied in the DATA SET NAME field.

Once the date set characteristics are displayed, they're retained until another data

set is listed. The characteristices of the model data set need not exactly match the

one being created. The closer its characteristices are, however, the easier the task

of creating the new data set.

Whether or not the characteristices of an existing data set have been displayed, the

rest of the process is the same. A processing option of A is used to create or

allocate a data set. The name of the new data set is specified, just as with the

listing option above.

If it was not nessessary to change any of the characteristives, the ENTER key

could be pressed to create the data set.

When both volume serial number and gereric unit (the next field down) are

omitted, the operating system wil determine the appropriate volume for the data

set. This is done according to defaults defined at each installation and generally

has advantages in being able to find enough disk space for the date set.

The one field that should almost always be left blank is the expiration date. Most

think that the expiration date keeps a data set from being deleted. It actually only

makes it slightly more difficult to delete the data set. In practive, however, it's

very difficult to update an unexpired data set. For that reason, it's not

recommedned that expiration dates be applied to disk data set.

After changes are mode to any of the fields, the ENTER key is pressed to

continue the allocation process.

The allocate option only supports cataloged data sets.

Are there any 'Volume standards' for placing non-Adabas datasets?

They can be placed on any volume that has room and does not contain datasets

that start with SAG.DB. They should also not be place on the volumes SYSSHR

and SYSPR1 and volumes that start with D9E, SYA, SYB, SYC, SYD, etc.

How can I edit/browse 2 different members at the same time?

You can split the screen and create 2 panels with the PF2 key. Then to flip

between the 2 panels you can use the PF9 key. More information on Using Split

Screen.Another use for this facility might be editing in one panel and SDSF in the

other panel.

Is there a way to see how much free space is on a volume?

Yes, there are a couple of ways. Each night at 3:00 AM a job is run that collects

the information. You can view is from the Disk Space Utilization Web Page.

After viewing it and you want details of what dataset are on a volume you can

change the word volume on the URL to the name of the volume.

Example:

From: http://panthernet.pbcc.cc.fl.us/dasd.cgi?w=volume

to : http://panthernet.pbcc.cc.fl.us/dasd.cgi?w=SMS315

and this will list all the datasets on the volume as of last night.

Another way to get the information that will be current is to do the following:

6. Go to option P.3.4 in ISPF

7. On the option line type V

8. Leave Dsname Level . . .blank

9. and enter your volume that you are interested in on the Volume serial .

.line.

I want to look up a error message or the syntax for a command from home but do

not have the manuals at home.

If you are dialed-in to the PBCC network you should be able to browse most of

the manuals for the PantherNet System. If you find a manual out of date please let

me know.

I have a user that runs a report each day and wants to be able to view the report

before printing it but, the user does not have a TSO id. Is there a way to view it and

either print or delete it?

Yes, If the user is at PBCC. They have to run the report so that the output goes to

output class=C and that it is only a few pages in length. The JCL will have to be

setup so that it is just like printing to a campus printer with the FORMS name

prepended with WEB (i.e. WEBS080) After the job has run have the user go to

the Jes2Web address and enter their Panthernet userid. The next page has buttons

that allow them to either View/Print/Delete the reports.

See Question 28 for documentation.

Can I find the status of PantherNet using the web?

You can try http://panthernet.pbcc.cc.fl.us/status.cgi, If the systems is busy please

be patient.

I am editing one member and I want to look at another member but a may or may

not remember the name of the member. Is there a shortcut with out backing out of

edit and going back in to the other dataset?

Yes, you can use one of several commands. You can enter one of the following

commands on the edit command line. They are:

o DS = Just like option 3.4 is ISPF/PDF.

_ DS SAG.NAT*

o XE = If you know the member name. This will leave you in edit mode of

member PHONEDIR.

_ XE PBCC.NAT.CNTL(PHONEDIR)

o XM = If you do not know the member name. This will leave you in a

member list that you can locate the member and edit.

_ XE PBCC.NAT.CNTL

After using the above commands you might want to use the commands of

(Number 3).

I work in Operations and have a need to bring down a CICS for maintence and I

would like to send a message to all the users that are logon to that CICS to give

them a little warning. Is that possible?

Yes, from the main OS/390 console you can issue the following command:

F CICSx,MESG ALL your message here

I want to split or join a line is TSO edit. Is there a way I can do it without copying

the line and deleting the stuff that is a duplicate?

This Rexx program splits a line or joins two lines. If right of cursor is blank then

it joins the next line. If right of cursor is data then it splits the line to two. Use

with a PF Key place cursor on line & press pfk.

I want to find the Julian date of a date in the past without having to to dig out the

calendar for last year?

You can use TSO RDATE mm/dd/yyyy on any TSO command line. Replace

mm/dd/yyyy with the date that you are interested in. With 12/31/1999 the

command returns 12/31/1999.365 36524 Friday with 365 being the Julian date.

I use the "split screen option" in TSO and when I go to logoff it takes me a half a

dozen PF3 keys to logoff. Is there a faster way?

On the TSO command line you can type =LOGOFF. You will have to do this 2

or 3 times depending if you are using "split screen mode" or not. It will log you

off completly if you have your TSO LOG/LIST defaults set correctly. To set the

defaults:

13. From the main TSO menu select option P ISPF/Program Development

Facility

14. Select option 0Terminal and user parameters

15. Select Log/List option from the menu and set your Log/List defaults.

When I FTP a file to a foreign host and it is not available I want the return code

not equal 0 and optionally be notified by email.

You can use the following sample JCL. This example uses the part of the JCL

from (Question number 4).

//STEP30 EXEC PGM=FTP,REGION=4M,PARM='(EXIT'

//STEPLIB DD DSN=SYS2.TCPIP.SEZALINK,DISP=SHR

//SYSFTPD DD DSN=SYS3.TCPIP.SEZAINST(FTSDATA),DISP=SHR

//SYSFTSX DD DSN=SYSTEMS.TCPIP.STANDARD.TCPXLBIN,DISP=SHR

//SYSTCPD DD DSN=SYS3.TCPIP.SEZAINST(TCPDATA),DISP=SHR

//PROFILE DD DSN=SYS3.TCPIP.SEZAINST(PROFILE),DISP=SHR

//SYSUDUMP DD SYSOUT=*

//SYSDBOUT DD SYSOUT=*

//SYSOUT DD SYSOUT=*

//SYSPRINT DD SYSOUT=*

//SYSPUT DD SYSOUT=*

//INPUT DD *

support.PBCC.CC.FL.US

pbcc_admin1\someuserid password

PUT 'SYSTEMS.WEBPHONE.LOG(0)' PHONE.DAT

QUIT

/*

//CHECK IF RC > 0 THEN

//STEP99 EXEC PGM=IKJEFT01,PARM='EMNOTIFY'

//SYSEXEC DD DSN=SYSTEMS.EXEC,DISP=SHR

//SYSTSPRT DD DUMMY

//SYSTSIN DD *

WISEJ NOCC Job PHONEDIR had a bad return code

Please check it out!!

END

/*

// ENDIF

I want to take a report and send it to a user but I want to remove the report

headers/footers before sending it to them. How can I do this without writing it to a

work file and the using (Option number 2).

You can use the following JCL as an example and I will explain below.

//STRIPHDR JOB (ACCT),'SYSPROG',REGION=6M,MSGCLASS=A

//STEP10 EXEC PGM=IKJEFT01,PARM='STRIPHDR'

//STEPLIB DD DSN=SYSTEMS.LOAD,DISP=SHR

//SYSEXEC DD DSN=SYSTEMS.EXEC,DISP=SHR

//SYSTSPRT DD SYSOUT=Q

//INPUT DD DSN=&SYSUID..STRIPHDR.WORK,DISP=SHR

//OUTPUT DD DSN=&SYSUID..STRIPHDR.WORK.OUTPUT,DISP=(NEW,CATLG),

// SPACE=(CYL,(5,1),RLSE),LRECL=133

//SYSTSIN DD *

40 65

(1)

STUDENT INFORMTIO

(2)

Registration Overr

(2)

01/01/00 - 01/

(2)

Overrd Hold

(2)

Date Code Hold

(2)

-------- ---- -----------

(2)

(3)

/*

//STEP20 EXEC PGM=IKJEFT1B

//SYSTCPD DD DSN=SYS3.TCPIP.SEZAINST(TCPDATA),DISP=SHR

//SYSEXEC DD DSN=SYSTEMS.EXEC,DISP=SHR

//SYSTSPRT DD SYSOUT=Q

//SYSPRINT DD SYSOUT=Q

//MAILFILE DD

DSN=&SYSUID..STRIPHDR.WORK.OUTPUT,DISP=(OLD,DELETE)

//SYSTSIN DD *

%XMITIP WISEJ@PBCC.CC.FL.US FILEDD MAILFILE -

(4)

SUBJECT 'STRIPHDR - Import Report' -

(5)

NOMSG REPORT .xls

(6)

/*

The JCL above will take a sequential file as input named:

userid.STRIPHDR.WORK and remove the headers/footers and email it to the

person in note (4).

(1) The first number is the starting number to match text in. The second number is

the last column to match on.

(2) These are the lines from the report that you want to match on. They have to

match exactly on columns and case. It is best to cut and paste from the report.

(3) I have included a blank line here to get rid of any blank lines in the report.

(4) WISEJ@PBCC.CC.FL.US is whom you want the file mailed to. Please put in

a fully qualified email address.

(5) Within the quote is the subject that you want the email to have.

(6) The .xls is the file type you want the file to have as an attachment.

How do I save a report to a file for the different questions on this page?

There are several ways. I will tell you the long way and then the short way. The

long way is to go into SDSF and select the file you want to save in a file.

16. Select Print from the TSO menu bar

17. Select option 2 Print open data set... and fill out the following screen.

18. Select Print from the TSO menu bar

19. Select option 4 Print... and fill in the Begin line and End line

20. Select Print from the TSO menu bar

21. Select option 5 Print close.

Now you should have your report in the file specified in step 2.

Or

22. Position to the file you want to print to a file using S or ?

23. Next to the file you want printed to a disk file type XDC and fill out the

following screen.

This will do the same as the first proceedure with the exception that it will print

the whole file to disk and not give you a chance to specify the Begin and End

lines.

I am trying to figure out the different options that are defined for my PantherNet

printer and don't know where to find out what is defined?

You can user the following link if you are within PBCC that will list all the

current printer configurations: panthernet.pbcc.cc.fl.us:91/zprt.cgi If you do not

think it is working and want to check if it is on the network you can click on the

IP address and PantherNet will do a ping to the address and will return the results

to you browser.

I want to be able to enter upper and lower case text on the PantherNet maps. How

do I change the way CICS changes everything to uppercase?

24. Select option B from the 'A,B,C' screen.

25. Key in your userid/password and hit PF9 (NOT Enter).

26. Clear the screen.

27. Type UCTL for lower case or UCTU or uppercase and hit Enter.

28. Clear the screen.

29. Type in NAT2 (be sure it is in uppercase).

30. In Natural it might be required to enter %L for lowercase or %U for

uppercase.

If I have a job that FTP's to another computer and I want the job to wait a few

minutes before it process the next job step how do I make it wait?

You can use the following sample JCL as the job step where you want to wait:

//STEP01 EXEC PGM=IKJEFT01,PARM='TSOWAIT xx' (see note)

//STEPLIB DD DSN=SYSTEMS.LOAD,DISP=SHR

//SYSEXEC DD DSN=SYSTEMS.EXEC,DISP=SHR

//SYSTSPRT DD SYSOUT=*

//SYSTSIN DD *

/*

Where the xx is the number of seconds that you what to wait .

I trying to edit a member and I get the message Member in use. How do I find who

is editing the Member?

You can hit PF1 twice and should see a list of whom has a lock on the member. If

you have normal color then the Green is Owns data set shared and Red is Owns

data set exclusively.

Is there a way to view the listings of the jobs that I have submitted on the web?

Yes, right now it is a home grown solution and you can read the documentation to

see how it works. Or you can try it with your PantherNet userid/password using

Jes2Web.

What are the standard form name on the 3160 (InfoPrint) laser printer?

There are several. To route your listing to the 3160 high speed laser just make

your output CLASS=L.

If you do not give a FORMS= in your JCL it will default to STD which the printer

will print landscape on the front and back. The additional forms are:

1WDE - Landscape - 1 side

1NAR - Portrait - 1 side

2NAR - Portrait - 2 side

I have recieved an error message on a job that I was running and cannot find the

explaination. If it is an IBM error message the you can look it up easily in TSO.

You can issue the command on any TSO command line.

2. TSO LOOKAT message number

3. (i.e. TSO LOOKAT $HASP160)

And it will display he messages description. It is being tested on the web here or

you can check the IBM site.

How do I print multiple copies of a report on a Lexmark printer?

4. //TEST6400 JOB

5. //***********************************************

6. //* SAMPLE JCL TO PRINT MULTIPLE COPIES TO 6400 *

7. //* SEE LAST FEW LINES OF THIS JCL FOR 'HOW TO' *

8. //***********************************************

9. //TRS0010 EXEC PGM=TRS0010,

10. // PARM=' /'

11. //SYSOUT DD SYSOUT=*

12. //O1 OUTPUT FORMS=S011

13. //PRINTER DD SYSOUT=C,DEST=LOCAL, (1)

14. // OUTPUT=(*.O1,*.O1,*.O1) (2)

(1) This line specifies the FORMS with the printer number assigned.

(2) This will print 3 copies to O1. O1 can be any tag of the OUTPUT statement.

I have a Natural program that needs to send email to a certain number of users.

The users will be different each time it is run and could be several hundreds users

that are selected. How do I send email without submitting JCL for each user?

You will use your normal Natural JCL with additional DD card below: This is

assuming that the email output is going to WORK FILE 1.

//CMWKF01 DD SYSOUT=(B,SMTP)

Below is a sample Natural program with comments.

0010

*****************************************************************

0020 * EXAMPLE PROGRAM OF SENDING MULTIPLE E-MAILS

0030 * PLEASE NOTE THAT EACH LINE IS SENT TO WORKFLE (CMWKF01)

0040 * JCL MUST HAVE THE FOLLOWING: //CMWKF01 DD

SYSOUT=(B,SMTP)

0050

*****************************************************************

0060 DEFINE DATA LOCAL

0070 01 #WORKFLE

0080 02 LINE1 (A80)

0090 01 #X (N3)

0100 END-DEFINE

0110 FOR #X 1 TO 3

0120 ********************

0130 * THIS IS WHAT CONNECTS TO THE E-MAIL SYSTEM

0140 * AND MUST BE AT THE TOP OF THE LOOP IN ORDER TO WORK

0150 MOVE 'HELO PANTHERNET.CC.FL.US' TO LINE1

0160 PERFORM WRITE-WORKFLE

0170 ********************

0180 * THIS IS THE E-MAIL FROM (YOU COULD INDICATE COMPUTER

GENERATED)

0190 **********************

0200 MOVE 'MAIL FROM:' TO LINE1

0210 PERFORM WRITE-WORKFLE

0220 ********************

0230 * THIS IS THE E-MAIL ADDRESS TO WHOM YOU ARE SENDING

0240 **********************

0250 MOVE 'RCPT TO:' TO LINE1

0260 PERFORM WRITE-WORKFLE

0270 ********************

0280 * ANYTHING TYPED AFTER THE NEXT LINE WILL BE ON THE E-MAIL

0290 **********************

0300 MOVE 'DATA' TO LINE1

0310 PERFORM WRITE-WORKFLE

0320 *****************************

0330 *****************************

0340 MOVE 'REPLY-TO: ' TO LINE1

0350 PERFORM WRITE-WORKFLE

0360 MOVE 'TO: NANCY SIMMONS ' TO

LINE1

0370 PERFORM WRITE-WORKFLE

0380 MOVE 'SUBJECT: THIS IS TEST 2' TO LINE1

0390 PERFORM WRITE-WORKFLE

0400 MOVE 'THIS IS THE E-MAIL TEST TO PERSON' TO LINE1

0410 PERFORM WRITE-WORKFLE

0420 * YOU MUST REMEMBER TO CODE THE NEXT THREE LINES AT THE END

OF

0430 * EACH E-MAIL THAT IS GOING OUT.

0440 MOVE ' ' TO LINE1

0450 PERFORM WRITE-WORKFLE

0460 MOVE '.' TO LINE1

0470 PERFORM WRITE-WORKFLE

0480 END-FOR

0490 *******************************

0500 * INCLUDE THE FOLLOWING AFTER THE LOOP PROCESS

0510 *******************************

0520 MOVE 'QUIT' TO LINE1

0530 PERFORM WRITE-WORKFLE

0540

*****************************************************************

**

0550 DEFINE SUBROUTINE WRITE-WORKFLE

0560

*****************************************************************

**

0570 WRITE WORK 01

0580 #WORKFLE

0590 END-SUBROUTINE

0600 END

How do I compile INAS with COBOL for MVS(AKA LE/370)?

First compile programs: FMRJCTnn, FMSNTnn, INLCLnn, INTAXnn.

Second compile programs: FMCALCnn and FMTWEKnn

and then do the following before compiling INASnnnn:

In the calling program (i.e. WFNAIxxN) comment out the line SET CONTROL

'P=S'. Then change the LINKAGE SECTION of INASxxxx to the follow:

091000*==========================================================

=======

091100 LINKAGE SECTION.

091200*==========================================================

=======

091300

01 TWA-DATA.

03 PARM-POINTER USAGE IS POINTER.

01 PARM-LIST.

03 POINTER-P1 USAGE IS POINTER.

03 POINTER-P2 USAGE IS POINTER.

03 POINTER-P3 USAGE IS POINTER.

03 POINTER-P4 USAGE IS POINTER.

03 POINTER-P5 USAGE IS POINTER.

03 POINTER-P6 USAGE IS POINTER.

091400 01 ISIR-RCRD.

091500 COPY FED01.

091600

091700 01 ISIR-EXT.

091800 03 FILLER PIC X(500).

091900

092000 01 FILLER REDEFINES ISIR-EXT.

092100 10 FILLER PIC X(9).

092200 10 IE-TYPE-CALC PIC X.

092300 10 FILLER PIC X(380).

092400 10 IE-SRCE PIC X(4).

092500 10 FILLER PIC X(106).

092600

092700 01 INAR-RCRD.

092800 COPY INAR01.

092900

093000 01 GLOBAL-RCRD.

093100 COPY GLOBAL01.

093200

093300 01 PROFILE-RCRD.

093400 COPY PRO01.

093500

093600 01 PROFILE-EXT.

093700 COPY PROEXT01.

093800

093900***********************************************************

*******

094000*PROCEDURE DIVISION WIN32API.

094100*ENTRY 'INAS2001' WIN32API USING ISIR-RCRD

094200

094300 PROCEDURE DIVISION.

094300*PROCEDURE DIVISION USING ISIR-RCRD

094400* ISIR-EXT

094500* INAR-RCRD

094600* GLOBAL-RCRD

094700* PROFILE-RCRD

094800* PROFILE-EXT.

094900***********************************************************

*******

095000

095100 INAS-MAIN.

095200***********

EXEC CICS ADDRESS TWA(ADDRESS OF TWA-DATA) END-EXEC.

SET ADDRESS OF PARM-LIST TO PARM-POINTER.

SET ADDRESS OF ISIR-RCRD TO POINTER-P1.

SET ADDRESS OF ISIR-EXT TO POINTER-P2.

SET ADDRESS OF INAR-RCRD TO POINTER-P3.

SET ADDRESS OF GLOBAL-RCRD TO POINTER-P4.

SET ADDRESS OF PROFILE-RCRD TO POINTER-P5.

SET ADDRESS OF PROFILE-EXT TO POINTER-P6.

095300

095400 PERFORM HSKPG THRU H-EXIT.

095500 PERFORM INIT-INAR THRU IR-EXIT.

095600 PERFORM SCENARIO-TST THRU ST-EXIT.

Following are the compile and linkedit options for the online version:

//COB EXEC PGM=IGYCRCTL,REGION=4M,

//

PARM='NODYNAM,LIB,OBJECT,RENT,APOST,MAP,XREF,LIST,OFFSET'

// LNKPARM='AMODE(31),RMODE(ANY),LIST=ALL,XREF'

//LKED EXEC PGM=IEWL,REGION=4M,

// PARM='&LNKPARM',COND=(5,LT,COB)

What are the standard JOB and PRINT classes?

Print Classes:

o C - Lexmark Printers

o L - 3160 High speed laser

o J - 6262 Impact printer

o 9 - This class is immediately destroyed

Job Classes:

o A - Programmer and general purpose

o B - Programmer and general purpose

o C - Programmer and general purpose

o D - Programmer and general purpose

o E - Operations Production Jobs

o F - Systems Utilities

o G - General user Jobs

How do I determine what kind and how much I should allocate for my work file?

First you will have to estimate the number of records in the output file and also

know the record length of those records. Below are some number that you will

also need to know.

o Total number of cylinders on a 3390-3 = 3339

o Number of tracks per cylinder = 15

o Number of bytes per track = 58786

To determine the approximate allocation you would take the number of records

times the record length giving you the total number of bytes. Take this number

and divide it by number of bytes per track giving you number of tracks. If this

number is larger than 15 then divide this number by 15 giving you number of

cylinders.

A good rule of thumb is use this number as the primary allocation and divide this

number in half for the secondary allocation.

Example

14. Number of records in the file = 370587

15. Record length = 133

16. 370587 * 133 = 49,288,071 (total number of bytes in the file)

17. 49,288,071 / 58786 = 838.4321266 (number of tracks needed)

18. 839 / 15 = 55.9333333 (number of cylinders needed)

19. So your primary allocation should be 56 cylinders and make your

secondary allocation 25

Again this is approximate because we are not taking into consideration blocksize

and track capacity with regards to wasted space.

EXPERTS INTERVIEW FAQ

How can I tell if a particular CICS region is up?

If you are authorized for that particular region, you can look on your TPX menu. Regions that are not running are noted with N/A. Alternate

methods are looking on the monitor, use SDSF option 11 on their TSO menu, or call the HelpDesk.

When I upload a file to the mainframe, how can I tell the mainframe not to cut off my records?

By default the mainframe assumes files being uploaded have 80-character records. This is a holdover from the days of punched cards. To

specify a different record length, use the SITE subcommand of FTP. Assuming you are sending a file with 240-character long records and

have already connected to the mainframe with your username and password:

FTP> site lrecl=240

Some FTP clients do not understand the SITE command or do not accept the syntax required by the mainframe. In that case, use the

QUOTE command in conjunction with the SITE command:

FTP> quote site lrecl=240

FTP> put myfile ‘mainframe.file’

Note that changing one parameter, such as the record length, may require changing another parameter, such as the blocksize of the

mainframe file.

For full information on the use of the SITE command, see the “OS/390 V2R6.0 eNetwork CS IP User’s Guide” found in the “OS/390 V2R6.0

eNetwork Communications Server Bookshelf” available from TSO using the BOOKMGR command.

I cannot see how much time my job on the ONLINE computer has used since SHOW SEND S1 ‘ACT B’ no longer works. Is there

another way to get this Information?

Use SHOW SEND S1 ‘STAT jobname’ to get the CPU time used and remaining CPU time.

What is the BEST way to determine the right BLOCKSIZE for a dataset?

Let the system determine the blocksize. Don't use BLKSIZE=xxxxx. When you don't use BLOCKSIZE the system will use the best blocksize

for the kind of storage you are using.

What is the minimum region size for TSO when using ISPF?

You can usually get by with 2M but using 4M will provide better performance.

Our HP printer stopped printing schedule/bills several minutes ago. I've got several students in line waiting. Can you find out why

we've stopped printing?

It could be several things.

1-It could be problems with the mainframe. Perhaps the ONLINE LPAR is at 100% or it could be another Operating System level problem.

2-We could be having problems with VTAM acquiring your printer

3-We could be having a problem w/ the Natural/CICS region

4-It could be that the printer has forgotten its IP address. Please turn it off and on.

5-It could be that we are experiencing network problems.

6-It could be Printway is backed up with too many active jobs trying to communicate with unresponsive printers.

7-It could be that the printer is in "sleep" mode. If so, change "sleep mode" to 2 hours or turn it off.

When are various CICS regions scheduled to be up? Users inform UAIS managers when they need them up and that information is

passed to operations and a schedule is set up.

How do I send e-mail from a batch job on the mainframe?

Include a step like this:

//EMAIL EXEC PGM=IEBGENER

//SYSUT2 DD SYSOUT=M,DEST=(UCCCMVS,S47SMT)

//SYSIN DD DUMMY

//SYSPRINT DD SYSOUT=*

//SYSUT1 DD *

HELO UCCCMVS.BITNET

TICK 0001

MAIL FROM:

RCPT TO:

RCPT TO:

DATA

Date: 16 Mar 2000 14:30 EST

From: Mainframe job notification (zsysj1r@turbotimmy.uc.edu)

To: Email recipient (robinsjo@ucmail.uc.edu)

Subject: Email from a batch job

Testing e-mail from a batch job.

.

QUIT

/*

Note that any text shown in all caps must appear as shown. Any text shown in mixed case may be changed to fit the requirements of your

job. Include a separate "RCPT TO:" line for each recipient. The data shown in-stream for SYSUT1 may be placed in a dataset and read as

input instead.

When I telnet to the mainframe, it says "Application Required. No Installation Default". The second line runs off the screen, and I

can't type in TPX or CUFS. What's wrong?

The most likely cause is a mismatch between the telnet client and the mainframe. There are three types of terminals emulated by different

telnet packages: VT-220, 3270 and 5250. Most non-IBM computers use VT-220. 5250 is for IBM AS-400 computers. The mainframe

expects to see a 3270 terminal. Make sure your telnet client is set up to act like a 3270. For help configuring your telnet client, call the UCit

Help Desk at 556-3785.

How do I change my password when I only use FTP to connect to the mainframe?

When prompted for your password, enter oldpass/newpass/newpass where oldpass is your current password and newpass is the password

you're changing to.

What's the IP address for the mainframe?

There are two separate network connections for the mainframe. Connecting by name (UCMVS580.UC.EDU or BATCH.UC.EDU) uses a

fiber-optic high-speed interface at IP address 129.137.180.98 (but please use the name rather than the number to connect, to insulate you

from any future networking changes). The mainframe continues to use its original network connection, and ethernet interface at IP address

129.137.124.102. Both addresses will continue to function for the foreseeable future, but UCit Infrastructure Services STRONGLY

recommends using the name rather than the number to connect.

When I transfer files to the mainframe, some of the characters don't look right. What's the inside scoop?

Most computers use a code called ASCII to store characters, but IBM mainframes use a different code called EBCDIC. When a file is

uploaded or FTP'ed to the mainframe, the characters are translated from ASCII to EBCDIC. This works well for all letters and numbers, and

most symbols, but some symbols such as the caret (^) don't have an EBCDIC representation. The mainframe will substitute it's own

What is TPX?

Terminal Productivity eXecutor is a session manager. It is a mainframe application that plays middleman between a user's terminal session

and another application. A user establishes a terminal session with TPX. TPX provides an easy to use menu and simple commands that

allows the user to connect to several mainframe applications at the same time. This multiple session support is a major convenience and

time saver. The user no longer needs to logoff one application to be able to logon to a different application. Some of the common

mainframe application accessed via TPX are TSO, CUFS, Human Resources, Natural, Nomad, and various CICS and OS/390 monitors.

Many of these applications have training and test versions.

How do accounts and security work on the mainframe?

Most of the mainframe applications use ACF2 (Access Control Facility) for security. ACF2 provides centralized control needed by large

institutions for authentication and reporting. It also tightens security by forcing users to change their passwords frequently. Userids are

issued to individual users and are not intended for department wide use.

Mainframe userids are seven characters long to conform to the architecture of the operating system. For decades, UC has been using a

format of ADDDIII, where A is the broad area, DDD is the department code, and III is the person's initials. A user in the academic area,

department of chemistry, with the name of John Q. Public most likely would be assigned a userid of PCHMJQP. This userid and associated

password may be used to logon to a wide variety of mainframe applications. Changing the password in one application will change the

password for all applications since only one ACF2 userid is involved. The userid may only be used for applications for which it is explicitly

authorized. PCHMJQP, being a student, may have access to the TSO application, however it would not be authorized for any of the

administration applications.

TPX uses ACF2 for security, however has a different format for the userid. Instead it prompts for a username. Everyone at the University

has a unique username. This username is also used for non-mainframe related services, such as e-mail and remote access. It is usually

the first six characters of the user's last name, plus their first and middle initial. John Q. Public would most likely have a username of

publicjq. ACF2 is used to control the TPX display menu. Only authorized applications will be listed. Changing your TPX password will only

affect TPX. Other services that use the same username (such as Bearcat Online, Remote Access, & Exchange) will not be affected since

they are not mainframe based, therefore they do not use ACF2.

The CUFS mainframe application has it's own security and does not use ACF2.

Who do I call about: computer output, tape usage, data set recovery, and forms design?

To discuss XEROX laser printer forms design or modifications please contact:

Direct Access Storage Coordinator at 556-0018 or 556-0037.

Where do I put my data sets?

Rules are established in the Dr. Quack program that permits data sets to be placed on selected disk packs (a single pack or one of a group

of packs). Call Direct Access Storage Coordinator at 556-0018 or 556-0037 to find out where your data sets are authorized to reside.

Why did DRQUACK take my data set?

Dr. Quack rules establish where data sets can reside. Put the data set on the wrong pack and Dr. Quack will archive it. Additionally, some

users have time limits for how long data sets remain on the system. Usual time limits are 90, 120 or 180 days.

My data set disappeared? (MrClean)

There are two ways that a data set can disappear: One is the program DRQUACK that reviews disk space usage each morning and has

the capability to remove a data set because of over allocation of assigned space by the user. The other is a daily work pack cleanup that

will delete data created on a different Julian date. These data sets are un-cataloged and deleted. Work packs are not used for long term or

permanent storage and the data removed from these packs cannot be recovered.

How do I get a damaged or lost data set restored?

Call the Help Desk at 556-3785 for assistance.

How long is a data set archived for?

Archived data is usually retained for one year from the date that it was removed by the archival job.

How do I submit my tape for use on the mainframe computer?

Obtain a tape submittal card; complete the card; and bring both the card and tape to UCit computer operations at G95 MSB.

How do I get my personal magnetic tape initialized?

Obtain a tape submittal card by coming to G95MSB or calling 556-0037 to obtain cards. Complete the card and submit with the tape to

G95MSB. The staff will initialize the tape and notify you when it is ready for use.

Can I remove data that has been stored on a tape?

When data is stored on a computing center “scratch” tape it can be copied to a personal tape that has been submitted. A new tape usually

requires initialization. Contact UCit Computer Operations at 556-0037 for more information.

Where can I pick up Exam Grading output?

The Exam Grading has moved to 410 Zimmer. However, exam output, for East campus customers, can be claimed at the UCit Computer

Operations at G95MSB. Contact UCit Computer Operations at 556-0037 for more information.

Where can I submit an exam to be processed?

Exams for users on the East Campus may be dropped off at G95MSB, Computer Operations for delivery to the Exam Grading Department

at 410 Zimmer for processing. They will be returned to Computer Operations, after completed, for pick up.

Who can help me with my program that keeps failing?

To obtain help on a failing program, call the Help Desk at 63785.

I have forgotten my password, can you help me?

If you have forgotten your password, call the Help Desk at 556-3785.

What is ACF2?

Access Control Facility 2 (ACF2) is the security package protecting information on the mainframe. When you fill out the Mainframe Access

Request Form, the security team tells ACF2 to recognize you as a person who can have access to specific mainframe information.

What is the Username?

This ID is assigned to you when you come to UC. The ID is usually a combination of the first 6 characters of your last name, the first initial

of your first name and the first initial of your middle name (which is how it came to be known as the 6+2). This ID remains consistent across

all systems such as Bearcat Online, TPX, e-mail and internet access.

What is the Userid?

You may also know this logonid as a 1+3+3. This is the logonid used to access specific mainframe applications such as UniverSIS, HRS or

TSO. This userid may have a password unique to each system being accessed.

How do I get access to UniverSIS?

Try visiting the UniverSIS Access page.

If I submit a Request for Mainframe Access, how long will it take and how will I be notified?

If a request is submitted online, it will take less time than if submitted by mail. In either case, you should allow 3 business days from the

time the request is received by security for the request to be processed. A letter will be mailed to you with your accounts and initial

password. If a request is submitted online, it cannot be processed until both your acceptance of the User Agreement and the Budget

Number supplied by your manager are received by security.