IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

New DD-Name which uses U-TS as prefix


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
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
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
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 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
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
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts Substring number between 2 characters... DFSORT/ICETOOL 2
No new posts XML Parsing in COBOL creating "h... COBOL Programming 0
No new posts No TSO prefix doesn't get the input CLIST & REXX 4
No new posts "Prefix not in table" error... DB2 1
No new posts Profile prefix for a user id TSO/ISPF 12
Search our Forums:

Back to Top