26 กรกฎาคม 2555

ขั้นตอนการ save spool file จาก AS/400 to PC


1. สร้าง Physical files ก่อนโดยใช้ Command CRTPF โดยกำหนด ชื่อ File และ Library ที่ต้องการจะลง และเปลี่ยน Record Length ให้เป็น 150

                          Create Physical File (CRTPF)                        
                                                                               
 Type choices, press Enter.                                                    
                                                                               
 File . . . . . . . . . . . . . . > SPOOLFILE     Name                        
   Library  . . . . . . . . . . .     *CURLIB     Name, *CURLIB                
 Source file  . . . . . . . . . .   QDDSSRC       Name                        
   Library  . . . . . . . . . . .     *LIBL       Name, *LIBL, *CURLIB        
 Source member  . . . . . . . . .   *FILE         Name, *FILE                  
 Record length, if no DDS . . . . > 150           Number                      
 Generation severity level  . . .   20            0-30                        
 Flagging severity level  . . . .   0             0-30                        
 File type  . . . . . . . . . . .   *DATA         *DATA, *SRC                  
 Member, if desired . . . . . . .   *FILE         Name, *FILE, *NONE          
 Text 'description' . . . . . . .   *SRCMBRTXT                                
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                        More...
 F3=Exit   F4=Prompt   F5=Refresh   F12=Cancel   F13=How to use this display  
 F24=More keys              
                                                                                                 

           
หลังจาก นั้นกด F10 เพื่อใส่ Additional data  
                                                                               
                        Additional Parameters                              
                                                                               
 Source listing options . . . . .                 *SRC, *NOSRC, *SOURCE...    
                + for more values                                              
 System . . . . . . . . . . . . .   *LCL          *LCL, *RMT, *FILETYPE        
 Expiration date for member . . .   *NONE         Date, *NONE                  
 Maximum members  . . . . . . . .   *NOMAX        Number, *NOMAX              

 Access path size . . . . . . . .   *MAX1TB       *MAX1TB, *MAX4GB            

 Access path logical page size  .   *KEYLEN       *KEYLEN, 8, 16, 32, 64...    
 Access path maintenance  . . . .   *IMMED        *IMMED, *DLY, *REBLD        

 Access path recovery . . . . . .                 *NO, *AFTIPL, *IPL          

 Force keyed access path  . . . .   *NO           *NO, *YES                    
                                                                               
                                                                               
                                                                               
                                                                        More...
 F3=Exit   F4=Prompt   F5=Refresh   F12=Cancel   F13=How to use this display  
 F24=More keys
                                                               
                              Create Physical File (CRTPF)                                                                                                          Type choices, press Enter.                                                  
 

 Member size:                                                                      Initial number of records  . . > *NOMAX        1-2147483646                     Increment number of records  .                 Number                      
 

   Maximum increments . . . . . .                 Number                      
 

 Allocate storage . . . . . . . .   *NO           *NO, *YES                      Contiguous storage . . . . . . .   *NO           *NO, *YES                      Preferred storage unit . . . . .   *ANY          1-255, *ANY, *SSD              Records to force a write . . . .   *NONE         Number, *NONE                  Maximum file wait time . . . . .   30            Seconds, *IMMED, *CLS          Maximum record wait time . . . .   60            Seconds, *NOMAX, *IMMED        Share open data path . . . . . .   *NO           *NO, *YES                      Max % deleted records allowed  .   *NONE         1-100, *NONE                   Reuse deleted records  . . . . .   *NO           *YES, *NO                      Sort sequence  . . . . . . . . .   *SRC          Name, *SRC, *JOB...              Library  . . . . . . . . . . .                 Name, *LIBL, *CURLIB          Language ID  . . . . . . . . . .   *JOB          Character value, *JOB                                                                           More...  F3=Exit   F4=Prompt   F5=Refresh   F12=Cancel   F13=How to use this display    
 F24=More keys                                                                 
                                                                                                                                                           
