home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol049 / outzip.pli < prev    next >
Text File  |  1984-04-29  |  803b  |  30 lines
  1. /* * *  OUTPUT A ZIP CODE. * * */
  2. /* THIS ROUTINE FORMATS A ZIP CODE FOR DISPLAY. */
  3. OUT_ZIP: PROC (ZIP) RETURNS(CHAR(10));
  4.     DCL    ZIP CHAR(9);
  5.     DCL    WRKZIP CHAR(14);
  6.  
  7. /* RETURN IF NULL ZIP. */
  8.     WRKZIP=' ';
  9.     IF ZIP=WRKZIP THEN    /* NULL INPUT */
  10.        RETURN(WRKZIP);
  11.  
  12. /* SET UP DEFAULT ZIP CODE (NINE DIGITS). */
  13.     SUBSTR(WRKZIP,1,5)=SUBSTR(ZIP,1,5); /* GET PREFIX. */
  14.     SUBSTR(WRKZIP,6,1)='-';
  15.     SUBSTR(WRKZIP,7,4)=SUBSTR(ZIP,6,4); /* GET NUMBER. */
  16.  
  17. /* HANDLE CANADIAN LIKE ZIP CODE (SIX DIGITS). */
  18.     IF SUBSTR(ZIP,7,3)=' ' &       /* CHECK FOR 6 DIGIT CODE. */
  19.        SUBSTR(ZIP,6,1)~=' ' THEN
  20.        WRKZIP=ZIP;
  21.  
  22. /* HANDLE SHORT ZIP CODE (FIVE DIGITS). */
  23.     IF SUBSTR(ZIP,6,4)=' ' THEN    /* CHECK FOR 5 DIGIT CODE. */
  24.        WRKZIP=ZIP;
  25.  
  26. /* RETURN TO CALLER. */
  27.     RETURN(WRKZIP);
  28.     END OUT_ZIP;
  29.  
  30.