home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / VSCPPv7.zip / VACPP / IBMCPP / macros / CODE / DFTOS2.LXL < prev    next >
Text File  |  1995-05-08  |  558b  |  19 lines
  1. /*****************************************************************************/
  2. /* DEFAULT PROFILE FOR LOCAL (OS/2) FILES.                                   */
  3. /*****************************************************************************/
  4.  
  5. 'EXTRACT PREFIXFORMAT'
  6. IF PREFIXFORMAT = '99999999' THEN DO
  7.    'SET PREFIXDISPLAYFORMAT 99999999'
  8.    'ISPFPRF'
  9. END
  10. IF PREFIXFORMAT = '999999XXXXXX' THEN DO
  11.    'SET PREFIXDISPLAYFORMAT 999999 XX/XX/XX'
  12.    'SEUPRF'
  13. END
  14. IF PREFIXFORMAT = '' THEN DO
  15.    'SET PREFIXDISPLAYFORMAT 99999'
  16.    'SEUPRF'
  17. END
  18.  
  19.