實(shí)用技術(shù)08設(shè)計(jì)與案例

1、z/OS 實(shí)用技術(shù)ISPF/PDFPANEL設(shè)計(jì)與案例黃小平說(shuō)明：本人寫這個(gè)課件資料，只是憑據(jù)多年工作經(jīng)驗(yàn)的一些體會(huì)，不具完整性，肯定也存在謬誤，但可具有實(shí)用性的參考價(jià)值！黃小平 2012.2.29什么是 ISPF/PDFISPF是在TSO環(huán)境下開發(fā)的一個(gè)系統(tǒng)，是為交互式應(yīng)用提供服務(wù)的會(huì)話管理器。 ISPF在不同的主機(jī)（MVS、VM、VSE）系統(tǒng)環(huán)境中提供會(huì)話處理的和服務(wù)。它以交互式的會(huì)話處理方式向終端用戶提供了一系列的菜單功能與Utility，大大方便了用戶在TSO環(huán)境下的工作。PDF是一個(gè)幫助終端用戶在交互式環(huán)境下開發(fā)不同會(huì)話應(yīng)用的工具，其目的是在一個(gè)交互環(huán)境中增強(qiáng)程序員的開發(fā)功能與效率。

2、PDF幫助程序員最 大化地簡(jiǎn)化公共編程任務(wù)，避免乏味與復(fù)雜性地操作，它既可以結(jié)構(gòu)化、 也可以使用傳統(tǒng)的編程技術(shù)來(lái)實(shí)施。ISPF是為PDF和其它交互式應(yīng)用提供服務(wù)的基本，而 PDF是在ISPF的和服務(wù)下以會(huì)話方式運(yùn)行。ISPF/PDF什么是 PDF什么是 ISPFHost System Services（MVS/TSO，VM，VSE）ISPFDialog Management ServicesApplication ADialogsISPF EnvironmentUserUser Application CUserApplication BProgram DevelopmentFacilityI

3、SPF會(huì)話管理功能Dialog Management Function一個(gè)ISPF會(huì)話管理主要包括：Selection Panelss_ 面板的菜單選擇Function commands or programs_ 命令/ 程序的功能Data entry Panels_ 數(shù)據(jù)輸入屏幕Selection PanelDialog FunctionSelection PanelSelection PanelData Entry PanelsDialog FunctionData Entry PanelsDialog Starting with a Selection PanelUtilities Co

4、mpilers Options Status HelpRefList RefMode Utilities Help-Selection-ISPF Primary OptionPanel _1Data Set List UtilityOption =>3.4Option =>012345679Settings View Edit UtilitiesForeground Batch Command Dialog Test IBM ProductsTerminal and user parameters Display source data or listings Create or

5、change source data Perform utility functions Interactive language processing Submit job for language processing Enter TSO or Workstation commands Perform dialog testingIBM program development products SW Configuration Library Manager ISPF Object/Action Workplace Additional IBM ProductsUser ID . : Ti

6、me. . . : Terminal. : Screen. . : Language. : Appl ID . : TSO logon : TSO prefix: System ID : MVS acct. : Release . :XP99 10:4832781ENGLISH ISR ISPFPROCblank Display data set listV Display VTOC informationP Print data set list PV Print VTOC informationEnter one or both of the parameters below:Select

7、ion Panel_ 2Dsname Level . . . XP99 Volume serial . .Data set list optionsInitial View . . . 11. Volume2. Space3. Attrib4. TotalEnter "/" to select optionP390 ACCT#ISPF 5.5/Confirm Data Set Delete Confirm Member Delete Include Additional Qualifiers Display Catalog Name10 SCLM11 Workplace M

8、 MoreWhen the data set list is displayed, enter either:"/" on the data set list command field for the command prompt pop-up,Options View Utilities Compilers Help-E-n-t-e-r-X-t-o-T-e-r-m-i-n-a-t-e-u-s-i-n-g-l-o-g-/-l-i-s-t-d-e-f-a-u-l-t-s-EDITXP99.CLaInSTI(STPEFSTl4i)ne- c0o1m.m1a7nd, the n

