Table of Contents

DLWRITC

Table Of Contents

  • [00007] PROC DLWRITC(LINE, LSIZE)
  • [00048] PROC DLDISDE
  • [00049] PROC DLWRT

Source Code

DLWRITC.txt 
  1. *DECK DLWRITC 
  2. USETEXT DLFPDEF 
  3. USETEXT DLONEL
  4. USETEXT OCIOBB
  5. USETEXT OFETB 
  6. USETEXT OUTCDA
  7. PROC DLWRITC(LINE, LSIZE);          # MOVE LINE TO CIO BUFFER          #
  8.  
  9. *IF DEF,IMS 
  10.  #
  11. *1DC  DLWRITC 
  12. * 
  13. *     1. PROC NAME           AUTHOR              DATE 
  14. *        DLWRITC             P.C.TAM             78/10/03 
  15. * 
  16. *     2. FUNCTIONAL DESCRIPTION.
  17. *        MOVE LINE TO OUTPUT BUFFER, ADD HEADER INFORMATION.
  18. * 
  19. *     3. METHOD USED. 
  20. *        SAME AS 2. 
  21. * 
  22. *     4. ENTRY PARAMETERS.
  23. *        LINE                ARRAY CONTAINING THE LINE
  24. *        LSIZE               SIZE OF LINE IN CM WORDS 
  25. *        LINE$COUNT          LINE COUNT OF THE CURRENT PAGE 
  26. * 
  27. *     5. EXIT PARAMETERS. 
  28. *        NONE.
  29. * 
  30. *     6. COMDECKS CALLED AND SYMPL TEXTS USED.
  31. *        DLFPDEF   OCIOBB    OFETB     OUTCDA 
  32. * 
  33. *     7. ROUTINES CALLED. 
  34. *        DLDISDE             CONVERT BINARY TO DISPLAY DECIMAL
  35. *        DLWRT               WRITE LINE TO CIO BUFFER 
  36. * 
  37. *     8. DAYFILE MESSAGES.
  38. *        NONE.
  39. * 
  40.  #
  41. *ENDIF
  42.  
  43. # 
  44.       EXTERNAL VARIABLES
  45. # 
  46.       XREF
  47.         BEGIN 
  48.         PROC DLDISDE;        # CONVERT BINARY TO DISPLAY DECIMAL       #
  49.         PROC DLWRT;          # WRITE LINE TO CIO BUFFER                #
  50.         END 
  51. # 
  52.       LOCAL VARIABLES 
  53. # 
  54.       ARRAY LINE S(1);
  55.         BEGIN 
  56.         ITEM LINEX           U(0,0,WL); 
  57.         END 
  58.  
  59.       ITEM
  60.       LSIZE      I,          # SIZE OF LINE IN CM WORDS                #
  61.       LINE$INC   I,          # NO OF LINES ADDED TO REPORT             #
  62.       TEMP       C(WC);      # TEMPORAY VARIABLE                       #
  63.  
  64. # *********************************************************************#
  65.  
  66.       BEGIN 
  67.  
  68.       IF LINE$COUNT GQ MAXNO
  69.       THEN
  70.         BEGIN                # WRITE PAGE HEADER                       #
  71.         DLWRT(OFET,ONEL,1) ;
  72.         DLWRT(OFET, L1, 12);
  73.         PAGE$COUNT = PAGE$COUNT + 1;
  74.         DLDISDE(PAGE$COUNT, 5, TEMP); 
  75.         L2PGNO[0] = TEMP; 
  76.         DLWRT(OFET, L2, 12);
  77. #       DLWRT(OFET, L3, 6)                                             #
  78.         DLWRT(OFET, THRL, 1); 
  79.         LINE$COUNT = 6; 
  80.         END 
  81.  
  82.       DLWRT(OFET, LINE, LSIZE); 
  83.       IF NOT OUPART 
  84.       THEN                   # OUTPUT A COMPLETE LINE                  #
  85.         LINE$COUNT = LINE$COUNT + 1;
  86.       END 
  87. TERM