[UNDLogo]

Welcome to TSO Copy File


Copy One DS File into Another DS File

Copy One File Into Another File


To copy one file into another file:

1. Option 2 Edit from the ISPF Primary Option Menu. Select the member into which you would like lines of a file copied.

Member ELMER2

Edit Entry Panel

Command ===>

ISPF Library:

Project . . . WYL

Group . . . . PUB . . . . . .

Type . . . . PARMCARD

Member . . . ELMER2



2. At the command line, type in the word COPY

In the line numbers column, place an a on the line you would like the added lines to follow, Or a b on the line you would like the added lines before.

Command ===> COPY

PRESS ENTER

EDIT WYL.PUB.PARMCARD(ELMER2) - 01.01 Columns 00001 0

Command ===> COPY Scroll ===>

****** ***************************** Top of Data *************************

==MSG> -Warning- The UNDO command is not available until you change

==MSG> your edit profile using the command RECOVERY ON.

000001 //USRMK4 JOB (0790010,366G),'MORLOCK ',CLASS=A,TIME=1,MSGCLASS=Q

000002 //STEP1 EXEC SAS,PRNTA=Q

000003 OPTIONS LS=132 MISSING=' ' NOSOURCE NOSOURCE2 NONOTES NODATE;

000004 DATA;

000005 INPUT ELMER $ 1-80;

000006 CARDS;

000007 WYLBUR IS SICK.

000008 FIRST HE LOST HIS MAIL PARTS

000009 NOW WILBUR IS LOOSING IT ALL.

000010 ;

A00011 PROC PRINT;

000012 /*

000013 //



3. An Edit/View - Copy screen will come up. Type in the member name you want the lines copied from - at the bottom of the screen, key in the first line you want copied, and the last line you want copied, and the number type is RELATIVE

Member ELMER3

First line . . . . 1

Last line . . . . . 4

Number type . . . . RELATIVE

PRESS ENTER
Edit/View - Copy Requested line(s) copied

Command ===>

"Current" Data Set: WYL.PUB.PARMCARD(ELMER2)

From ISPF Library:

Project . . . WYL

Group . . . . PUB . . . . . .

Type . . . . PARMCARD

Member . . . ELMER3 (Blank or pattern for

From Other Partitioned or Sequential Data Set:

Data Set Name . .

Volume Serial . . (If not cataloged)

Data Set Password . . (If password protecte

Line Numbers (Blank for ent1ire member or seq. data se

First line . . . . 1

Last line . . . . . 4

Number type . . . . RELATIVE (Standard, ISPFstd, C





4. A screen with a message in the upper right hand corner will be displayed showing the member name that was copied.
EDIT WYL.PUB.PARMCARD(ELMER2) - 01.04 Member ELMER3 copied

Command ===> Scroll ===> CSR

****** ***************************** Top of Data***************************

==MSG> -Warning- The UNDO command is not available until you change

==MSG> your edit profile using the command RECOVERY ON.

000001 //USRMK4 JOB (0790010,366G),'MORLOCK ',CLASS=A,TIME=1,MSGCLASS=Q

000002 //STEP1 EXEC SAS,PRNTA=Q

000003 OPTIONS LS=132 MISSING=' ' NOSOURCE NOSOURCE2 NONOTES NODATE;

000004 DATA;

000005 INPUT ELMER $ 1-80;

000006 CARDS;

000007 WYLBUR IS SICK.

000008 FIRST HE LOST HIS MAIL PARTS

000009 NOW WILBUR IS LOOSING IT ALL.

000010 ;

000011 PROC PRINT;

000012 TITLE1 ' one for the money ' ;

000013 title2 ' two for the show ' ;

000014 title3 ' three to get ready ' ;

000015 title4 ' four to go with TSO ' ;

000016 /*

000013 //



5. Done!!