Natural: Round Table Session

1
Natural Round Table Session
Natural RoundTable 1. Tips 'n Techniques 2.
User written tools 3. Little known commands
4. Enhancements 5. Documentation 6. Performance
monitoring/testing 7. Enterprise integration -gt
Security -gt Files (code pages, transfers,
etc.) -gt Admin. (sysmain, sysobjh, etc.)
2
Natural Tips and Techniques

• Writing Comma delimited files
• Previous to Natural 4 this was difficult for any
  strings greater than 253 bytes.
• Natural 4 allows long alpha fields and dynamic
  length fields. All the COMPRESS and substring
  operations work on these fields. It is the best
  method to create these files.

3
Natural TnT

• Centering text
• DEFINE DATA                                     
• PARAMETER                                       
•   1 TEXT (A253)                                
•   1 OUTLEN(N3)                                 
• LOCAL                                           
•   1 LEN (N3)                                   
•   1 TAB (N3)                                   
•   1 FILL(A253)                                 
• END-DEFINE                                      
• MOVE LEFT TEXT TO TEXT                        
• EXAMINE TEXT FOR ' ' GIVING LENGTH LEN        
• COMPUTE ROUNDED TAB (OUTLEN - LEN - 1) / 2 
• IF TAB 1 THRU 253                            
•   MOVE ALL H'00' TO FILL UNTIL TAB            
• COMPRESS FILL TEXT INTO TEXT LEAVING NO SPACE
• EXAMINE TEXT FOR H'00' REPLACE WITH ' '        
• END                                             

4
Natural TnT

• ADMIN
• What DBCLOSE, ET, and other session parms do.
• In the TnT session
• New System variables. (CPU-TIME, HOSTNAME,
  etc.)
• Warnings for Dynamic variables.
• Little known Commands (SYSFILE, TECH, UPDATE).
• Little known Parms (HW, HC, MC, MP, SF)
• Helproutines...OPF, Screen saved,
• PDPage dataset utility.
• Terminal control (K in batch)
• Simulating XML with header values (WRITE ''
  fldname)
• Many features of the LIST command that few people
  know about.
• The data area editor. E.G. The M command
  adding fields to views.

5
Natural Round Table session

• Scan syntax change now no parenthesis are
  allowed.
• I just found a document on ServLine24, Document
  ID  253640 NAT 4.1.3
• NAT0010 using SCAN with () . It looks like it may
  cover what you found -)
• DEFINE DATA LOCAL                                 
            
•  1 ALPH (A20) INIT lt'aaa5JIM1aaa'gt               
            
•  1 JIM  (P7)  INIT lt1333547gt                     
             
• END-DEFINE                                        
            
• IF JIM  SCAN'44'                               
            
•   WRITE 'OK'                                      
            
• ELSE                                              
            
•   WRITE 'NO'                                      
            
• END-IF                                            
             
• EXAMINE ALPH FOR 'JIM' WITH DELIMITERS
  '1,2,3,4,5,6,7,8,9,0'
• GIVING POSITION IN JIM                           
            
• WRITE  JIM                                       
            
• END                                 
• Dynamic variables
• Move substring

6
Natural Round Table session

• Optional parameters in PDA
• Define data parameter
• 1 my-parm1 (A10)
• 1 my-parm2 (N5.2) optional
• Variable array definition in PDA
• Define data parameter
• 1 my-parm1 (A10)
• 1 my-parm2 (A3/1V) / check occurrence

7
Natural TnT

• NEW USR6002 for MADIO and MAXCL inquiry
• / This program serves as example how to design
  a user-defined
• / program to call 'USR6002N'.
  
• /
  
• DEFINE DATA
  
• LOCAL
  
• 1 MADIO-CUR (I04) / number of DBMS calls
  executed since last I/O,
• / (MADIO-CUR) gives the number of DBMS calls
  
• / until NAT1009 will occur
  
• 1 MAXCL-CUR (I04) / number of programs
  calls executed since last
• / I/O, (MAXCL-CUR) gives the number of program
  
• / calls until NAT1029 will occur
  
• 1 LT-CUR (I04) / number of database
  records which have been
• / read in processing loops so far, (LT-CUR)
  
• / gives the number of database records that can
  
• / be read until NAT1003 will occur
  
• 1 GET-ALL (L)
  
• END-DEFINE
  
• . . .

8
Natural Round Table session

• Calling COBOL from both Batch and CICS
  environments.
• Static link to Natural.
• DFHEIA0 entry point with alternate entry.

9
Natural Round Table

• (AD) APPLIC-ID (EN) ERROR-NR
  (LV) LEVEL
• (AN) APPLIC-NAME (ET) ERROR-TA
  (LB) LIBRARY-ID
• (CM) COM (ED) ETID
  (LI) LINE
• (CV) CONVID (GR) GROUP
  (LC) LINE-COUNT
• (CO) COUNTER (HC) HARDCOPY
  (LS) LINESIZE
• (CP) CPU-TIME (HW) HARDWARE
  (LL) LOG-LS
• (CR) CURSOR (HO) HOSTNAME
  (LP) LOG-PS
• (CC) CURS-COL (IN) INIT-ID
  (MC) MACHINE-CLAS
• (CF) CURS-FIELD (IP) INIT-PROGRAM
  (NA) NATVERS
• (CL) CURS-LINE (IU) INIT-USER
  (NE) NET-USER
• (DA) DATA (IS) ISN
  (NU) NUMBER
• (DV) DEVICE (LG) LANGUAGE
  (OC) OCCURRENCE
• (EL) ERROR-LINE (LE) LENGTH
  (OP) OPSYS
• (OS) OS (SL) STEPLIB
• (OV) OSVERS (SR) SUBROUTINE
• (PS) PAGESIZE (TB) THIS-OBJECT
• (PN) PAGE-NUMBER (TP) TP
• (PU) PARM-USER (TY) TPSYS
• (PT) PATCH-LEVEL (TV) TPVERS

Natural 3
Natural 4