CICS Application Programming Fundamentals 第8-7章

8. The Sign-on Process - 7. Registered Users File

****** ********************************* Top of Data **********************************
000001            05  Registered-User-Id      pic x(08).                               
000002            05  Registered-Password     pic x(08).                               
000003            05  Registered-User-Type    pic x(03).                               
000004                88  Standard-User       value 'STD'.                             
000005                88  Manager-User        value 'MGR'.                             
000006                88  Admin-User          value 'ADM'.                             
000007            05  Registered-Status       pic x(01).                               
000008                88  ACTIVE              value 'A'.                               
000009                88  DELETED             value 'D'.                               
000010       * YYYYMMDDhhmmss                                                          
000011            05  Last-Effective-Date-Time pic x(14).                              
000012            05  filler                  pic x(66).                               
****** ******************************** Bottom of Data ********************************

****** ********************************************************************* Top of Dat
000001 //JC$CRTQS JOB ,'CREATE QSAM ',CLASS=C,MSGCLASS=S,MSGLEVEL=(1,1),       JOB00059
000002 //             REGION=4096K,TIME=1440,COND=((4,LT)),NOTIFY=&SYSUID              
000003 //*                                                                             
000004 //*!!! PLS DOUBLE CHECK AND REMARK THIS LINE TO SUBMIT                          
000005 //*                                                                             
000006 //* DELETE OLD                                                                  
000007 //DELETE   EXEC PGM=IEFBR14                                                     
000008 //DELFILE  DD DSN=PRDHKB.MM.MD.EREGUSR,                                         
000009 //            DISP=(MOD,DELETE,DELETE),                                         
000010 //            UNIT=SYSDA,                                                       
000011 //            VOL=SER=UAPP02                                                    
000012 //* REPO DUMMY DATA                                                             
000013 //DEFINE   EXEC PGM=SORT                                                        
000014 //SYSOUT   DD  SYSOUT=*                                                         
000015 //SORTIN   DD  *                                                                
000016 TESTUSR1PASS1   STDA20230625120000                                              
000017 TESTUSR2PASS2   MGRA20230625121500                                              
000018 TESTUSR3PASS3   ADMA20230625123000                                              
000019 /*                                                                              
000020 //SORTOUT  DD  DSN=PRDHKB.MM.MD.EREGUSR,                                        
000021 //             DISP=(NEW,CATLG,DELETE),                                         
000022 //             UNIT=SYSDA,                                                      
000023 //             VOL=SER=UAPP02,                                                  
000024 //             SPACE=(CYL,(5,2),RLSE),                                          
000025 //             DCB=(RECFM=FB,LRECL=100,BLKSIZE=0)                               
000026 //SYSIN    DD  *                                                                
000027   OPTION COPY                                                                   
000028   OUTREC FIELDS=(1,80,100:C' ')                                                 
000029 /*                                                                              
****** ******************************************************************** Bottom of D

****** ********************************************************************* Top of Dat
000001 //JC$CRTKS JOB ,'CREATE KSDS ',CLASS=C,MSGCLASS=S,MSGLEVEL=(1,1),       JOB00060
000002 //             REGION=4096K,TIME=1440,COND=((4,LT)),NOTIFY=&SYSUID              
000003 //*                                                                             
000004 // !!! PLS DOUBLE CHECK AND REMARK THIS LINE TO SUBMIT                          
000005 //*                                                                             
000006 //* DEFINE KSDS                                                                 
000007 //TDINTRA  EXEC PGM=IDCAMS                                                      
000008 //SEEDDATA DD DISP=SHR,DSN=PRDHKB.MM.MD.EREGUSR                                 
000009 //SYSPRINT DD SYSOUT=*                                                          
000010 //SYSIN    DD *                                                                 
000011   DELETE PRDHKO.MM.MD.EREGUSR CLUSTER ERASE PURGE                               
000012   SET MAXCC = 0                                                                 
000013                                                                                 
000014   DEFINE CLUSTER(NAME(PRDHKO.MM.MD.EREGUSR)    -                                
000015                  INDEXED                       -                                
000016                  CYL(10 10)                    -                                
000017                  RECORDSIZE(100 100)           -                                
000018                  KEYS(8 0)                     -                                
000019                  FREESPACE(0 20)               -                                
000020                  SHAREOPTIONS(2 3)             -                                
000021                  LOG(NONE)                     -                                
000022                  VOLUME(UAPP02)                -                                
000023                  CISZ(4096))                   -                                
000024          DATA (NAME(PRDHKO.MM.MD.EREGUSR.DATA)) -                               
000025          INDEX (NAME(PRDHKO.MM.MD.EREGUSR.INDEX))                               
000026                                                                                 
000027   IF LASTCC = 0 THEN -                                                          
000028       REPRO INFILE(SEEDDATA) OUTDATASET(PRDHKO.MM.MD.EREGUSR)                   
000029       IF LASTCC = 0 THEN -                                                      
000030           LISTCAT ENTRIES(PRDHKO.MM.MD.EREGUSR) ALL                             
000031           IF LASTCC = 0 THEN -                                                  
000032               PRINT INDATASET(PRDHKO.MM.MD.EREGUSR)                             
000033 /*                                                                              
000034 //*                                                                             
****** ******************************************************************** Bottom of D

  DEF FILE(EREGUSR) G(PS)
  INS FILE(EREGUSR) G(PS)

  VI FILE(EREGUSR) G(PS)                                                        
  OBJECT CHARACTERISTICS                                    CICS RELEASE = 0650 
   CEDA  View File( EREGUSR  )                                                  
    File           : EREGUSR                                                    
    Group          : PS                                                         
    DEScription    :                                                            
   VSAM PARAMETERS                                                              
    DSNAme         : PRDHKO.MM.MD.EREGUSR                                       
...
   OPERATIONS                                                                   
    Add            : Yes                No | Yes                                
    BRowse         : Yes                No | Yes                                
    DELete         : Yes                No | Yes                                
    READ           : Yes                Yes | No                                
    UPDATE         : Yes                No | Yes                                
 + AUTO JOURNALLING                                                             
                                                                                
                                                      SYSID=CICS APPLID=CICS    
                                                                                
 PF 1 HELP 2 COM 3 END             6 CRSR 7 SBH 8 SFH 9 MSG 10 SB 11 SF 12 CNCL