9、ame of a TSO coCmomlaunmdn,s C0L0I0S0T1, 0o0r07R2EXX exec, orDSLIST - Data Sets Matching XP99Row 1 of 10Command =>Scroll => CSR"=" to execute the previous command.Command =>Scroll => CSR* * Top of Data *000001 PROC 0Command - Enter "/" to select actionMessageVolume000

10、002 CONTROL NOLIST NOPROMPT NOMSG NOCONLIST-000003 SUB: SUBMIT * END(XX)XP99.CLIST XP99.DISP XP99.DITPROF XP99.HCD.MSGLOG XP99.HCD.TERM XP99.HCD.TRACE XP99.ISPF.ISPPROF XP99.LOAD XP99.SDSFOUTTLIODFVL000004 /&SYSUID.L JOB 1,HXP,CLASS=A,MSGLEVEL=(1,1),MSGCLASS=ASelection Panel_ 3WORK01000005 /LIST

11、C EXEC PGM=IEHLISTTSO002000006 /DD1 DD UNIT=SYSDA,VOL=SER=TSO001,DISP=SHRTSO001Data Entry Panels000007 /SYSPRINT DD DSN=VTOC.LIST,DISP=SHRTSO002000008 /SYSIN DD DSN=XP99.CLIST(LISTV),DISP=SHRTSO002000009 XXOS39M1000010SET &NU = 99999USER01000011 LOP: SET &NU = &NU - 1TSO001000012IF &

12、NU NE 0 THEN GOTO LOPTSO002000013 ISPEXEC BROWSE DATASET('VTOC.LIST') VOLUME(TSO001)* End of Data Set list *000014 END* * Bottom of Data *DialogStarting with a FunctionSTARTDisplayDialog FunctionData Entry PanelsData Entry PanelsSelectSelection PanelSelection PanelSelection PanelDialog Funct

13、ionDialog FunctionDialog FunctionSelection PanelSelectSelectISPF的調(diào)用是通過(guò)ISPSTART 命令或定義一個(gè) ALIAS別名來(lái)實(shí)現(xiàn)的（鍵字參數(shù)用于定義第一個(gè)菜單顯示或得到接收的第一個(gè)會(huì)話功能）.一個(gè)會(huì)話所含的要素Element of a Dialog一個(gè)會(huì)話包括：Panel Definition_ 菜單定義FunctionMessage_ 功能_ 信息File Tailoring Skeletons_ 文件骨架裁剪Tables_ 表格 選擇面板（Selection Panel or 數(shù)據(jù)輸入屏幕（Data Entry Panel）

14、 表格顯示（Table Display Panel）_ 如在一個(gè)PO中對(duì)member的選擇 僅顯示信息的屏幕（Information Only Panel）_ 如指南性的Tutorial）PDF有五種基本面板類型：* Selection Panels(s)* Data entry Panels* Member Selection lists* Data Display Panels* Table Display PanelsPANEL Definitions_面板定義/*/* ALLOCATE ISPPLIB DATASETS*/*/ALLOCFI(ISPPLIB)SHRDA( +'C

15、ENTER.ISPPLIB'. 'SYS1.DGTPLIB' 'DFSORT.SICEPENU' 'FFST.SEPWPENU' 'GDDM.SADMPNL' 'SYS1.SCBDPENU' 'ICSF.SCSFPNL0' 'ISP.SISPPENU' 'SYS1.SHASPNL0' 'RMF.SERBPENU' 'ISF.SISFPLIB' 'SYS1.HRFPANL' 'GIM.SGIMPENU

16、9; 'ICQ.ICQPLIB'.'TCPIP.SEZAPENU')/*LOCAL*/+/*/*/*/*/*/*/*/*/*/*/*/*/*DFSMS DFSORT FFST GDDM HCD ICSF ISPF JES2 RMF SDSF RACF SMP/ETSO/E*/*/*/*/*/*/*/*/*/*/*/*/*/+/*TCPIP*/PANELDefinitions Data set)INIT.)ABCINIT.ZVARS=UTILHELP)BODY CMD(ZCMD)Help.ZVARS = '(ZCMD).HELP = ISR30000.AT