พอได้ Physical File เสร็จ ก็ถึงคราวที่เราจะ Copy Spool file มาลงแล้ว
2.  การ Copy spool file จะใช้ Command CPYSPLF
โดย ค่าต่างๆนั้นสามารถ ดูได้จาก Command WRKSPLF
เมื่อเรากรอกค่าเสร็จก็กด Enter เป็นอันจบพิธี การ Copy spool file ลง physical file
                           Copy Spooled File (CPYSPLF)                        
                                                                               
 Type choices, press Enter.                                                    
                                                                               
 Spooled file . . . . . . . . . .                 Name                        
 To data base file  . . . . . . .   SPOOLFILE     Name                        
   Library  . . . . . . . . . . .     *LIBL       Name, *LIBL, *CURLIB        
 Job name . . . . . . . . . . . .   *             Name, *                      
   User . . . . . . . . . . . . .                 Name                        
   Number . . . . . . . . . . . .                 000000-999999                
 Spooled file number  . . . . . .   *ONLY         1-999999, *ONLY, *LAST, *ANY
 Job system name  . . . . . . . .   *ONLY         Name, *ONLY, *CURRENT, *ANY  
 Spooled file created:                                                        
   Creation date  . . . . . . . .   *ONLY         Date, *ONLY, *LAST          
   Creation time  . . . . . . . .                 Time, *ONLY, *LAST          
 To member  . . . . . . . . . . .   *FIRST        Name, *FIRST                
 Replace or add records . . . . .   *REPLACE      *REPLACE, *ADD              
                                                                               
                                                                               
                                                                               
                                                                         Bottom
 F3=Exit   F4=Prompt   F5=Refresh   F10=Additional parameters   F12=Cancel    
 F13=How to use this display        F24=More keys                      
        
                                                                                                     
หลังจากได้ Physical file แล้วก็ทำการ FTP จาก AS/400 ลง PC ได้ตามปกติ

18 เมษายน 2555

COBOL PROGRAMMING

ไม่ได้เข้ามาอัพเดท Blog ซะนาน วันนี้พอมีเวลาก็เลยจัดซักหน่อย
ในวันนี้เปลี่ยนมาศึกษา ภาษาเก่าๆอย่าง Cobol ดูบ้าง ซึ่งมันก็ออกจากเป็นภาษาที่โครงสร้างไม่ซับซ้อนเท่าไหร่ โดย Cobol นั้น จะมีส่วนสำคัญๆ ที่จะต้องมีอยู่4 ส่วน (4 Division)
เริ่มต้นด้วยส่วนแรก Identification Division หรือส่วนที่ใช้ในการประกาศว่า เป็นโปรแกรมอะไร
ต่อมาเป็นส่วนของ Environment Division เป็นส่วนที่ใช้ในการประกา่ศเกี่ยวกับเครื่องที่จะใช้ RUN program
ส่วนที่ 3 คือ ส่วน Data Division ส่วนนี้เป็นส่วนที่ใช้ในการประกาศตัวแปรต่างๆซึ่งจะ รวมไปถึงการประกาศค่า COMMAREA (ส่วนที่ใช้ในการ ส่งค่าไปให้กับโปรแกรมอื่นๆตอน ทำ CICS Program)
และส่วนสุดท้ายคือส่วน Procedure Division หรือส่วนที่ใช้ในการเขียน Code เพื่อที่จะทำงานจริงๆ

ตัวอย่างการเขียนโปรแกรม Hello world ด้วยภาษา Cobol
IDENTIFICATION DIVISION.                                          
PROGRAM-ID. HWORLD.
AUTHOR.          RUJJI.                          
DATE-WRITTEN.       18/04/12.                    
DATE-COMPILED.                                  
ENVIRONMENT DIVISION.          
CONFIGURATION SECTION.        
SOURCE-COMPUTER. IBM-370.      
OBJECT-COMPUTER. IBM-370.      
DATA DIVISION.
WORKING-STORAGE SECTION.
      01   WS-MSG.
              03  WS-TXT-MSG                           PIC X(60)     VALUE
                     'HELLO WORLD'.
PROCEDURE DIVISION.
MAIN-ROUTINE.
*
                  DISPLAY 'WS-TXT-MSG' WS-TXT-MSG.
*
EXIT-ROUTINE.
       STOP-RUN.