Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

New DD-Name which uses U-TS as prefix

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
srinathangya

New User


Joined: 19 Dec 2005
Posts: 77

PostPosted: Thu Nov 23, 2006 1:53 pm    Post subject: New DD-Name which uses U-TS as prefix
Reply with quote

Hi Guys,

In general for identifying the ESDS dataset in COBOL program in file section we used to prefix the file name with a or s i.e

Select abc assign to a-dd1(may be s-dd1)

But in my company today I found a program which uses U-TS as prefix
i.e
Select abc assign to U-TS-DD1

And in JCL
they have used only DD1
i.e
//DD1 dd dsn=

So I thought this U-TS is conveying some thing.. So let me know what kind of file is this.

Am I clear in what I asked?? :-(

Reg,
Srinath.
Back to top
View user's profile Send private message

shreevamsi

Active User


Joined: 23 Feb 2006
Posts: 305
Location: Hyderabad,India

PostPosted: Thu Nov 23, 2006 2:07 pm    Post subject: Re: New DD-Name
Reply with quote

hi,

You are talking abt COBOL Assign clauses.

We used to give UT-S-name in the ASSIGN clause on a SELECT statement under FILE-CONTROL. in the INPUT-OUTPUT SECTION in our program.

IBM mainframe COBOL: In the ASSIGN clause on a SELECT statement under FILE-CONTROL. in the INPUT-OUTPUT SECTION., There is significance to the "UT-" and "S-".

For Eg an IO file UT-S-INPUT which is coded in the ?SELECT? statement in a Cobol program. But the same IO file in JCL is referred with the DDname INPUT only.

How does MVS identify this as INPUT for UT-S-INPUT.

What is the Understanding between the two??

First Let us start with SYNTAX of ASSIGN Clause in COBOL.

Can be specified as a user-defined word or a nonnumeric literal. Any assignment-name after the first is syntax checked, but it has no effect on the execution of the program.

1. SYNTAX:

Assignment-name-1 has the following formats:



___ Format--QSAM file __________________________________________________

| |

| >>__ _________ __ _____ __name______________________________________>< |

| |_label- _| |_S- _| |

| |

|________________________________________________________________________|

___ Format--VSAM sequential file _______________________________________

| |

| >>__ _________ __AS- __name_________________________________________>< |

| |_label- _| |

| |

|________________________________________________________________________|

| ___ Format--Line-sequential, VSAM indexed or VSAM relative file ________

| | |

| >>__ _________ __name_______________________________________________>< |

| |_label- _| |

| |

|________________________________________________________________________|

label- Documents the device and device class to which a file is assigned. If specified, it must end with a hyphen.

S- For QSAM files, the S- (organization) field can be omitted.

AS- For VSAM sequential files, the AS- (organization) field must be specified.

For VSAM indexed and relative files, the organization field must be omitted.

Name: A required field that specifies the external name for this file.

2. Class Indicator.

From the old "Fundamentals of COBOL Programming" by Carl Feingold, the Class Indicator can be and have the following meanings:

UR = Unit Record - card reader, card punch, printer

UT = Utility - Tape or Disk or Drum or Cell (note: if UT and Disk or Tape, organization must be S)

DA = Direct Access - Disk, Drum or Cell (note: organization indicator must be I or D).

Assuming an OS/390, z/OS, or VM environment, see http://publib.boulder.ibm.com/cgi-bin/bookmgr/BOOKS/igylr205/4.2.3.1 for what is and is not "meaningful" in currently supported IBM mainframe compilers.

In olden days there were disk drives, tapes were "utility devices". It applies more to the "old days" and is probably not so relevant or necessary now...

The concept of a UTILITY device changed when the first 2311s arrived, but COBOL supported either tape or disk as Utility.

The "DA" was for "Direct Access" and that meant "non-sequential" and therefore could NOT be a UTILITY device.

The "UR" meant "Unit Record" which really meant "unblocked" (early printers and punch card readers/punches accepted a single "record"). It was only later when we started spooling print to disk that print files became "blocked", but COBOL still allowed them to be treated as "unit record" (as it does to this day...).

DA (mass storage)

UT (utility)

UR (unit-record)

~Vamsi
Back to top
View user's profile Send private message
srinathangya

New User


Joined: 19 Dec 2005
Posts: 77

PostPosted: Thu Nov 23, 2006 2:12 pm    Post subject:
Reply with quote

Thanks a lot Vamsi..the information U provided is really good...

ThanQ
Srinath.
Back to top
View user's profile Send private message
vijay_bn79

New User


Joined: 20 Nov 2006
Posts: 48
Location: Hyderabad

PostPosted: Fri Nov 24, 2006 5:09 pm    Post subject: Re: New DD-Name which uses U-TS as prefix
Reply with quote

In the program we can assign like this

Select abc assign to U-TS-DD1

But JCL dont accept '-', it may give syntax error
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts No TSO prefix doesn't get the input boyti ko CLIST & REXX 4 Thu Apr 28, 2016 3:31 pm
No new posts "Prefix not in table" error... Soumick Sarkar DB2 1 Mon Nov 11, 2013 11:04 am
No new posts Profile prefix for a user id Pedro TSO/ISPF 12 Thu Feb 24, 2011 4:07 pm
No new posts Prefix of Datacom return code seman18 CA Products 4 Fri Dec 31, 2010 9:07 am
No new posts command to know the prefix Pedro TSO/ISPF 19 Wed Jun 02, 2010 12:52 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us