命令行输入3.2
Menu Utilities Compilers Options Status Help
ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss
ISPF Primary Option Menu
0 Settings Terminal and user parameters User ID . : KOK
1 View Display source data or listings Time. . . : 08:25
2 Edit Create or change source data Terminal. : 3278
3 Utilities Perform utility functions Screen. . : 1
4 Foreground Interactive language processing Language. : ENGLISH
5 Batch Submit job for language processing Appl ID . : ISP
6 Command Enter TSO or Workstation commands TSO logon : SYSUSER
7 Dialog Test Perform dialog testing TSO prefix: KOK
9 IBM Products IBM program development products System ID : ADCD
EssssssssssssssssssssssssssssssssssssssssssssssN r MVS acct. : 12345678
e Licensed Materials - Property of IBM e Release . : ISPF 5.6
e 5694-A01 (C) Copyright IBM Corp. 1980, 2004. e
e All rights reserved. e ands
e US Government Users Restricted Rights - e
e Use, duplication or disclosure restricted e
e by GSA ADP Schedule Contract with IBM Corp. e
DssssssssssssssssssssssssssssssssssssssssssssssM s
Option ===> 3.2
F1=Help F2=Split F3=Exit F7=Backward F8=Forward F9=Swap
F10=Actions F12=Cancel
命令上输入A Allocate new data set
Menu RefList Utilities Help
ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss
Data Set Utility
A Allocate new data set C Catalog data set
R Rename entire data set U Uncatalog data set
D Delete entire data set S Short data set information
blank Data set information V VSAM Utilities
ISPF Library:
Project . . KOK Enter "/" to select option
Group . . . COBOL / Confirm Data Set Delete
Type . . . . LIB
Other Partitioned, Sequential or VSAM Data Set:
Data Set Name . . .
Volume Serial . . . (If not cataloged, required for option "C")
Data Set Password . . (If password protected)
Option ===> A
F1=Help F2=Split F3=Exit F7=Backward F8=Forward F9=Swap
F10=Actions F12=Cancel
分配空间
Menu RefList Utilities Help
ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss
Allocate New Data Set
More: +
Data Set Name . . . : KOK.COBOL.LIB
Management class . . . (Blank for default management class)
Storage class . . . . (Blank for default storage class)
Volume serial . . . . (Blank for system default volume) **
Device type . . . . . (Generic unit or device address) **
Data class . . . . . . (Blank for default data class)
Space units . . . . . (BLKS, TRKS, CYLS, KB, MB, BYTES
or RECORDS)
Average record unit (M, K, or U)
Primary quantity . . 10 (In above units)
Secondary quantity 10 (In above units)
Directory blocks . . 5 (Zero for sequential data set) *
Record format . . . . FB
Record length . . . . 80
Block size . . . . . 8000
Data set name type : (LIBRARY, HFS, PDS, or blank) *
Command ===>
F1=Help F2=Split F3=Exit F7=Backward F8=Forward F9=Swap
F10=Actions F12=Cancel
按下回车后右上角出现Data set allocated
Menu RefList Utilities Help
ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss
Data Set Utility Data set allocated
A Allocate new data set C Catalog data set
R Rename entire data set U Uncatalog data set
D Delete entire data set S Short data set information
blank Data set information V VSAM Utilities
ISPF Library:
Project . . KOK Enter "/" to select option
Group . . . COBOL / Confirm Data Set Delete
Type . . . . LIB
Other Partitioned, Sequential or VSAM Data Set:
Data Set Name . . .
Volume Serial . . . (If not cataloged, required for option "C")
Data Set Password . . (If password protected)
Option ===>
F1=Help F2=Split F3=Exit F7=Backward F8=Forward F9=Swap
F10=Actions F12=Cancel
F3退回到上一菜单，命令行输入3.4
Menu Utilities Compilers Options Status Help
ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss
ISPF Primary Option Menu
0 Settings Terminal and user parameters User ID . : KOK
1 View Display source data or listings Time. . . : 08:43
2 Edit Create or change source data Terminal. : 3278
3 Utilities Perform utility functions Screen. . : 1
4 Foreground Interactive language processing Language. : ENGLISH
5 Batch Submit job for language processing Appl ID . : ISP
6 Command Enter TSO or Workstation commands TSO logon : SYSUSER
7 Dialog Test Perform dialog testing TSO prefix: KOK
9 IBM Products IBM program development products System ID : ADCD
10 SCLM SW Configuration Library Manager MVS acct. : 12345678
11 Workplace ISPF Object/Action Workplace Release . : ISPF 5.6
S SDSF SDSF Panels
D DB2 DB2 Product, SPUFI and DB2 Commands
A DB2ADM DB2 Administration Tools
M More Additional IBM Products
Enter X to Terminate using log/list defaults
Option ===> 3.4
F1=Help F2=Split F3=Exit F7=Backward F8=Forward F9=Swap
F10=Actions F12=Cancel
DSNAME LEVEL上输入你的ID
Menu RefList RefMode Utilities Help
ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss
Data Set List Utility
More: +
blank Display data set list P Print data set list
V Display VTOC information PV Print VTOC information
Enter one or both of the parameters below:
Dsname Level . . . kok
Volume serial . .
Data set list options
Initial View . . . 1 1. Volume Enter "/" to select option
2. Space / Confirm Data Set Delete
3. Attrib / Confirm Member Delete
4. Total / Include Additional Qualifiers
/ Display Catalog Name
When the data set list is displayed, enter either:
"/" on the data set list command field for the command prompt pop-up,
an ISPF line command, the name of a TSO command, CLIST, or REXX exec, or
Option ===>
F1=Help F2=Split F3=Exit F7=Backward F8=Forward F9=Swap
F10=Actions F12=Cancel
你的DATA SET已经建立好了
Menu Options View Utilities Compilers Help
ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss
DSLIST - Data Sets Matching KOK Row 1 of 5
Command - Enter "/" to select action Message Volume
-------------------------------------------------------------------------------
KOK *ALIAS
KOK.COBOL.LIB USR002
KOK.ISPF.ISPPROF USR005
KOK.JCL.CNTL USR004
KOK.SPFLOG1.LIST USR004
***************************** End of Data Set list ****************************
Command ===> Scroll ===> PAGE
F1=Help F2=Split F3=Exit F5=Rfind F7=Up F8=Down F9=Swap
F10=Left F11=Right F12=Cancel
因为建立的是一个分区文件，所以我们需要在里面创建MEMBER，类似WIN里面先建立一个文件夹，然后在建立一个记事本文件，在命令行输入START 2 另开一个分屏
Menu Options View Utilities Compilers Help
ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss
DSLIST - Data Sets Matching KOK Row 1 of 5
Command - Enter "/" to select action Message Volume
-------------------------------------------------------------------------------
KOK *ALIAS
KOK.COBOL.LIB USR002
KOK.ISPF.ISPPROF USR005
KOK.JCL.CNTL USR004
KOK.SPFLOG1.LIST USR004
***************************** End of Data Set list ****************************
Command ===> start 2 Scroll ===> PAGE
F1=Help F2=Split F3=Exit F5=Rfind F7=Up F8=Down F9=Swap
F10=Left F11=Right F12=Cancel
你刚刚建立的DATA SET名字，起个member名
Menu RefList RefMode Utilities Workstation Help
ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss
Edit Entry Panel
ISPF Library:
Project . . . kok
Group . . . . cobol . . . . . . . . .
Type . . . . lib
Member . . . hellw (Blank or pattern for member selection list)
Other Partitioned, Sequential or VSAM Data Set:
Data Set Name . . .
Volume Serial . . . (If not cataloged)
Workstation File:
File Name . . . . .
Options
Initial Macro . . . . Confirm Cancel/Move/Replace
Profile Name . . . . . Mixed Mode
Format Name . . . . . Edit on Workstation
Data Set Password . . Preserve VB record length
Command ===>
F1=Help F2=Split F3=Exit F7=Backward F8=Forward F9=Swap
F10=Actions F12=Cancel
OK，成功，以后的程序都在这里写了
File Edit Edit_Settings Menu Utilities Compilers Test Help
sssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss
EDIT KOK.COBOL.LIB(HELLW) - 01.00 Columns 00001 00072
****** ***************************** Top of Data ******************************
==MSG> -Warning- The UNDO command is not available until you change
==MSG> your edit profile using the command RECOVERY ON.
''''''
''''''
''''''
''''''
''''''
''''''
''''''
''''''
''''''
''''''
''''''
''''''
''''''
''''''
''''''
Command ===> Scroll ===> PAGE
F1=Help F2=Split F3=Exit F5=Rfind F6=Rchange F7=Up
F8=Down F9=Swap F10=Left F11=Right F12=Cancel