17、TR(ZCMD)='PADC(USER)PROC&ZCMDWRK = &Z-IF (&ZCMD = &Z)Utility Selection Panel&ZCMDWRK = TRUNC(&ZCMD,'.')Option => Z SAREA39)AREA SAREA39&ZTRAIL=.TRAILIF (&ZCMDWRK =&Z)Compress or print data set. Print index list.iMnSgG.=PrIiSnRtU0001Libraryrename, de

18、lete, browse, edit or view m&eZmSbEeLrs =TRANS (TRUNC (&ZCMD,'.')2Data SetAllocate, rename, delete, catalog, uncatal1o,g',PGoMr(IdSiRsUpDlAa)yPARM(ISRUDA1) SCRNAME(LIBUTIL)information of an entire data set Move, or copy members or data sets Print or display (to process) list ofPr

19、int or display VTOC information2,'PGM(ISRUDA)3,'PGM(ISRUMC)PARM(ISRUDA2) SCRNAME(DSUTIL) SCRNAME(MCOPY)PARM(ISRUDLP) SCRNAME(DSLIST)SCRNAME(RESET)34Move/CopyDslistdata4,s'ePtGMn(aImSeRsU.DL)5,'PGM(ISRURS)5678911121314151617ResetReset statistics for members of ISPFlibra6r,y'PGM(IS

20、RUHC)SCRNAME()Initiateoutput7,'PANEL(ISPUDL) SCRNAME(DOWNLOAD)Transfer Outlist Commands Format SuperC Supermen Search-For Search-ForE TablesUdlistDownload ISPF Client/Server orDisplay, delete, or print heldTransfer da8t,a'PsGeMt(ISRUOLP) SCRNAME(OUTLIST)job output 9,'PANEL(ISPUCMA)ADDPOP

21、 SCRNAME(CMDTABLE)Create/change an application command Format definition for formatted data Compare data setsCompare data sets Extendedtabl1e1,'PGM(ISRFMT) SCRNAME(FORMAT)Edit1/2B,r'oPwGsMe(ISRSSM) SCRNAME(SUPERC)13,'PG(MS(tIaSnRdSaErPdRM) SCRNAME(SUPERCE) NOCHECK14,'PGM(EIxStReSnFdM

22、e)dSCRNAME(SRCHFOR)15,'PG(MS(tIaSnRdSaErPdRM) PARM(S4) SCRNAME(SRCHFORE) NOCHECKSearch data sets for Search data sets for ISPF Table UtilityPrint or display (tostrings ofstrings ofdatadataExte1n6d,e'dPG(ME(xItSeRnUdTeAdBL) NEWPOOL SCRNAME(TBLUTIL)17,'PGM(ISRUUDL) PARM(isruudlp) SCRNAME(U

23、DLIST)'process) z/OS UNIX .d.irectory listPANEL Definitions例：主菜單面板定義ISP.SISPPENU(ISRUTIL) FUNCTION可以是一個(gè)CLIST命令序列，也可以是一個(gè)程序，它執(zhí)行用戶所要求的工作。 一個(gè)函數(shù)可以用CLIST來(lái)編寫，也可以用 PL/I、COBOL、FORTRAN、ASM (匯編)來(lái)編寫，以前臺(tái)方式運(yùn)行。 每個(gè)函數(shù)可以由上述不同的語(yǔ)言書寫成裝入模塊。如在CLIST的書寫中，調(diào)用COBOL/FORTRAN等模塊。用戶可以用調(diào)用 FUNCTION 來(lái)為自已服務(wù)，例： 在CLIST / REXX中，使用 IS

