QuikCode Language
Contents of the output file generated from picgen.q...
                                                                               
     01  REPORT-LINE-01.                                                      
         05 FILLER                         PIC X(002) VALUE SPACE.            
         05 FILLER                         PIC X(006)                         
            VALUE 'REPORT'.                                                   
         05 FILLER                         PIC X(001) VALUE SPACE.            
         05 FILLER                         PIC X(003) VALUE '001'.            
         05 FILLER                         PIC X(038) VALUE SPACE.            
         05 FILLER                         PIC X(022)                         
            VALUE 'SECURITIES OWNED AS OF'.                                   
         05 FILLER                         PIC X(001) VALUE SPACE.            
         05 REPORT-AS-OF-DATE.                                                
            10 REPORT-AS-OF-DATE-MM        PIC X(002).                        
            10 REPORT-AS-OF-DATE-S1        PIC X(001) VALUE '/'.              
            10 REPORT-AS-OF-DATE-DD        PIC X(002).                        
            10 REPORT-AS-OF-DATE-S2        PIC X(001) VALUE '/'.              
            10 REPORT-AS-OF-DATE-YY        PIC X(002).                        
         05 FILLER                         PIC X(037) VALUE SPACE.            
         05 FILLER                         PIC X(005)                         
            VALUE 'PAGE:'.                                                    
         05 FILLER                         PIC X(003) VALUE SPACE.            
         05 REPORT-PAGE                    PIC ZZ,ZZ9.                        
         05 FILLER                         PIC X(001) VALUE SPACE.            
                                                                              
     01  REPORT-LINE-02.                                                      
         05 FILLER                         PIC X(002) VALUE SPACE.            
         05 FILLER                         PIC X(012)                         
            VALUE 'SYSTEM DATE:'.                                             
         05 FILLER                         PIC X(001) VALUE SPACE.            
         05 REPORT-SYS-DATE.                                                  
            10 REPORT-SYS-DATE-MM          PIC X(002).                        
            10 REPORT-SYS-DATE-S1          PIC X(001) VALUE '/'.              
            10 REPORT-SYS-DATE-DD          PIC X(002).                        
            10 REPORT-SYS-DATE-S2          PIC X(001) VALUE '/'.              
            10 REPORT-SYS-DATE-YY          PIC X(002).                        
         05 FILLER                         PIC X(027) VALUE SPACE.            
         05 FILLER                         PIC X(027)                         
            VALUE 'PGAAP ELIMINATION ENTRIES -'.                              
         05 FILLER                         PIC X(001) VALUE SPACE.            
         05 REPORT-ACCT-GROUP              PIC X(010).                        
         05 FILLER                         PIC X(026) VALUE SPACE.            
         05 FILLER                         PIC X(009)                         
            VALUE 'RUN DATE:'.                                                
         05 FILLER                         PIC X(001) VALUE SPACE.            
         05 REPORT-RUN-DATE.                                                  
            10 REPORT-RUN-DATE-MM          PIC X(002).                        
            10 REPORT-RUN-DATE-S1          PIC X(001) VALUE '/'.              
            10 REPORT-RUN-DATE-DD          PIC X(002).                        
            10 REPORT-RUN-DATE-S2          PIC X(001) VALUE '/'.              
            10 REPORT-RUN-DATE-YY          PIC X(002).                        
         05 FILLER                         PIC X(001) VALUE SPACE.            
                                                                              
     01  REPORT-LINE-03.                                                      
         05 FILLER                         PIC X(114) VALUE SPACE.            
         05 FILLER                         PIC X(009)                         
            VALUE 'RUN TIME:'.                                                
         05 FILLER                         PIC X(001) VALUE SPACE.            
         05 REPORT-RUN-TIME.                                                  
            10 REPORT-RUN-TIME-HR          PIC X(002).                        
            10 REPORT-RUN-TIME-H1          PIC X(001) VALUE ':'.              
            10 REPORT-RUN-TIME-MN          PIC X(002).                        
            10 REPORT-RUN-TIME-H2          PIC X(001) VALUE ':'.              
            10 REPORT-RUN-TIME-SC          PIC X(002).                        
         05 FILLER                         PIC X(001) VALUE SPACE.            
                                                                              
     01  REPORT-LINE-04.                                                      
         05 FILLER                         PIC X(002) VALUE SPACE.            
         05 FILLER                         PIC X(005)                         
            VALUE 'CUSIP'.                                                    
         05 FILLER                         PIC X(018) VALUE SPACE.            
         05 FILLER                         PIC X(011)                         
            VALUE 'DESCRIPTION'.                                              
         05 FILLER                         PIC X(033) VALUE SPACE.            
         05 FILLER                         PIC X(006)                         
            VALUE 'COUPON'.                                                   
         05 FILLER                         PIC X(008) VALUE SPACE.            
         05 FILLER                         PIC X(013)                         
            VALUE 'MATURITY DATE'.                                            
         05 FILLER                         PIC X(037) VALUE SPACE.            
                                                                              
     01  REPORT-LINE-05.                                                      
         05 FILLER                         PIC X(002) VALUE SPACE.            
         05 FILLER                         PIC X(009)                         
            VALUE 'PORTFOLIO'.                                                
         05 FILLER                         PIC X(014) VALUE SPACE.            
         05 FILLER                         PIC X(006)                         
            VALUE 'TICKET'.                                                   
         05 FILLER                         PIC X(034) VALUE SPACE.            
         05 FILLER                         PIC X(010)                         
            VALUE 'TRADE DATE'.                                               
         05 FILLER                         PIC X(012) VALUE SPACE.            
         05 FILLER                         PIC X(009)                         
            VALUE 'PAR VALUE'.                                                
         05 FILLER                         PIC X(037) VALUE SPACE.            
                                                                              
     01  REPORT-LINE-06.                                                      
         05 FILLER                         PIC X(011) VALUE SPACE.            
         05 FILLER                         PIC X(009)                         
            VALUE 'STAT BOOK'.                                                
         05 FILLER                         PIC X(014) VALUE SPACE.            
         05 FILLER                         PIC X(015)                         
            VALUE 'STAT BV INC/DEC'.                                          
         05 FILLER                         PIC X(011) VALUE SPACE.            
         05 FILLER                         PIC X(010)                         
            VALUE 'STAT YIELD'.                                               
         05 FILLER                         PIC X(063) VALUE SPACE.            
                                                                              
     01  REPORT-LINE-07.                                                      
         05 FILLER                         PIC X(011) VALUE SPACE.            
         05 FILLER                         PIC X(009)                         
            VALUE 'GAAP BOOK'.                                                
         05 FILLER                         PIC X(014) VALUE SPACE.            
         05 FILLER                         PIC X(015)                         
            VALUE 'GAAP BV INC/DEC'.                                          
         05 FILLER                         PIC X(011) VALUE SPACE.            
         05 FILLER                         PIC X(010)                         
            VALUE 'GAAP YIELD'.                                               
         05 FILLER                         PIC X(063) VALUE SPACE.            
                                                                              
     01  REPORT-LINE-08.                                                      
         05 FILLER                         PIC X(011) VALUE SPACE.            
         05 FILLER                         PIC X(009)                         
            VALUE 'BOOK DIFF'.                                                
         05 FILLER                         PIC X(014) VALUE SPACE.            
         05 FILLER                         PIC X(015)                         
            VALUE 'BV INC/DEC DIFF'.                                          
         05 FILLER                         PIC X(084) VALUE SPACE.            
                                                                              
     01  REPORT-LINE-09.                                                      
         05 FILLER                         PIC X(002) VALUE SPACE.            
         05 REPORT-CUSIP                   PIC X(020).                        
         05 FILLER                         PIC X(003) VALUE SPACE.            
         05 REPORT-INVEST-DESCRIPTION      PIC X(040).                        
         05 FILLER                         PIC X(003) VALUE SPACE.            
         05 REPORT-COUPON-RATE             PIC --9.999.                       
         05 FILLER                         PIC X(008) VALUE SPACE.            
         05 REPORT-MATURITY-DATE.                                             
            10 REPORT-MATURITY-DATE-MM     PIC X(002).                        
            10 REPORT-MATURITY-DATE-S1     PIC X(001) VALUE '/'.              
            10 REPORT-MATURITY-DATE-DD     PIC X(002).                        
            10 REPORT-MATURITY-DATE-S2     PIC X(001) VALUE '/'.              
            10 REPORT-MATURITY-DATE-YYYY   PIC X(004).                        
         05 FILLER                         PIC X(040) VALUE SPACE.            
                                                                              
     01  REPORT-LINE-10.                                                      
         05 FILLER                         PIC X(002) VALUE SPACE.            
         05 REPORT-POR-IDENTIFIER          PIC X(010).                        
         05 FILLER                         PIC X(013) VALUE SPACE.            
         05 REPORT-TICKET-NUMBER           PIC X(020).                        
         05 FILLER                         PIC X(020) VALUE SPACE.            
         05 REPORT-TRD-DATE.                                                  
            10 REPORT-TRD-DATE-MM          PIC X(002).                        
            10 REPORT-TRD-DATE-S1          PIC X(001) VALUE '/'.              
            10 REPORT-TRD-DATE-DD          PIC X(002).                        
            10 REPORT-TRD-DATE-S2          PIC X(001) VALUE '/'.              
            10 REPORT-TRD-DATE-YYYY        PIC X(004).                        
         05 FILLER                         PIC X(003) VALUE SPACE.            
         05 REPORT-PAR-VALUE               PIC ---,---,---,--9.99.            
         05 FILLER                         PIC X(037) VALUE SPACE.            
                                                                              
     01  REPORT-LINE-11.                                                      
         05 FILLER                         PIC X(002) VALUE SPACE.            
         05 REPORT-STAT-BOOK-VALUE         PIC ---,---,---,--9.99.            
         05 FILLER                         PIC X(011) VALUE SPACE.            
         05 REPORT-STAT-BV-INC-DEC         PIC ---,---,---,--9.99.            
         05 FILLER                         PIC X(003) VALUE SPACE.            
         05 REPORT-STAT-AMORT-YIELD        PIC ---,---,---,--9.99.            
         05 FILLER                         PIC X(063) VALUE SPACE.            
                                                                              
     01  REPORT-LINE-12.                                                      
         05 FILLER                         PIC X(002) VALUE SPACE.            
         05 REPORT-GAAP-BOOK-VALUE         PIC ---,---,---,--9.99.            
         05 FILLER                         PIC X(011) VALUE SPACE.            
         05 REPORT-GAAP-BV-INC-DEC         PIC ---,---,---,--9.99.            
         05 FILLER                         PIC X(003) VALUE SPACE.            
         05 REPORT-GAAP-AMORT-YIELD        PIC ---,---,---,--9.99.            
         05 FILLER                         PIC X(063) VALUE SPACE.            
                                                                              
     01  REPORT-LINE-13.                                                      
         05 FILLER                         PIC X(002) VALUE SPACE.            
         05 REPORT-DIFF-BOOK-VALUE         PIC ---,---,---,--9.99.            
         05 FILLER                         PIC X(011) VALUE SPACE.            
         05 REPORT-DIFF-BV-INC-DEC         PIC ---,---,---,--9.99.            
         05 FILLER                         PIC X(084) VALUE SPACE.            
                                                                              
     01  REPORT-LINE-14.                                                      
         05 FILLER                         PIC X(002) VALUE SPACE.            
         05 FILLER                         PIC X(006)                         
            VALUE '*TOTAL'.                                                   
         05 FILLER                         PIC X(001) VALUE SPACE.            
         05 REPORT-TOTAL-CUSIP-NUMBER      PIC X(020).                        
         05 FILLER                         PIC X(048) VALUE SPACE.            
         05 REPORT-TOTAL-CUSIP-PAR-VALUE   PIC ----,---,---,--9.99.           
         05 FILLER                         PIC X(037) VALUE SPACE.            
                                                                              
     01  REPORT-LINE-15.                                                      
         05 FILLER                         PIC X(002) VALUE SPACE.            
         05 FILLER                         PIC X(007)                         
            VALUE '**TOTAL'.                                                  
         05 FILLER                         PIC X(001) VALUE SPACE.            
         05 REPORT-TOTAL-SDCLASS-DESC      PIC X(040).                        
         05 FILLER                         PIC X(027) VALUE SPACE.            
         05 REPORT-TOTAL-SDCLASS-PAR-VALUE PIC ----,---,---,--9.99.           
         05 FILLER                         PIC X(037) VALUE SPACE.            
                                                                              
     01  REPORT-LINE-16.                                                      
         05 FILLER                         PIC X(002) VALUE SPACE.            
         05 FILLER                         PIC X(009)                         
            VALUE '****TOTAL'.                                                
         05 FILLER                         PIC X(001) VALUE SPACE.            
         05 REPORT-TOTAL-ACCTGRP-CODE      PIC X(010).                        
         05 FILLER                         PIC X(055) VALUE SPACE.            
         05 REPORT-TOTAL-ACCTGRP-PAR-VALUE PIC ----,---,---,--9.99.           
         05 FILLER                         PIC X(037) VALUE SPACE.            
                                                                              
     01  REPORT-LINE-17.                                                      
         05 FILLER                         PIC X(002) VALUE SPACE.            
         05 REPORT-TOTAL-BOOK-VALUE        PIC ----,---,---,--9.99.           
         05 FILLER                         PIC X(009) VALUE SPACE.            
         05 REPORT-TOTAL-BV-INC-DEC        PIC ----,---,---,--9.99.           
         05 FILLER                         PIC X(002) VALUE SPACE.            
         05 REPORT-TOTAL-YIELD             PIC ----,---,---,---.--.           
         05 FILLER                         PIC X(063) VALUE SPACE.            
PicGenOut