24、PEXEC：ISPEXEC DISPLAY PANEL(XYZ)XYZ是用戶設(shè)計(jì)的一個(gè)屏幕 調(diào)用一個(gè)程序，如在FORTRAN程序中書寫為：ISPLINK(DISPLAY, PRG)PRG是一個(gè)程序FUNCTION（or Dialog Fuction）/*/* ALLOCATE SYSEXEC DATASETS*/*/ALLOCFI(SYSEXEC)SHRDA( +'SYS1.SBPXEXEC' 'BOOKMAN.SEOYCLIB' 'FFST.SEPWSRC1' 'ISP.SISPEXEC' 'ISF.SISFEXEC&#

25、39; 'DCE.SEUVEXEC' 'DFS.SIOEEXEC' 'INFOPRT.SAOPEXEC' 'LDAP.SGLDEXEC')/*/*/*/*/*/*/*/*/*OMVSBOOKMAN FFST ISPF SDSF DCE DFSINFOPRINTLDAP*/*/*/*/*/*/*/*/*/+FUNCTIONData Setarg dsname format .rc=listdsi(dsname)If rc=0 Then 'ALLOC REU F(ISPMLIST) DA('''sysd

26、sname''') SHR'If rc=0 Then DoSay 'Dsname:'sysdsname' Volume:'sysvolume'Unit:' sysunit'ALLOC F(SYSPRINT) REUSE SP(10,50) TRACKS NEW DEL DSO(PS)LRECL(121)BLK(4840) RECFM(F B) RELEASE''ALLOC F(SYSIN) REUSE SP(1) TRA NEW DEL DSO(PS) RECF(F) LREC(80)

27、9;if substr(format,1,1)='F' then fmt=',FORMAT' else fmt=',DUMP' cmd.1=' LISTPDS DSNAME='sysdsname',VOL='sysunit'='sysvolume|fmt cmd.2=' LISTVTOC DSNAME='sysdsname',VOL='sysunit'='sysvolume|fmt'EXECIOAddress 'SELECT '

28、LMINIT 'BROWSE 'LMFREEaddressEnd2 DISKW SYSINispexec PGM(IEHLIST)' DATAID(HLIST)(FINIS STEM CMD.'FUNCTION例：IEHLIST功能ISP.SISPEXEC(ISPMLIST)DDNAME(SYSPRINT)'DATAID('hlist')'DATAID('hlist')'tso 'FREE F(SYSIN ISPMLIST SYSPRINT)'else say 'Error allo

29、cating <'dsname'>' 用戶提示信息，如出錯(cuò)報(bào)告等。 信息是按信息（消息）號(hào)進(jìn)行顯示的，所以只需對(duì)信息號(hào)進(jìn)行修改，很方便。 注意，信息的修改是容易的，但對(duì)整個(gè)會(huì)話的變更則是相對(duì)復(fù)雜的。Message Definitions/*/* ALLOCATE ISPMLIB DATASETS*/*/ALLOCFI(ISPMLIB)SHRDA( +'CENTER.ISPMLIB'. 'CBC.SCBCIMG'/*LOCAL*/+/*/*/*/*/*/*/*/*/*/*C+DFSMS DFSORT GDDM HCD ICSF

30、ISPF RMF SDSF RACF*/*/*/*/*/*/*/*/*/*/+'SYS1.SEDG'DFSORT.SICE 'GDDM.SADMMSG' 'SYS1.SCBD''''ICSF.SCSFMSG0''ISP.SISP'RMF.SERB'''ISF.SISFMLIB''SYS1.HRFMSG'. 'TCPIP.SEZA')/*TCPIP*/Message Data SetISPA001'Allocation error

31、 message' .TYPE=N NOKANA'ISPF system data s'continue.'location error - press Enter to ' +ISPA002'List allocate err msg' .TYPE=N NOKANA'List file allocation error - ISPF will operate without a list'data set.''+ISPA003'Log allocate err msg' .TYPE=N N

32、OKANAwill operate without'Log file allocation error - ISPF'data set.'alog'+ISPA004'LISTX allocate err msg' .TYPE=N NOKANA'Temporary listing data set cannot be allocated.'ISPA005'CNTLX allocate errmsgset msg' .TYPE=N NOKANAcannot be allocated.''Temporar

33、y control card dataISPA006'EDITX allocate err' .TYPE=NNOKANA'Edit backup data set cannotbeallocated.'' .TYPE=NISPA007'Open error messageNOKANAMessage Definitions 例：'Error trying to open ''&P7''.'/* 5694-A01 (C) COPYRIGHT IBM CORP 1982, 2003ISP.SISP

34、(I*S/PA00)生成，它是ISPF 表格由會(huì)話內(nèi)部的索引表格，一個(gè)二維數(shù)陣列。Tables 表格/*/* ALLOCATE ISPTLIB DATASETS*/*/ALLOCFI(ISPTLIB)SHRDA('&DSNAME' +'CENTER.ISPTLIB' 'SYS1.SBLSTBL0' 'SYS1.SBPXTENU' 'BOOKMAN.SEOYTENU' 'SYS1.DGTTLIB' 'DFSORT.SICETLIB' 'SYS1.SCBDTENU'

35、; 'ISP.SISPTENU' 'RMF.SERBT' 'RMF.SERBTENU' 'ISF.SISFTLIB' 'GIM.SGIMTENU' 'ICQ.ICQTABLS' 'TCPIP.SEZAPENU')/*/*/*/*/*/*/*/*/*/*/*/*/*/*LOCALIPCS OMVS BOOKMAN DFSMS DFSORT HCD ISPF RMF RMF SDSF SMP/E TSO/E TCPIP*/*/*/*/*/*/*/*/*/*/*/*/*/*/+TABLED

36、ata SetTABLE Definitions 例：ISP.SISPTENU(ISPKEYS).馮IR:. .&ISPKEYS .?.5 .?.n.".?.|.JPHILP?.TN.KEY1DEF. .KEY1LAB.KEY3DEF. .KEY4ATR.v.KEY6LAB.KEY8DEF.D.KEY1ATR.KEY3LAB.,.KEY5DEF. .KEY6ATR.KEY8LAB. .KEY2DEF.KEY3ATR. .KEY5LAB.N.KEY7DEF.KEY8ATR.B F RB F.9.KEY2ATR.KEY4LAB. .KEY6DEF.KEY7ATR.?.KEY9LA

37、B .%.KEY9ATR . .KEY10DEF.KEY10LAB.TR.z.KEY11DEF. .KEY11LAB.O.KEY11ATR. .KEY12DEF.AB.KEY12ATR.KEY13DEF.KEY13LAB. .KEY13ATR.EF.(.KEY14LAB. .KEY14ATR.'.KEY15DEF.b.KEY15LAB.TR. .KEY16DEF. .KEY16LAB. .KEY16ATR.X.KEY17DEF.AB.KEY17ATR.KEY18DEF.KEY18LAB.?.KEY18ATR.?EF.?.KEY19LAB.=.KEY19ATR.f.KEY20DEF. .

38、KEY20LAB.TR. .KEY21DEF.KEY21LAB.Y.KEY21ATR.0.KEY22DEF.AB.KEY22ATR.KEY23DEF.KEY23LAB.?.KEY23ATR.!EF.KEY24LAB.g.KEY24ATR.-. . . . .F. .M. .W..9.?.?). . . . .:.a.g. .m. .s.y.A.C.當(dāng)ISPF在執(zhí)行一個(gè)會(huì)話時(shí)，在CLIST中可以生成一個(gè)JCL作業(yè)，提交執(zhí)行之。Dialog Skeletons Output FileFile Tailoring Skeletons 文件(骨架) 剪裁/*/* ALLOCATE ISP

39、SLIB DATASETS*/*/ALLOCFI(ISPSLIB)SHRDA( +'CENTER.ISPSLIB' 'SYS1.SBLSKEL0' 'BOOKMAN.SEOYSENU' 'CBC.SCBCSKL' 'SYS1.DGTSLIB' 'DFSORT.SICESLIB' 'ICSF.SCSFSKL0' 'ISP.SISPSENU' 'ISP.SISPSLIB' 'ISF.SISFSLIB' 'SYS1.HRFSKEL&#

40、39; 'GIM.SGIMSENU' 'ICQ.ICQSLIB')/*/*/*/*/*/*/*/*/*/*/*/*/*LOCALIPCS BOOKMAN C+ DFSMS DFSORT ICSF ISPF ISPF SDSF RACF SMP/E TSO/E*/*/*/*/*/*/*/*/*/*/*/*/*/+Tailoring Skeletons Data Set)CM)CM)CM)CM)CM)CM)CM)CM)CM)CM)CM-SKELETON PROCFOR BATCH COBOL (OTHER SEQUENTIAL) - ALLOCATETHESEQUE

41、NTIAL OBJECTDATA SET -Tailoring Skeletons 例：ISP.SISPSLIB(ISRJS02S)$SEG(ISRJS02S)COMP(BATCH) PROD(MVS)CHANGE ACTIVITY$L0=$D1=$L2=COBOLIICOBOLII QUALITYM230M310 M320860602891107890606020136235501020136: DCR 173: PL/IOY08658 -870902 - Steplib statement causes MSGIEF212I.GT4045-SFG PGM=IEFBR14,COND=(12,

42、LE)/BR14/ALLOC/ALLOC./EXPANDEXECDDDDDSN=&ZDS.OBJ,DISP=(MOD,PASS),UNIT=SYSDA,SPACE=(TRK,(1,2)DSN=&ZDS.OBJ,DISP=(MOD,PASS),UNIT=SYSDA,SPACE=(TRK,(1,2)EXEC PGM=ISRLEMX,COND=(12,LE),/PARM=('COB, ,B,N, ,4, ,00,&ZJB2LANG,&ZJB2MMIX,&ZJB2DDIX','&ZJB2YYIX,&ZJB2DLIM,&am

43、p;Z5UNIT')/ISRLCODE/ISRLEXPDDD DSN=&ZDSQMEM,DISP=SHRDD UNIT=SYSDA,DISP=(NEW,PASS),SPACE=(CYL,(2,2),= &ZDSN=&&&&TEMP1)SEL&LID/ISRLMSG DD SYSOUT=(&BCLA)ENDSEL)SEL&LID = &Z/ISRLMSG DD SYSOUT=*)ENDSEL)CM)CM- COMPILE DATASET -Change region size for DCR173 from

44、512K to 640K/COBOLEXEC PGM=IGYCRCTL,REGION=640K,COND=(12,LE),PARM=(&BVCOBM,'&BVCOB')CM)CM)CMINSERTSYSTEM STEPLIBA STEPLIB DD CARD HERE IF MODULE IGYCRCTL IS NOT IN YOURLIBRARYDDDSN=P,DISP=SHR - removed for OY08658)SEL&LID= &Z/SYSPRINT DD)ENDSEL.SYSOUT=(&BCLA)會(huì)話機(jī)構(gòu)Organizat

45、ion of a DialogISPF提供了會(huì)話管理服務(wù)( Dialog ManagementServices )，它包括：Select_選擇Display _顯示Table _表格File tailoring _文件Variable_變量剪裁Selection PanelDialog FunctionSelection PanelSelection PanelData Entry PanelsDialog FunctionData Entry PanelsDialog Starting with a SelectionPanelSTARTDisplayDialog FunctionData

46、Entry PanelsData Entry PanelsSelectSelection PanelSelection PanelSelection PanelDialog FunctionDialog FunctionDialog FunctionSelection PanelSelectSelectDialog Starting with a FunctionDialog ManagementServices會(huì)話管理服務(wù)ISPSTARTCOMMANDVARIABLESERVICESD I A L O GPANEL LIBRARYISPFINITIALIZATIONDISPLAYSERVIC

47、ESMESSAGE LIBRARYSELECTSERVICETABLESERVICESDATA TABLESS E R V I C E SSKELETON LIBRARYFILE TAILORING SERVICESDIALOGFUNCTIONOUTPT FILESControl FlowData FlowLOGGINGSERVICESLOG FILEControl Flow Between ISPF Services and Libraries , Data Sets, or Files SELECT是一個(gè)通過(guò)ISPF來(lái)使用的工具，它同時(shí)也可以通過(guò)一個(gè)會(huì)話請(qǐng)求來(lái)完成一個(gè)服務(wù)。 當(dāng)一個(gè)用戶完成

48、一個(gè)初始化的ISPF應(yīng)用時(shí)（如logon或調(diào)用一個(gè)命令過(guò)程）， SELECT首先是通過(guò)初始化參數(shù)去選擇一個(gè)Panel。 當(dāng)SELECT是由一個(gè)會(huì)話功能來(lái)調(diào)用時(shí)，它可以啟動(dòng)一個(gè)新的面板層次的顯示，或者調(diào)用其它不具有顯示面板（菜單）的新的其它功能。SELECT Services一個(gè)會(huì)話去顯示信息，或者Display Services去解釋來(lái)自用戶的應(yīng)答。有三種顯示服務(wù)：DISPLAY _ 顯示一個(gè)面板（菜單），功能包括：- 初始化面板中的變量信息- 顯示（屏幕上的）帶有選擇信息的面板- 處理應(yīng)答、保存變量TBDISPL _ 顯示一個(gè)表格SETMSG _ 保存ISPF寫給終端的信息，顯示在下一個(gè)面板

49、上。DisplayServices建立會(huì)話變量集，以便利的TableServices格式進(jìn)行維護(hù)與存取。一個(gè)表格是一個(gè)二維的信息向量，其中每一列與一個(gè)會(huì)話參數(shù)相對(duì)應(yīng)，每一行包含了這些參數(shù)中的一個(gè)值。一個(gè)表可以是臨時(shí)的或的，一個(gè)臨時(shí)表生成在虛存中，當(dāng)處理完成后即被刪除。而一個(gè)性表將作為一個(gè)表庫(kù)（table library）的成員駐留在磁盤中。Table Services例如： EMPSER - Emplyee Serial Number LNAME - Last NameFNAME - First NameI- Middle InitialPHA- Home Phone：Area Code PH

50、NUM - Home Phone：Local Number設(shè)計(jì)的TABLE：EMPERLNAMEFNAMEI PHA PHNUM598304 Robertson Richard R 301 840-1224172397 SmithSusanS 301 547-8465813058 JonesHowardH 919 279-9911395733 WardSamuelB 919 436-1000TBCREATE：當(dāng)要執(zhí)行處理時(shí)，生成一個(gè)新表，并打開它。TBOPEN：當(dāng)在執(zhí)行處理時(shí)，打開一個(gè)已存在的表。TBQUERY：保存一個(gè)已存在的表副本，不關(guān)閉它（即作一 個(gè)備份） 。TBCLOSE：關(guān)閉一個(gè)表，如果該表已作過(guò)修改，則保存一個(gè)（的）備份。TBEND：關(guān)閉一個(gè)表，不做保存動(dòng)作。TBERASE：從表庫(kù)中刪除一個(gè)性表。Table Service的操作注-1： 一個(gè)臨時(shí)性的表可以由TBCREATE 來(lái)生成（無(wú)寫方式），由TBEND 或 TBCLOSE 來(lái)刪除。注- 2：一個(gè)在虛存的性TBCREA