Esempi di stampe in Cobol

Altre pagine:	1] Gestire le stampanti		3] Esempio pratico
	2] Fasi preparative		4] Adattare i programmi esistenti

Utilizzo delle stampanti di Windows da RM/COBOL.

In questa pagina trovate un esempio di programma che esegue la stampa di un file testo utilizzando una stampante di Windows.
Se si sceglie una stampante a matrice o una Laser per la stampa verrà utilizzato il set di caratteri Monotype 12, se si sceglie una stampante generica ad impatto verranno utilizzati i caratteri nativi a 10 caratteri per pollice.
Per le stampanti con tecnologia raster viene il marigie superiore viene fissato a 5 cm dal bordo ed il margine sinistro a 3.75 cm.
Per le altre stampanti non viene fissato nessun margine.
Queste operazioni avvengono in modo del tutto automatico.

Le librerie standard di RM/COBOL

Vengono utilizzate le seguenti librerie:

windefs.cpy

      *
      *    Miscellaneous Windows Definitions
      *
      *
      *    C$PlaySound Options
      *
       78  SoundSync                    Value 0.
       78  SoundAsync                   Value 2 ** 0.
       78  SoundNoDefault               Value 2 ** 1.
       78  SoundNoStop                  Value 2 ** 4.
       78  SoundPurge                   Value 2 ** 6.
       78  SoundApplication             Value 2 ** 7.
       78  SoundNoWait                  Value 2 ** 13.
       78  SoundAlias                   Value 2 ** 16.
       78  SoundFilename                Value 2 ** 17.
       78  SoundAliasId                 Value (2 ** 16) + (2 ** 20).
      *
      *    Pen Style Values
      *
       78  PenStyleSolid                Value 0.
       78  PenStyleDash                 Value 1.
       78  PenStyleDot                  Value 2.
       78  PenStyleDashDot              Value 3.
       78  PenStyleDashDotDot           Value 4.
       78  PenStyleNull                 Value 5.
      *
      *    Position Alignment Argument Values
      *
       78  PositionIsTop                Value "Top".
       78  PositionIsBottom             Value "Bottom".
      *
      *    Position Mode Argument Values
      *
       78  ModeIsAbsolute               Value "Absolute".
       78  ModeIsRelative               Value "Relative".
      *
      *    Position Unit Argument Values
      *
       78  UnitsAreInches               Value "Inches".
       78  UnitsAreMetric               Value "Metric".
       78  UnitsAreCharacters           Value "Characters".
       78  UnitsAreDeviceUnits          Value "Device Units".
      *
      *    Yes/No Argument Values
      *
       78  DrawBoxWithShading           Value "Yes".
       78  DrawBoxWithoutShading        Value "No".
       78  DrawBoxNoShading             Value "No".
       78  TextOutWithBox               Value "Yes".
       78  TextOutWithoutBox            Value "No".
       78  TextOutNoBox                 Value "No".
       78  TextOutWithShading           Value "Yes".
       78  TextOutWithoutShading        Value "No".
       78  TextOutNoShading             Value "No".
       78  WithBox                      Value "Yes".
       78  WithoutBox                   Value "No".
       78  NoBox                        Value "No".
       78  WithShading                  Value "Yes".
       78  WithoutShading               Value "No".
       78  NoShading                    Value "No".
      *
      *    Color Argument Values
      *
       78  ColorBlack                   Value "Black".
       78  ColorDarkBlue                Value "Dark Blue".
       78  ColorDarkGreen               Value "Dark Green".
       78  ColorDarkCyan                Value "Dark Cyan".
       78  ColorDarkRed                 Value "Dark Red".
       78  ColorDarkMagenta             Value "Dark Magenta".
       78  ColorBrown                   Value "Brown".
       78  ColorDarkGray                Value "Dark Gray".
       78  ColorLightGray               Value "Light Gray".
       78  ColorBlue                    Value "Blue".
       78  ColorGreen                   Value "Green".
       78  ColorCyan                    Value "Cyan".
       78  ColorRed                     Value "Red".
       78  ColorMagenta                 Value "Magenta".
       78  ColorYellow                  Value "Yellow".
       78  ColorWhite                   Value "White".
      *
      *    Pitch Name Values
      *
       78  PitchNormal                  Value "Normal".
       78  PitchExpanded                Value "Expanded".
       78  PitchCompressed              Value "Compressed".
      *
      *    Orientation Values
      *
       78  OrientationPortrait          Value "Portrait".
       78  OrientationLandscape         Value "Landscape".

printdlg.cpy

      *
      *    Print Dialog Definitions
      *
        01  PrintDialog.
            02  PD-ReturnValue                Picture X.
                88  PD-OKReturn                 Value 'Y'
                                           When False 'N'.
            02  PD-ExtendedErrorValue         Picture 9(5) Binary(2).
                88  PD-ExtErrIsCanceled         Value 0.

                88  PD-ExtErrIsStructSize       Value 1.
                88  PD-ExtErrIsInitialization   Value 2.
                88  PD-ExtErrIsNoTemplate       Value 3.
                88  PD-ExtErrIsNoHInstance      Value 4.
                88  PD-ExtErrIsLoadStrFailure   Value 5.
                88  PD-ExtErrIsFindResFailure   Value 6.
                88  PD-ExtErrIsLoadResFailure   Value 7.
                88  PD-ExtErrIsLockResFailure   Value 8.
                88  PD-ExtErrIsMemAllocFailure  Value 9.
                88  PD-ExtErrIsMemLockFailure   Value 10.
                88  PD-ExtErrIsNoHook           Value 11.
                88  PD-ExtErrIsRegisterMsgFail  Value 12.
 
                88  PD-ExtErrIsSetupFailure     Value 4097.
                88  PD-ExtErrIsParseFailure     Value 4098.
                88  PD-ExtErrIsRetDefFailure    Value 4099.
                88  PD-ExtErrIsLoadDrvFailure   Value 4100.
                88  PD-ExtErrIsGetDevModeFail   Value 4101.
                88  PD-ExtErrIsInitFailure      Value 4102.
                88  PD-ExtErrIsNoDevices        Value 4103.
                88  PD-ExtErrIsNoDefaultPrn     Value 4104.
                88  PD-ExtErrIsDNDMMismatch     Value 4105.
                88  PD-ExtErrIsCreateICFailure  Value 4106.
                88  PD-ExtErrIsPrinterNotFound  Value 4107.
                88  PD-ExtErrIsDefaultDifferent Value 4108.
 
                88  PD-ExtErrIsDialogFailure    Value 65535.
 
            02  PD-Flags.
                03  PD-AllPagesFlagValue      Picture X.
                    88  PD-AllPagesFlag         Value 'Y'
                                           When False 'N'.
                03  PD-SelectionFlagValue     Picture X.
                    88  PD-SelectionFlag        Value 'Y'
                                           When False 'N'.
                03  PD-PageNumbersFlagValue   Picture X.
                    88  PD-PageNumbersFlag      Value 'Y'
                                           When False 'N'.
                03  PD-NoSelectionFlagValue   Picture X.
                    88  PD-NoSelectionFlag      Value 'Y'
                                           When False 'N'.
                03  PD-NoPageNumbersFlagValue Picture X.
                    88  PD-NoPageNumbersFlag    Value 'Y'
                                           When False 'N'.
                03  PD-CollateFlagValue       Picture X.
                    88  PD-CollateFlag          Value 'Y'
                                           When False 'N'.
                03  PD-PrintSetupFlagValue       Picture X.
                    88  PD-PrintSetupFlag       Value 'Y'
                                           When False 'N'.
                03  PD-PrintToFileFlagValue   Picture X.
                    88  PD-PrintToFileFlag      Value 'Y'
                                           When False 'N'.
                03  PD-NoWarningFlagValue     Picture X.
                    88  PD-NoWarningFlag        Value 'Y'
                                           When False 'N'.
                03  PD-UseDevModeCopiesFlagValue Picture X.
                    88  PD-UseDevModeCopiesFlag Value 'Y'
                                           When False 'N'.
                03  PD-DisablePrintToFileFlagValue Picture X.
                    88  PD-DisablePrintToFileFlag Value 'Y'
                                            When False 'N'.
                03  PD-HidePrintToFileFlagValue Picture X.
                    88  PD-HidePrintToFileFlag  Value 'Y'
                                           When False 'N'.
                03  PD-NoNetworkButtonFlagValue Picture X.
                    88  PD-NoNetworkButtonFlag  Value 'Y'
                                           When False 'N'.
            02  PD-FromPage                   Picture 9(5) Binary(2).
            02  PD-ToPage                     Picture 9(5) Binary(2).
            02  PD-MinPage                    Picture 9(5) Binary(2).
            02  PD-MaxPage                    Picture 9(5) Binary(2).
            02  PD-Copies                     Picture 9(5) Binary(2).
 
            02  DM-DeviceName                 Picture X(80).
            02  DM-Fields.
                03  DM-OrientationFieldValue  Picture X.
                    88  DM-OrientationField     Value 'Y'
                                           When False 'N'.
                03  DM-PaperSizeFieldValue    Picture X.
                    88  DM-PaperSizeField       Value 'Y'
                                           When False 'N'.
                03  DM-PaperLengthFieldValue  Picture X.
                    88  DM-PaperLengthField     Value 'Y'
                                           When False 'N'.
                03  DM-PaperWidthFieldValue   Picture X.
                    88  DM-PaperWidthField      Value 'Y'
                                           When False 'N'.
                03  DM-ScaleFieldValue        Picture X.
                    88  DM-ScaleField           Value 'Y'
                                           When False 'N'.
                03  DM-CopiesFieldValue       Picture X.
                    88  DM-CopiesField          Value 'Y'
                                           When False 'N'.
                03  DM-PaperSourceFieldValue  Picture X.
                    88  DM-PaperSourceField     Value 'Y'
                                           When False 'N'.
                03  DM-PrintQualityFieldValue Picture X.
                    88  DM-PrintQualityField    Value 'Y'
                                           When False 'N'.
                03  DM-ColorFieldValue        Picture X.
                    88  DM-ColorField           Value 'Y'
                                           When False 'N'.
                03  DM-DuplexFieldValue       Picture X.
                    88  DM-DuplexField          Value 'Y'
                                           When False 'N'.
                03  DM-YResolutionFieldValue  Picture X.
                    88  DM-YResolutionField     Value 'Y'
                                           When False 'N'.
                03  DM-TrueTypeOptionFieldValue Picture X.
                    88  DM-TrueTypeOptionField  Value 'Y'
                                           When False 'N'.
                03  DM-CollateFieldValue      Picture X.
                    88  DM-CollateField         Value 'Y'
                                           When False 'N'.
                03  DM-ICMMethodFieldValue    Picture X.
                    88  DM-ICMMethodField       Value 'Y'
                                           When False 'N'.
                03  DM-ICMIntentFieldValue    Picture X.
                    88  DM-ICMIntentField       Value 'Y'
                                           When False 'N'.
                03  DM-MediaTypeFieldValue    Picture X.
                    88  DM-MediaTypeField       Value 'Y'
                                           When False 'N'.
                03  DM-DitherTypeFieldValue   Picture X.
                    88  DM-DitherTypeField      Value 'Y'
                                           When False 'N'.
            02  DM-OrientationValue           Picture 9 Binary(2).
                88  DM-OrientationIsPortrait    Value 1.
                88  DM-OrientationIsLandscape   Value 2.
            02  DM-PaperSizeValue             Picture 9(2) Binary(2).
                88  DM-PaperSizeIsLetter        Value 1.
                88  DM-PaperSizeIsLetterSmall   Value 2.
                88  DM-PaperSizeIsTabloid       Value 3.
                88  DM-PaperSizeIsLedger        Value 4.
                88  DM-PaperSizeIsLegal         Value 5.
                88  DM-PaperSizeIsStatement     Value 6.
                88  DM-PaperSizeIsExecutive     Value 7.
                88  DM-PaperSizeIsA3            Value 8.
                88  DM-PaperSizeIsA4            Value 9.
                88  DM-PaperSizeIsA4Small       Value 10.
                88  DM-PaperSizeIsA5            Value 11.
                88  DM-PaperSizeIsB4            Value 12.
                88  DM-PaperSizeIsB5            Value 13.
                88  DM-PaperSizeIsFolio         Value 14.
                88  DM-PaperSizeIsQuarto        Value 15.
                88  DM-PaperSizeIs10x14         Value 16.
                88  DM-PaperSizeIs11x17         Value 17.
                88  DM-PaperSizeIsNote          Value 18.
                88  DM-PaperSizeIsEnv9          Value 19.
                88  DM-PaperSizeIsEnv10         Value 20.
                88  DM-PaperSizeIsEnv11         Value 21.
                88  DM-PaperSizeIsEnv12         Value 22.
                88  DM-PaperSizeIsEnv14         Value 23.
                88  DM-PaperSizeIsCSheet        Value 24.
                88  DM-PaperSizeIsDSheet        Value 25.
                88  DM-PaperSizeIsESheet        Value 26.
                88  DM-PaperSizeIsEnvDl         Value 27.
                88  DM-PaperSizeIsEnvC5         Value 28.
                88  DM-PaperSizeIsEnvC3         Value 29.
                88  DM-PaperSizeIsEnvC4         Value 30.
                88  DM-PaperSizeIsEnvC6         Value 31.
                88  DM-PaperSizeIsEnvC65        Value 32.
                88  DM-PaperSizeIsEnvB4         Value 33.
                88  DM-PaperSizeIsEnvB5         Value 34.
                88  DM-PaperSizeIsEnvB6         Value 35.
                88  DM-PaperSizeIsEnvItaly      Value 36.
                88  DM-PaperSizeIsEnvMonarch    Value 37.
                88  DM-PaperSizeIsEnvPersonal   Value 38.
                88  DM-PaperSizeIsFanFoldUS     Value 39.
                88  DM-PaperSizeIsFanFoldStdGerman Value 40.
                88  DM-PaperSizeIsFanFoldLglGerman Value 41.
            02  DM-PaperLength                Picture 9(5) Binary(2).
            02  DM-PaperWidth                 Picture 9(5) Binary(2).
            02  DM-Scale                      Picture 9(5) Binary(2).
            02  DM-Copies                     Picture 9(5) Binary(2).
            02  DM-PaperSourceValue           Picture 9(2) Binary(2).
                88  DM-PaperSourceIsUpper       Value 1.
                88  DM-PaperSourceIsOnlyOne     Value 1.
                88  DM-PaperSourceIsLower       Value 2.
                88  DM-PaperSourceIsMiddle      Value 3.
                88  DM-PaperSourceIsManual      Value 4.
                88  DM-PaperSourceIsEnvelope    Value 5.
                88  DM-PaperSourceIsEnvManual   Value 6.
                88  DM-PaperSourceIsAuto        Value 7.
                88  DM-PaperSourceIsTractor     Value 8.
                88  DM-PaperSourceIsSmallFmt    Value 9.
                88  DM-PaperSourceIsLargeFmt    Value 10.
                88  DM-PaperSourceIsLargeCapacity Value 11.
                88  DM-PaperSourceIsCassette    Value 14.
                88  DM-PaperSourceIsFormSource  Value 15.
            02  DM-ResolutionValue            Picture S9 Binary(2).
                88  DM-ResolutionIsDraft        Value -1.
                88  DM-ResolutionIsLow          Value -2.
                88  DM-ResolutionIsMedium       Value -3.
                88  DM-ResolutionIsHigh         Value -4.
            02  DM-ColorValue                 Picture 9 Binary(2).
                88  DM-ColorIsMonochrome        Value 1.
                88  DM-ColorIsColor             Value 2.
            02  DM-DuplexValue                Picture 9 Binary(2).
                88  DM-DuplexIsSimplex          Value 1.
                88  DM-DuplexIsVertical         Value 2.
                88  DM-DuplexIsHorizontal       Value 3.
            02  DM-YResolution                Picture 9(5) Binary(2).
            02  DM-TrueTypeValue              Picture 9 Binary(2).
                88  DM-TrueTypeIsBitmap         Value 1.
                88  DM-TrueTypeIsDownload       Value 2.
                88  DM-TrueTypeIsSubDev         Value 3.
            02  DM-CollateValue               Picture 9 Binary(2).
                88  DM-CollateIsFalse           Value 0.
                88  DM-CollateIsTrue            Value 1.
            02  DM-ICMMethodValue             Picture 9 Binary(4).
                88  DM-ICMMethodIsNone          Value 1.
                88  DM-ICMMethodIsSystem        Value 2.
                88  DM-ICMMethodIsDriver        Value 3.
                88  DM-ICMMethodIsDevice        Value 4.
            02  DM-ICMIntentValue             Picture 9 Binary(4).
                88  DM-ICMIntentIsSaturate      Value 1.
                88  DM-ICMIntentIsContrast      Value 2.
                88  DM-ICMIntentIsColorMetric   Value 3.
            02  DM-MediaTypeValue             Picture 9 Binary(4).
                88  DM-MediaTypeIsStandard      Value 1.
                88  DM-MediaTypeIsTransparency  Value 2.
                88  DM-MediaTypeIsGlossy        Value 3.
            02  DM-DitherTypeValue            Picture 99 Binary(4).
                88  DM-DitherTypeIsNone         Value 1.
                88  DM-DitherTypeIsCoarse       Value 2.
                88  DM-DitherTypeIsFine         Value 3.
                88  DM-DitherTypeIsLineArt      Value 4.
                88  DM-DitherTypeIsErrorDiffusion Value 5.
                88  DM-DitherTypeIsGrayScale    Value 10.
      *
      *    Print Dialog Extended Error Values
      *
       78  PD-ExtErrCanceled                    Value 0.
 
       78  PD-ExtErrStructSize                  Value 1.
       78  PD-ExtErrInitialization              Value 2.
       78  PD-ExtErrNoTemplate                  Value 3.
       78  PD-ExtErrNoHInstance                 Value 4.
       78  PD-ExtErrLoadStrFailure              Value 5.
       78  PD-ExtErrFindResFailure              Value 6.
       78  PD-ExtErrLoadResFailure              Value 7.
       78  PD-ExtErrLockResFailure              Value 8.
       78  PD-ExtErrMemAllocFailure             Value 9.
       78  PD-ExtErrMemLockFailure              Value 10.
       78  PD-ExtErrNoHook                      Value 11.
       78  PD-ExtErrRegisterMsgFail             Value 12.

       78  PD-ExtErrSetupFailure                Value 4097.
       78  PD-ExtErrParseFailure                Value 4098.
       78  PD-ExtErrRetDefFailure               Value 4099.
       78  PD-ExtErrLoadDrvFailure              Value 4100.
       78  PD-ExtErrGetDevModeFail              Value 4101.
       78  PD-ExtErrInitFailure                 Value 4102.
       78  PD-ExtErrNoDevices                   Value 4103.
       78  PD-ExtErrNoDefaultPrn                Value 4104.
       78  PD-ExtErrDNDMMismatch                Value 4105.
       78  PD-ExtErrCreateICFailure             Value 4106.
       78  PD-ExtErrPrinterNotFound             Value 4107.
       78  PD-ExtErrDefaultDifferent            Value 4108.

       78  PD-ExtErrDialogFailure               Value 65535.
      *
      *    Device Mode Orientation Values
      *
       78  DM-OrientationPortrait               Value 1.
       78  DM-OrientationLandscape              Value 2.
      *
      *    Device Mode Paper Size Values
      *
       78  DM-PaperSizeLetter                   Value 1.
       78  DM-PaperSizeLetterSmall              Value 2.
       78  DM-PaperSizeTabloid                  Value 3.
       78  DM-PaperSizeLedger                   Value 4.
       78  DM-PaperSizeLegal                    Value 5.
       78  DM-PaperSizeStatement                Value 6.
       78  DM-PaperSizeExecutive                Value 7.
       78  DM-PaperSizeA3                       Value 8.
       78  DM-PaperSizeA4                       Value 9.
       78  DM-PaperSizeA4Small                  Value 10.
       78  DM-PaperSizeA5                       Value 11.
       78  DM-PaperSizeB4                       Value 12.
       78  DM-PaperSizeB5                       Value 13.
       78  DM-PaperSizeFolio                    Value 14.
       78  DM-PaperSizeQuarto                   Value 15.
       78  DM-PaperSize10x14                    Value 16.
       78  DM-PaperSize11x17                    Value 17.
       78  DM-PaperSizeNote                     Value 18.
       78  DM-PaperSizeEnv9                     Value 19.
       78  DM-PaperSizeEnv10                    Value 20.
       78  DM-PaperSizeEnv11                    Value 21.
       78  DM-PaperSizeEnv12                    Value 22.
       78  DM-PaperSizeEnv14                    Value 23.
       78  DM-PaperSizeCSheet                   Value 24.
       78  DM-PaperSizeDSheet                   Value 25.
       78  DM-PaperSizeESheet                   Value 26.
       78  DM-PaperSizeEnvDl                    Value 27.
       78  DM-PaperSizeEnvC5                    Value 28.
       78  DM-PaperSizeEnvC3                    Value 29.
       78  DM-PaperSizeEnvC4                    Value 30.
       78  DM-PaperSizeEnvC6                    Value 31.
       78  DM-PaperSizeEnvC65                   Value 32.
       78  DM-PaperSizeEnvB4                    Value 33.
       78  DM-PaperSizeEnvB5                    Value 34.
       78  DM-PaperSizeEnvB6                    Value 35.
       78  DM-PaperSizeEnvItaly                 Value 36.
       78  DM-PaperSizeEnvMonarch               Value 37.
       78  DM-PaperSizeEnvPersonal              Value 38.
       78  DM-PaperSizeFanFoldUS                Value 39.
       78  DM-PaperSizeFanFoldStdGerman         Value 40.
       78  DM-PaperSizeFanFoldLglGerman         Value 41.
      *
      *    Device Mode Paper Source Values
      *
       78  DM-PaperSourceUpper                  Value 1.
       78  DM-PaperSourceOnlyOne                Value 1.
       78  DM-PaperSourceLower                  Value 2.
       78  DM-PaperSourceMiddle                 Value 3.
       78  DM-PaperSourceManual                 Value 4.
       78  DM-PaperSourceEnvelope               Value 5.
       78  DM-PaperSourceEnvManual              Value 6.
       78  DM-PaperSourceAuto                   Value 7.
       78  DM-PaperSourceTractor                Value 8.
       78  DM-PaperSourceSmallFmt               Value 9.
       78  DM-PaperSourceLargeFmt               Value 10.
       78  DM-PaperSourceLargeCapacity          Value 11.
       78  DM-PaperSourceCassette               Value 14.
       78  DM-PaperSourceFormSource             Value 15.
      *
      *    Device Mode Resolution Values
      *
       78  DM-ResolutionDraft                   Value -1.
       78  DM-ResolutionLow                     Value -2.
       78  DM-ResolutionMedium                  Value -3.
       78  DM-ResolutionHigh                    Value -4.
      *
      *    Device Mode Color Values
      *
       78  DM-ColorMonochrome                   Value 1.
       78  DM-ColorColor                        Value 2.
      *
      *    Device Mode Duplex Values
      *
       78  DM-DuplexSimplex                     Value 1.
       78  DM-DuplexVertical                    Value 2.
       78  DM-DuplexHorizontal                  Value 3.
      *
      *    Device Mode True Type Values
      *
       78  DM-TrueTypeBitmap                    Value 1.
       78  DM-TrueTypeDownload                  Value 2.
       78  DM-TrueTypeSubDev                    Value 3.
      *
      *    Device Mode Collate Values
      *
       78  DM-CollateFalse                      Value 0.
       78  DM-CollateTrue                       Value 1.
      *
      *    Device ICM Method Values
      *
       78  DM-ICMMethodNone                     Value 1.
       78  DM-ICMMethodSystem                   Value 2.
       78  DM-ICMMethodDriver                   Value 3.
       78  DM-ICMMethodDevice                   Value 4.
      *
      *    Device ICM Type Values
      *
       78  DM-ICMTypeSaturate                   Value 1.
       78  DM-ICMTypeContrast                   Value 2.
       78  DM-ICMTypeColorMetric                Value 3.
      *
      *    Device Mode Media Type Values
      *
       78  DM-MediaTypeStandard                 Value 1.
       78  DM-MediaTypeTransparency             Value 2.
       78  DM-MediaTypeGlossy                   Value 3.
      *
      *    Device Mode Dither Type Values
      *
       78  DM-DitherTypeNone                    Value 1.
       78  DM-DitherTypeCoarse                  Value 2.
       78  DM-DitherTypeFine                    Value 3.
       78  DM-DitherTypeLineArt                 Value 4.
       78  DM-DitherTypeErrorDiffusion          Value 5.
       78  DM-DitherTypeGrayScale               Value 10.
      *
      *    P$DisplayDialog return values
      *
       78  PD-ReturnOK                          Value 0.
       78  PD-ReturnCancelled                   Value 1.
       78  PD-ReturnError                       Value 2.
      *
      *    Parameter Name Values
      *
       78  PD-ReturnParam                       Value "Return".
       78  PD-ExtendedErrorParam                Value "Extended Error".

       78  PD-AllPagesFlagParam                 Value "All Pages Flag".
       78  PD-SelectionFlagParam                Value "Selection Flag".
       78  PD-PageNumbersFlagParam              Value
                                          "Page Numbers Flag".
       78  PD-NoSelectionFlagParam              Value
                                          "No Selection Flag".
       78  PD-NoPageNumbersFlagParam            Value
                                          "No Page Numbers Flag".
       78  PD-CollateFlagParam                  Value "Collate Flag".
       78  PD-PrintSetupFlagParam               Value
                                          "Print Setup Flag".
       78  PD-PrintToFileFlagParam              Value
                                          "Print To File Flag".
       78  PD-NoWarningFlagParam                Value "No Warning Flag".
       78  PD-UseDevModeCopiesFlagParam         Value
                                          "Use Device Mode Copies Flag".
       78  PD-DisablePrintToFileFlagParam       Value
                                          "Disable Print To File Flag".
       78  PD-HidePrintToFileFlagParam          Value
                                          "Hide Print To File Flag".
       78  PD-NoNetworkButtonFlagParam          Value
                                          "No Network Button Flag".

       78  PD-FromPageParam                     Value "From Page".
       78  PD-ToPageParam                       Value "To Page".
       78  PD-MinPageParam                      Value "Min Page".
       78  PD-MaxPageParam                      Value "Max Page".
       78  PD-PrintDialogCopiesParam            Value
                                              "Print Dialog Copies".

       78  DM-DeviceNameParam                   Value "Device Name".
       78  DM-OrientationParam                  Value "Orientation".
       78  DM-PaperSizeParam                    Value "Paper Size".
       78  DM-PaperLengthParam                  Value "Paper Length".
       78  DM-PaperWidthParam                   Value "Paper Width".
       78  DM-ScaleParam                        Value "Scale".
       78  DM-DeviceModeCopiesParam             Value
                                              "Device Mode Copies".
       78  DM-DefaultSourceParam                Value "Default Source".
       78  DM-PrintQualityParam                 Value "Print Quality".
       78  DM-ColorParam                        Value "Color".
       78  DM-DuplexParam                       Value "Duplex".
       78  DM-YResolutionParam                  Value "Y Resolution".
       78  DM-TrueTypeOptionParam               Value
                                              "True Type Option".
       78  DM-CollateParam                      Value "Collate".
       78  DM-ICMMethodParam                    Value "ICM Method".
       78  DM-ICMIntentParam                    Value "ICM Intent".
       78  DM-MediaTypeParam                    Value "Media Type".
       78  DM-DitherTypeParam                   Value "Dither Type".

devcaps.cpy

      *
      *    Device Capabilities Definitions
      *
        01 DeviceCapabilities.
           02  DC-DriverVersion               Picture 9(10) Binary(4).
           02  DC-TechnologyValue             Picture 9     Binary(4).
               88  DC-TechnologyIsPlotter       Value 0.
               88  DC-TechnologyIsRASDisplay    Value 1.
               88  DC-TechnologyIsRASPrinter    Value 2.
               88  DC-TechnologyIsRASCamera     Value 3.
               88  DC-TechnologyIsCharStream    Value 4.
               88  DC-TechnologyIsRASMetafile   Value 5.
               88  DC-TechnologyIsRASDispfile   Value 6.
           02  DC-HorzSize                    Picture 9(10) Binary(4).
           02  DC-VertSize                    Picture 9(10) Binary(4).
           02  DC-HorzRes                     Picture 9(10) Binary(4).
           02  DC-VertRes                     Picture 9(10) Binary(4).
           02  DC-LogPixelsX                  Picture 9(10) Binary(4).
           02  DC-LogPixelsY                  Picture 9(10) Binary(4).
           02  DC-AspectX                     Picture 9(10) Binary(4).
           02  DC-AspectY                     Picture 9(10) Binary(4).
           02  DC-AspectXY                    Picture 9(10) Binary(4).
           02  DC-PhysicalWidth               Picture 9(10) Binary(4).
           02  DC-PhysicalHeight              Picture 9(10) Binary(4).
           02  DC-PhysicalOffsetX             Picture 9(10) Binary(4).
           02  DC-PhysicalOffsetY             Picture 9(10) Binary(4).
           02  DC-ScalingFactorX              Picture 9(10) Binary(4).
           02  DC-ScalingFactorY              Picture 9(10) Binary(4).
      *
      *    Technology Values
      *
       78  DC-TechnologyPlotter                 Value 0.
       78  DC-TechnologyRASDisplay              Value 1.
       78  DC-TechnologyRASPrinter              Value 2.
       78  DC-TechnologyRASCamera               Value 3.
       78  DC-TechnologyCharStream              Value 4.
       78  DC-TechnologyRASMetafile             Value 5.
       78  DC-TechnologyRASDispfile             Value 6.
      *
      *    Parameter Name Values
      *
       78  DC-DriverVersionParam                Value "Driver Version".
       78  DC-TechnologyParam                   Value "Technology".
       78  DC-HorizontalSizeParam               Value "Horizontal Size".
       78  DC-VerticalSizeParam                 Value "Vertical Size".
       78  DC-HorizontalResolutionParam         Value
                                              "Horizontal Resolution".
       78  DC-VerticalResolutionParam           Value
                                              "Vertical Resolution".
       78  DC-LogicalPixelsXParam               Value
                                              "Logical Pixels X".
       78  DC-LogicalPixelsYParam               Value
                                              "Logical Pixels Y".
       78  DC-AspectXParam                      Value "Aspect X".
       78  DC-AspectYParam                      Value "Aspect Y".
       78  DC-AspectXYParam                     Value "Aspect XY".
       78  DC-PhysicalWidthParam                Value "Physical Width".
       78  DC-PhysicalHeightParam               Value "Physical Height".
       78  DC-PhysicalOffsetXParam              Value
                                              "Physical Offset X".
       78  DC-PhysicalOffsetYParam              Value
                                              "Physical Offset Y".
       78  DC-ScalingFactorXParam               Value
                                              "Scaling Factor X".
       78  DC-ScalingFactorYParam               Value
                                              "Scaling Factor Y".

logfont.cpy

      *
      *    Logical Font Definitions
      *
        01 LogicalFont.
           02  LF-Height                        Picture S9(5) Binary(2).
           02  LF-Width                         Picture 9(5) Binary(2).
           02  LF-Escapement                    Picture 9(5) Binary(2).
           02  LF-Orientation                   Picture 9(5) Binary(2).
           02  LF-WeightValue                   Picture 9(3) Binary(2).
               88  LF-WeightIsDontCare            Value 0.
               88  LF-WeightIsThin                Value 100.
               88  LF-WeightIsExtraLight          Value 200.
               88  LF-WeightIsUltraLight          Value 200.
               88  LF-WeightIsLight               Value 300.
               88  LF-WeightIsNormal              Value 400.
               88  LF-WeightIsRegular             Value 400.
               88  LF-WeightIsMedium              Value 500.
               88  LF-WeightIsSemiBold            Value 600.
               88  LF-WeightIsDemiBold            Value 600.
               88  LF-WeightIsBold                Value 700.
               88  LF-WeightIsExtraBold           Value 800.
               88  LF-WeightIsUltraBold           Value 800.
               88  LF-WeightIsHeavy               Value 900.
               88  LF-WeightIsBlack               Value 900.
           02  LF-ItalicValue                   Picture X.
               88  LF-Italic                      Value 'Y'
                                             When False 'N'.
           02  LF-UnderlineValue                Picture X.
               88  LF-Underline                   Value 'Y'
                                             When False 'N'.
           02  LF-StrikeoutValue                Picture X.
               88  LF-Strikeout                   Value 'Y'
                                             When False 'N'.
           02  LF-CharSetValue                  Picture 9(3) Binary(2).
               88  LF-CharSetIsANSI               Value 0.
               88  LF-CharSetIsDefault            Value 1.
               88  LF-CharSetIsSymbol             Value 2.
               88  LF-CharSetIsMAC                Value 77.
               88  LF-CharSetIsShiftJIS           Value 128.
               88  LF-CharSetIsHangeul            Value 129.
               88  LF-CharSetIsJohab              Value 130.
               88  LF-CharSetIsChineseBig5        Value 136.
               88  LF-CharSetIsGreek              Value 161.
               88  LF-CharSetIsTurkish            Value 162.
               88  LF-CharSetIsHebrew             Value 177.
               88  LF-CharSetIsArabic             Value 178.
               88  LF-CharSetIsBaltic             Value 186.
               88  LF-CharSetIsRussian            Value 204.
               88  LF-CharSetIsThai               Value 222.
               88  LF-CharSetIsEastEurope         Value 238.
               88  LF-CharSetIsOEM                Value 255.
           02  LF-OutPrecisValue                Picture 9 Binary(2).
               88  LF-OutPrecisIsDefault          Value 0.
               88  LF-OutPrecisIsString           Value 1.
               88  LF-OutPrecisIsStroke           Value 3.
               88  LF-OutPrecisIsTrueType         Value 4.
               88  LF-OutPrecisIsDevice           Value 5.
               88  LF-OutPrecisIsRaster           Value 6.
               88  LF-OutPrecisIsTruTypeOnly      Value 7.
               88  LF-OutPrecisIsOutline          Value 8.
           02  LF-ClipPrecisValue               Picture 9(3) Binary(2).
               88  LF-ClipPrecisIsDefault         Value 0.
               88  LF-ClipPrecisIsStroke          Value 2.
               88  LF-ClipPrecisIsLHAngles        Value 16.
               88  LF-ClipPrecisIsEmbedded        Value 128.
           02  LF-QualityValue                  Picture 9 Binary(2).
               88  LF-QualityIsDefault            Value 0.
               88  LF-QualityIsDraft              Value 1.
               88  LF-QualityIsProof              Value 2.
           02  LF-PitchValue                    Picture 9 Binary(2).
               88  LF-PitchIsDefault              Value 0.
               88  LF-PitchIsFixed                Value 1.
               88  LF-PitchIsVariable             Value 2.
           02  LF-FamilyValue                   Picture 9 Binary(2).
               88  LF-FamilyIsDontCare            Value 0.
               88  LF-FamilyIsRoman               Value 1.
               88  LF-FamilyIsSwiss               Value 2.
               88  LF-FamilyIsModern              Value 3.
               88  LF-FamilyIsScript              Value 4.
               88  LF-FamilyIsDecorative          Value 5.
           02  LF-FaceName                      Picture X(31).
      *
      *    Font Weight Values
      *
       78  LF-WeightDontCare                      Value 0.
       78  LF-WeightThin                          Value 100.
       78  LF-WeightExtraLight                    Value 200.
       78  LF-WeightUltraLight                    Value 200.
       78  LF-WeightLight                         Value 300.
       78  LF-WeightNormal                        Value 400.
       78  LF-WeightRegular                       Value 400.
       78  LF-WeightMedium                        Value 500.
       78  LF-WeightSemiBold                      Value 600.
       78  LF-WeightDemiBold                      Value 600.
       78  LF-WeightBold                          Value 700.
       78  LF-WeightExtraBold                     Value 800.
       78  LF-WeightUltraBold                     Value 800.
       78  LF-WeightHeavy                         Value 900.
       78  LF-WeightBlack                         Value 900.
      *
      *    Font Character Set Values
      *
       78  LF-CharSetANSI                        Value 0.
       78  LF-CharSetDefault                     Value 1.
       78  LF-CharSetSymbol                      Value 2.
       78  LF-CharSetMAC                         Value 77.
       78  LF-CharSetShiftJIS                    Value 128.
       78  LF-CharSetHangeul                     Value 129.
       78  LF-CharSetJohab                       Value 130.
       78  LF-CharSetChineseBig5                 Value 136.
       78  LF-CharSetGreek                       Value 161.
       78  LF-CharSetTurkish                     Value 162.
       78  LF-CharSetHebrew                      Value 177.
       78  LF-CharSetArabic                      Value 178.
       78  LF-CharSetBaltic                      Value 186.
       78  LF-CharSetRussian                     Value 204.
       78  LF-CharSetThai                        Value 222.
       78  LF-CharSetEastEurope                  Value 238.
       78  LF-CharSetOEM                         Value 255.
      *
      *    Font Output Precision Values
      *
       78  LF-OutPrecisDefault                   Value 0.
       78  LF-OutPrecisString                    Value 1.
       78  LF-OutPrecisStroke                    Value 3.
       78  LF-OutPrecisTrueType                  Value 4.
       78  LF-OutPrecisDevice                    Value 5.
       78  LF-OutPrecisRaster                    Value 6.
       78  LF-OutPrecisTruTypeOnly               Value 7.
       78  LF-OutPrecisOutline                   Value 8.
      *
      *    Font Clipping Precision Values
      *
       78  LF-ClipPrecisDefault                  Value 0.
       78  LF-ClipPrecisStroke                   Value 2.
       78  LF-ClipPrecisLHAngles                 Value 16.
       78  LF-ClipPrecisEmbedded                 Value 128.
      *
      *    Font Quality Values
      *
       78  LF-QualityDefault                     Value 0.
       78  LF-QualityDraft                       Value 1.
       78  LF-QualityProof                       Value 2.
      *
      *    Font Pitch Values
      *
       78  LF-PitchDefault                       Value 0.
       78  LF-PitchFixed                         Value 1.
       78  LF-PitchVariable                      Value 2.
      *
      *    Font Family Values
      *
       78  LF-FamilyDontCare                     Value 0.
       78  LF-FamilyRoman                        Value 1.
       78  LF-FamilySwiss                        Value 2.
       78  LF-FamilyModern                       Value 3.
       78  LF-FamilyScript                       Value 4.
       78  LF-FamilyDecorative                   Value 5.
      *
      *    Parameter Name Values
      *
       78  LF-HeightParam                        Value "Height".
       78  LF-WidthParam                         Value "Width".
       78  LF-EscapementParam                    Value "Escapement".
       78  LF-OrientationParam                   Value "Orientation".
       78  LF-WeightParam                        Value "Weight".
       78  LF-ItalicParam                        Value "Italic".
       78  LF-UnderlineParam                     Value "Underline".
       78  LF-StrikeOutParam                     Value "Strike Out".
       78  LF-CharSetParam                       Value "Char Set".
       78  LF-OutPrecisionParam                  Value "Out Precision".
       78  LF-ClipPrecisionParam                 Value "Clip Precision".
       78  LF-QualityParam                       Value "Quality".
       78  LF-PitchParam                         Value "Pitch".
       78  LF-FamilyParam                        Value "Family".
       78  LF-FaceNameParam                      Value "Face Name".

txtmtric.cpy

      *
      *    Text Metric Definitions
      *
        01 TextMetrics.
           02  TM-Height                     Picture 9(10) Binary(4).
           02  TM-Ascent                     Picture 9(10) Binary(4).
           02  TM-Descent                    Picture 9(10) Binary(4).
           02  TM-InternalLeading            Picture 9(10) Binary(4).
           02  TM-ExternalLeading            Picture 9(10) Binary(4).
           02  TM-AveCharWidth               Picture 9(10) Binary(4).
           02  TM-MaxCharWidth               Picture 9(10) Binary(4).
           02  TM-WeightValue                Picture 9(3) Binary(4).
               88  TM-WeightIsDontCare          Value 0.
               88  TM-WeightIsThin              Value 100.
               88  TM-WeightIsExtraLight        Value 200.
               88  TM-WeightIsUltraLight        Value 200.
               88  TM-WeightIsLight             Value 300.
               88  TM-WeightIsNormal            Value 400.
               88  TM-WeightIsRegular           Value 400.
               88  TM-WeightIsMedium            Value 500.
               88  TM-WeightIsSemiBold          Value 600.
               88  TM-WeightIsDemiBold          Value 600.
               88  TM-WeightIsBold              Value 700.
               88  TM-WeightIsExtraBold         Value 800.
               88  TM-WeightIsUltraBold         Value 800.
               88  TM-WeightIsHeavy             Value 900.
               88  TM-WeightIsBlack             Value 900.
           02  TM-Overhang                    Picture 9(10) Binary(4).
           02  TM-DigitizedAspectX            Picture 9(10) Binary(4).
           02  TM-DigitizedAspectY            Picture 9(10) Binary(4).
           02  TM-ItalicValue                 Picture X.
               88  TM-Italic                    Value 'Y'
                                           When False 'N'.
           02  TM-UnderlinedValue             Picture X.
               88  TM-Underlined                Value 'Y'
                                           When False 'N'.
           02  TM-StruckOutValue              Picture X.
               88  TM-StruckOut                 Value 'Y'
                                           When False 'N'.
           02  TM-FirstChar                   Picture X.
           02  TM-LastChar                    Picture X.
           02  TM-DefaultChar                 Picture X.
           02  TM-BreakChar                   Picture X.
           02  TM-PitchValue                  Picture 9 Binary(2).
               88  TM-PitchIsFixedPitch         Value 1.
               88  TM-PitchIsVector             Value 2.
               88  TM-PitchIsTrueType           Value 4.
               88  TM-PitchIsDevice             Value 8.
           02  TM-FamilyValue                 Picture 9 Binary(2).
               88  TM-FamilyIsDontCare          Value 0.
               88  TM-FamilyIsRoman             Value 1.
               88  TM-FamilyIsSwiss             Value 2.
               88  TM-FamilyIsModern            Value 3.
               88  TM-FamilyIsScript            Value 4.
               88  TM-FamilyIsDecorative        Value 5.
           02  TM-CharSetValue                Picture 9(3) Binary(2).
               88  TM-CharSetIsANSI             Value 0.
               88  TM-CharSetIsDefault          Value 1.
               88  TM-CharSetIsSymbol           Value 2.
               88  TM-CharSetIsMAC              Value 77.
               88  TM-CharSetIsShiftJIS         Value 128.
               88  TM-CharSetIsHangeul          Value 129.
               88  TM-CharSetIsJohab            Value 130.
               88  TM-CharSetIsChineseBig5      Value 136.
               88  TM-CharSetIsGreek            Value 161.
               88  TM-CharSetIsTurkish          Value 162.
               88  TM-CharSetIsHebrew           Value 177.
               88  TM-CharSetIsArabic           Value 178.
               88  TM-CharSetIsBaltic           Value 186.
               88  TM-CharSetIsRussian          Value 204.
               88  TM-CharSetIsThai             Value 222.
               88  TM-CharSetIsEastEurope       Value 238.
               88  TM-CharSetIsOEM              Value 255.
      *
      *    Weight Values
      *
       78  TM-WeightDontCare                    Value 0.
       78  TM-WeightThin                        Value 100.
       78  TM-WeightExtraLight                  Value 200.
       78  TM-WeightUltraLight                  Value 200.
       78  TM-WeightLight                       Value 300.
       78  TM-WeightNormal                      Value 400.
       78  TM-WeightRegular                     Value 400.
       78  TM-WeightMedium                      Value 500.
       78  TM-WeightSemiBold                    Value 600.
       78  TM-WeightDemiBold                    Value 600.
       78  TM-WeightBold                        Value 700.
       78  TM-WeightExtraBold                   Value 800.
       78  TM-WeightUltraBold                   Value 800.
       78  TM-WeightHeavy                       Value 900.
       78  TM-WeightBlack                       Value 900.
      *
      *    Pitch Values
      *
       78  TM-PitchFixedPitch                   Value 1.
       78  TM-PitchVector                       Value 2.
       78  TM-PitchTrueType                     Value 4.
       78  TM-PitchDevice                       Value 8.
      *
      *    Family Values
      *
       78  TM-FamilyDontCare                    Value 0.
       78  TM-FamilyRoman                       Value 1.
       78  TM-FamilySwiss                       Value 2.
       78  TM-FamilyModern                      Value 3.
       78  TM-FamilyScript                      Value 4.
       78  TM-FamilyDecorative                  Value 5.
      *
      *    Character Set Values
      *
       78  TM-CharSetANSI                       Value 0.
       78  TM-CharSetDefault                    Value 1.
       78  TM-CharSetSymbol                     Value 2.
       78  TM-CharSetMAC                        Value 77.
       78  TM-CharSetShiftJIS                   Value 128.
       78  TM-CharSetHangeul                    Value 129.
       78  TM-CharSetJohab                      Value 130.
       78  TM-CharSetChineseBig5                Value 136.
       78  TM-CharSetGreek                      Value 161.
       78  TM-CharSetTurkish                    Value 162.
       78  TM-CharSetHebrew                     Value 177.
       78  TM-CharSetArabic                     Value 178.
       78  TM-CharSetBaltic                     Value 186.
       78  TM-CharSetRussian                    Value 204.
       78  TM-CharSetThai                       Value 222.
       78  TM-CharSetEastEurope                 Value 238.
       78  TM-CharSetOEM                        Value 255.
      *
      *    Parameter Name Values
      *
       78  TM-HeightParam                       Value "Height".
       78  TM-AscentParam                       Value "Ascent".
       78  TM-DescentParam                      Value "Descent".
       78  TM-InternalLeadingParam              Value
                                              "Internal Leading".
       78  TM-ExternalLeadingParam              Value
                                              "External Leading".
       78  TM-AverageCharacterWidthParam        Value
                                              "Average Character Width".
       78  TM-MaximumCharacterWidthParam        Value
                                              "Maximum Character Width".
       78  TM-WeightParam                       Value "Weight".
       78  TM-OverhangParam                     Value "Overhang".
       78  TM-DigitizedAspectXParam             Value
                                              "Digitized Aspect X".
       78  TM-DigitizedAspectYParam             Value
                                              "Digitized Aspect Y".
       78  TM-FirstCharacterParam               Value "First Character".
       78  TM-LastCharacterParam                Value "Last Character".
       78  TM-DefaultCharacterParam             Value
                                              "Default Character".
       78  TM-BreakCharacterParam               Value "Break Character".
       78  TM-ItalicParam                       Value "Italic".
       78  TM-UnderlinedParam                   Value "Underlined".
       78  TM-StruckOutParam                    Value "Struck Out".
       78  TM-PitchParam                        Value "Pitch".
       78  TM-FamilyParam                       Value "Family".
       78  TM-CharacterSetParam                 Value "Character Set".

Il programma

Ho cercato di ridurlo al minimo per semplificarne la lettura:

Programma semplificato per la stampa di un file testo.

000000 IDENTIFICATION DIVISION.
000001 PROGRAM-ID.  LP-EX-01.
000002*
000003*                Esempio utilizzo stampante di Windows
000004*
000005*
000006 ENVIRONMENT DIVISION.
000007 CONFIGURATION SECTION.
000008 SOURCE-COMPUTER.  RMC10.
000009 OBJECT-COMPUTER.  RMC10.
000010*
000011*
000012 INPUT-OUTPUT SECTION.
000013 FILE-CONTROL.
000014*
000015*
000016     SELECT F01        ASSIGN            DISC
000017                       "Testo.txt"
000018                       ORGANIZATION LINE SEQUENTIAL
000019                       ACCESS            SEQUENTIAL
000020                       STATUS            ERF01.
000021*
000022*
000023     SELECT LO         ASSIGN PRINTER
000024                       "PRINTER?".
000025*
000026*
000027 DATA DIVISION.
000028 FILE SECTION.
000029*                      FILE DI INPUT
000030*
000031 FD           F01      RECORD VARYING FROM 1 TO 128
000032                       DEPENDING ON LUNGO
000033                       LABEL RECORD   STANDARD.
000034*
000035 1   F01REC              PIC X(128).
000036 1   F01REC-MIN          PIC X.
000037*
000038*
000039*
000040 FD           LO       LABEL RECORD OMITTED.
000041*
000042 1   RIGA                PIC X(132).
000043*
000044/
000045 WORKING-STORAGE SECTION.
000046*
000047*
000048 1   PROGRAMMA.
000049  2  FILLER           PIC X(08)        VALUE "LP-EX-01".
000050  2  FILLER           PIC X            VALUE "-".
000051  2  COMPILATO        PIC 9(6).
000052*
000053 78  DATE-COMP                         VALUE IS DATE-COMPILED.
000054*
000055*
000056*      Campi riservati per la gestione degli status files.
000057*
000058 1    TXE.
000059  2   FILLER     PIC X(14)       VALUE "Error on file ".
000060  2   FILEN      PIC X(11).  *> Nome del file
000061*
000062 1    TXE1.
000063  2   FILLER     PIC X(14)       VALUE "Status is  ".
000064  2   FILESTEX.
000065  3   FILEST     PIC XX.     *> Status primario
000066  3   FILLER     PIC XX.     *> Status secondario
000067*
000068 1    TXS        PIC X(80)       VALUE SPACES.
000069*      Costanti & campi di lavori
000070*
000071 1    WC         PIC XX          VALUE "00".
000072 1    SLF        PIC  9.      *> Per la gestione del record lock
000073 1    A1         PIC  X.
000074*
000075*      Campi specifici ogni ogni file
000076*
000077 1    LUNGO      PIC 9(4).
000078 1    ERF01      PIC XX.
000079*
000080*              CAMPI DI AIUTO PER STAMPE
000081*              ------------------------- 
000082*
000083 01 WS-ARGS.
000084     03 WS-X                     PIC 9(9)V9(3) VALUE ZERO.
000085     03 WS-Y                     PIC 9(9)V9(3) VALUE ZERO.
000086     03 WS-X-SIZE                PIC 9(9)V9(3) VALUE ZERO.
000087     03 WS-Y-SIZE                PIC 9(9)V9(3) VALUE ZERO.
000088     03 Point-Size               Pic 9(2)      Value 12.
000089     03 WS-MODE                  PIC X.
000090        88 WS-MODE-ABSOLUTE      VALUE "A".
000091        88 WS-MODE-RELATIVE      VALUE "R".
000092     03 WS-UNITS                 PIC X.
000093        88 WS-UNITS-INCHES       VALUE "I".
000094        88 WS-UNITS-CHARACTERS   VALUE "C".
000095        88 WS-UNITS-METRIC       VALUE "M".
000096        88 WS-UNITS-DEVICE       VALUE "D".
000097     03 WS-BOX                   PIC X.
000098        88 WS-DRAW-BOX           VALUE "Y" WHEN FALSE "N".
000099     03 WS-SHADE                 PIC X     VALUE "N".
000100        88 WS-SHADE-BOX          VALUE "Y" WHEN FALSE "N".
000101     03 WS-CLEAR                 PIC X.
000102        88 WS-CLEAR-FLAG         VALUE "Y" WHEN FALSE "N".
000103     03 WS-INCREMENT             PIC 9(3)  VALUE ZERO.
000104     03 WS-PERCENT               PIC 9(3)  VALUE ZERO.
000105     03 WS-RETURN                PIC S9(4) COMP-1 VALUE ZERO.
000106     03 Ws-Line       PIC 9(2)                   VALUE 00.
000107     03 Ws-SizeWidth  PIC 99V99 Binary           VALUE 00.
000108     03 Ws-SizeHeight PIC 99V99 Packed-Decimal   VALUE 00.
000109*
000110*
000111*
000112*        VALORI PER LA STAMPANTE SELEZIONATA
000113*        -----------------------------------
000114*
000115*          COSTATNTI E VARIABILI 
000116*
000117 77  Units-Per-Inch          PIC 9(5)      VALUE 0.
000118 77  Millimeters-Per-Inch    PIC 9(5)V9(2) VALUE 25.4.
000119 1   MILLIMETRI              PIC 9(8)V9.
000120 1   CENTIMETRI              PIC 9(8)V99.
000121*
000122*           AREA NON STAMPABILE IN MM
000123*
000124 1   BO-AREA-MM              PIC 9(5)V9(3).  *> ORIZZINTALE
000125 1   BV-AREA-MM              PIC 9(5)V9(3).  *> VERTICALE
000126*
000127*           AREA STAMPABILE IN MM
000128*
000129 1   AREA-STAMPA-OR          PIC 9(5)V9(3).
000130 1   AREA-STAMPA-VE          PIC 9(5)V9(3).
000131*
000132*           FORMATO CARTA IN MM
000133*
000134 1   FORMATO-FOGLIO-OR        PIC 9(5)V9(3).
000135 1   FORMATO-FOGLIO-VE        PIC 9(5)V9(3).
000136*
000137*
000138*           Posizioni e indicazioni per la stampa
000139*
000140 1   PUNTI-CARATTERE          PIC 9(2).
000141*
000142 1   TXT-STANDARD.
000143  2  MARGINE-SINISTRO         PIC 99V99.
000144  2  MARGINE-TOP              PIC 99V99.
000145  2  AREA-MAX-VE              PIC 999V9.
000146  2  CONTRASTO                PIC 9(4).
000147  2  ORIENTAMENTO             PIC X.
000148*
000149 1   LF-CONTRASTO             PIC 9(3) BINARY (2).        
000150 1   LF-POSIZIONE             PIC 9(3)V999.
000151*       
000152*
000153 1   CONTA-RIGHE              PIC 9(3).
000154*
000155 1   FL-ABORT                 PIC 9.
000156 1   FL-PRIMA-PAGINA          PIC X.
000157 1   FL-LP-STREAM             PIC 9.
000158*
000159*                 LIBRERIE STANDARD DI RM/COBOL 
000160*
000161 COPY "windefs.cpy".
000162 COPY "printdlg.cpy".    
000163 COPY "devcaps.cpy".
000164 COPY "logfont.cpy".
000165 COPY "txtmtric.cpy".
000166*            
000167/                                       
000168 PROCEDURE DIVISION.
000169*
000170 DECLARATIVES.
000171*
000172 DEC01 SECTION.
000173     USE AFTER ERROR PROCEDURE F01.
000174 DEC0101.
000175     MOVE ERF01        TO FILEST.
000176     MOVE "Testo.txt"  TO FILEN.
000177 END DECLARATIVES.
000178/
000179 HAUPT SECTION.
000180*
000181 A-0.
000182     MOVE DATE-COMP     TO COMPILATO
000183     DISPLAY PROGRAMMA LINE 1 POSITION 1 ERASE.
000184     DISPLAY 
000185     "ESEMPIO DI STAMPA CON WINDOWS"     LINE 1 POSITION 30
000186     "-----------------------------"     LINE 2 POSITION 30.
000187*
000188*     Inizializzare i valori di impaginazione 
000189*     (i valori dei marigini sono espessi in centimetri)
000190*
000191     MOVE 5                           TO MARGINE-TOP.
000192     MOVE 3.75                        TO MARGINE-SINISTRO. 
000193     MOVE "O"                         TO ORIENTAMENTO.
000194*
000195     MOVE 0                           TO CONTA-RIGHE.
000196*
000197*     Abilitare la visualizzazione estesa degli errori
000198*     (si potr inattivare questa riga all'uso produttivo)
000199*
000200     CALL "C$SetDevelopmentMode".       
000201*
000202*     Inizializza i campi della finestra di selezione stampante
000203*
000204     PERFORM INIT-DIALOGO THRU INIT-DIALOGO-E.
000205*      
000206*
000207 A-1.
000208*       
000209     MOVE WC TO FILEST. OPEN INPUT F01. PERFORM TR THRU TRE.      
000210     OPEN OUTPUT LO.
000211*
000212*      Richiama la finestra seleziona stampante
000213*
000214     CALL "P$GETDIALOG" USING PRINTDIALOG.
000215     MOVE 0 TO FL-ABORT.
000216     EVALUATE FALSE
000217        WHEN PD-OKRETURN   MOVE 1 TO FL-ABORT *> Tasto annulla
000218     END-EVALUATE.
000219     IF FL-ABORT = 1                GO A-98.
000220*
000221 A-2.
000222*
000223*     Ricavare gli attributi della stampante scelta
000224*
000225*     Importante  la tecnologia (DC-TechnologyValue) ossia:
000226*
000227*     0 = Vector plotter 
000228*     1 = Raster display 
000229*     2 = Raster printer    (Matrici e Laser)
000230*     3 = Raster camera 
000231*     4 = Character stream  (Generiche, solo testo)
000232*     5 = Metafile 
000233*     6 = Display file 
000234*
000235*
000236     PERFORM LEGGI-DEVICE THRU LEGGI-DEVICE-E.
000237*
000238*    Reset ed initzalizzare font stampante   
000239*
000240     PERFORM INIT-FONT    THRU INIT-FONT-E.
000241*
000242*    Fissare i margini
000243*    
000244     PERFORM SET-HOR      THRU SET-HOR-E.
000245     PERFORM SET-VERT     THRU SET-VERT-E.
000246*
000247*    Caricare i font per questa stampa
000248*
000249     IF DC-TechnologyValue = 4 
000250             MOVE 1 TO FL-LP-STREAM
000251             MOVE "Device Font 10cpi"      TO LF-FaceName
000252             MOVE 10                       TO PUNTI-CARATTERE
000253        ELSE     
000254              MOVE 0 TO FL-LP-STREAM
000255              MOVE "Monotype Corsiva"      TO LF-FaceName
000256              MOVE 12                      TO PUNTI-CARATTERE. 
000257*
000258     PERFORM CARICA-FONT THRU CARICA-FONT-E.
000259*           
000260 A-3.
000261*
000262     MOVE SPACES TO F01REC.
000263*                  
000264     MOVE WC TO FILEST.
000265     READ F01.
000266     IF FILEST = "10" GO A-98.
000267     IF FILEST = "97" GO A-3.
000268     PERFORM TR THRU TRE.
000269*
000270 A-4.
000271* 
000272     IF CONTA-RIGHE < 20 WRITE RIGA  FROM F01REC AFTER 1
000273        ELSE             WRITE RIGA  FROM SPACES AFTER PAGE
000274                         PERFORM SET-HOR      THRU SET-HOR-E
000275                         PERFORM SET-VERT     THRU SET-VERT-E
000276                         WRITE RIGA  FROM F01REC AFTER 1
000277                         MOVE 0 TO CONTA-RIGHE.
000278*
000279     ADD 1 TO CONTA-RIGHE.
000280     GO A-3.                     
000281*
000282 A-98.
000283*
000284     CLOSE LO.
000285     MOVE WC TO FILEST. CLOSE F01. PERFORM TR THRU TRE.
000286*                   
000287 A-99.
000288     CALL "P$EnableDialog".  *> Riabilita il dialogo
000289*           
000290     GOBACK.
000291/
000292*    CARICARE UN FONT SPECIFICO (SENZA MUTARE ATTRIBUTI IN CORSO)
000293*    -----------------------------------------------------------
000294*
000295*    INPUT: LF-FACENAME       = NOME DEL FONT
000296*           PUNTI-CARETTERE   = NUMERO DEI PUNTI
000297*           ATTRIBUTI SECONDO   CAMPO LOGICALFONT
000298 CARICA-FONT.
000299*
000300*          RICAVA PRESTAZIONI DELLA STAMPANTE
000301*
000302     CALL "P$GetDeviceCapabilities" Using
000303                      DC-LogicalPixelsYParam, DC-LogPixelsY.
000304*
000305*          CALCOLO ALTEZZA 
000306     COMPUTE LF-Height Rounded =
000307       - ((PUNTI-CARATTERE * Dc-LogPixelsY)/ 72).
000308*            
000309* 
000310     CALL "P$SetFont" USING LogicalFont.
000311*
000312*          RICAVA CARATTERISTICHE DEL FONT
000313*
000314     CALL "P$GetTextMetrics"  Using TextMetrics.
000315*
000316*       AGGIUSTA L'ALTEZZA 
000317*
000318     Compute LF-Height = (LF-Height * TM-Height) /
000319      (TM-Height - TM-InternalLeading).
000320*
000321      CALL "P$SetFont" USING
000322                       LF-HeightParam, LF-Height.
000323*
000324*
000325 CARICA-FONT-E.
000326     EXIT.
000327/
000328*  
000329*        STABILIRE AREA DI STAMPA E LIMITI STAMPANTE
000330*
000331 LEGGI-DEVICE.
000332*
000333*
000334     CALL "P$GetDeviceCapabilities" USING DeviceCapabilities.
000335*
000336     Move  DC-LogPixelsX                  To Units-Per-Inch.
000337     Compute BO-AREA-MM = (DC-PhysicalOffsetX / Units-Per-Inch) *
000338                           Millimeters-Per-Inch.
000339*
000340     Move  DC-LogPixelsY                  To Units-Per-Inch.      
000341*
000342     Compute BV-AREA-MM = (DC-PhysicalOffsetY / Units-Per-Inch) *
000343                           Millimeters-Per-Inch.
000344*
000345     Compute AREA-STAMPA-OR  = (DC-HorzRes / Units-Per-Inch) *
000346                                Millimeters-Per-Inch.
000347*
000348     Compute AREA-STAMPA-VE = (DC-VertRes / Units-Per-Inch) *
000349                               Millimeters-Per-Inch.
000350*
000351     Compute FORMATO-FOGLIO-OR =
000352                           (DC-PhysicalWidth / Units-Per-Inch) *
000353                            Millimeters-Per-Inch.
000354*
000355     Compute FORMATO-FOGLIO-VE =
000356                           (DC-PhysicalHeight / Units-Per-Inch) *
000357                            Millimeters-Per-Inch.
000358*
000359 LEGGI-DEVICE-E.
000360     EXIT. 
000361/
000362*               INIZIALIZZARE DIALOGO / PARAMETRI STAMPA
000363*
000364 INIT-DIALOGO.
000365*
000366*  
000367      CALL "P$GETDIALOG" USING PRINTDIALOG.     
000368*
000369      MOVE 1                        TO DM-Copies.
000370      SET DM-CopiesField            TO FALSE. *> Solo 1 copia 
000371      SET DM-OrientationField       TO TRUE.
000372      SET PD-DisablePrintToFileFlag TO TRUE.  *> No stampa su file
000373      SET PD-NOSelectionFlag        TO TRUE.  *> No selezione da/a
000374*
000375      IF ORIENTAMENTO = "O"
000376           SET DM-OrientationIsLandscape TO TRUE
000377         ELSE
000378           SET DM-OrientationIsPortrait  TO TRUE. 
000379* 
000380      CALL "P$SetDialog" USING   PRINTDIALOG.
000381*
000382 INIT-DIALOGO-E.
000383      EXIT.
000384/
000385*       INITALIZZARE FONT AL PRIMO USO DELLA STAMPANTE
000386*
000387 INIT-FONT.
000388*       
000389     CALL "P$ClearFont".
000390*           
000391     INITIALIZE LogicalFont.
000392     SET LF-PitchIsFixed                       TO TRUE.
000393     SET LF-CharSetIsANSI                      TO TRUE.
000394     SET LF-Italic, LF-UnderLine, LF-Strikeout TO FALSE.
000395*
000396 INIT-FONT-E.
000397     EXIT.           
000398/
000399*
000400*             POSIZIONAMENTO ASSULUTO
000401 POS-SET.
000402*
000403     IF FL-LP-STREAM = 1 GO POS-SET-E.      *> Stampante generica
000404*
000405     COMPUTE MILLIMETRI = LF-POSIZIONE * 10.
000406     SUBTRACT BV-AREA-MM FROM MILLIMETRI.
000407     COMPUTE LF-POSIZIONE = MILLIMETRI / 10.
000408     Move LF-POSIZIONE            TO Ws-SizeHeight.
000409     Move MARGINE-SINISTRO        TO Ws-SizeWidth.
000410*
000411     Call "P$SetPosition" Using  Ws-SizeWidth
000412                                 Ws-SizeHeight
000413                                "Absolute"
000414                                "Metric".
000415 POS-SET-E.
000416     EXIT.
000417/
000418*                MARGINE VERTICALE SUPERIORE
000419 SET-VERT.
000420*
000421     IF FL-LP-STREAM = 1 GO SET-VERT-E.      *> Stampante generica
000422*
000423     COMPUTE MILLIMETRI = MARGINE-TOP * 10.
000424     SUBTRACT BV-AREA-MM FROM MILLIMETRI.
000425     COMPUTE CENTIMETRI  = MILLIMETRI / 10.
000426     Move CENTIMETRI              TO Ws-SizeHeight.
000427*
000428     COMPUTE MILLIMETRI = MARGINE-SINISTRO * 10.
000429     SUBTRACT BO-AREA-MM FROM MILLIMETRI.
000430     COMPUTE CENTIMETRI  = MILLIMETRI / 10.
000431*           
000432     Move CENTIMETRI              TO Ws-SizeWidth.
000433*
000434     Call "P$SetPosition" Using  Ws-SizeWidth
000435                                 Ws-SizeHeight
000436                                "Absolute"
000437                                "Metric".
000438 SET-VERT-E.
000439     EXIT.
000440*
000441*
000442*
000443/
000444*                FISSA MARGINE SINISTRO
000445 SET-HOR.
000446*
000447     IF FL-LP-STREAM = 1 GO SET-HOR-E.       *> Stampante generica
000448*
000449*
000450     COMPUTE MILLIMETRI = MARGINE-SINISTRO * 10.
000451     SUBTRACT BO-AREA-MM FROM MILLIMETRI.
000452     COMPUTE CENTIMETRI  = MILLIMETRI / 10.
000453*           
000454     Move CENTIMETRI              TO Ws-SizeWidth.
000455*
000456*         
000457     CALL "P$SetLeftMargin"  using WS-SizeWidth
000458                                   "Metric".
000459 SET-HOR-E.
000460     EXIT.         
000461/
000462*        Routine controllo status file I-O
000463 TR.
000464      MOVE 0 TO SLF.
000465      IF FILEST = WC GO TRE.
000466      CALL "c$rerr"  USING FILESTEX.
000467*
000468      DISPLAY TXS LINE 18 POSITION 2 SIZE 25
000469              TXS LINE 19 POSITION 2 SIZE 25
000470              TXE LINE 18 POSITION 2 TXE1 LINE 19 POSITION 2.
000471*
000472      ACCEPT A1 LINE 19 POSITION 30 PROMPT.
000473*
000474      DISPLAY TXS LINE 18 POSITION 2 SIZE 25
000475              TXS LINE 19 POSITION 2 SIZE 25.
000476*
000477      IF A1 = "$" GOBACK.
000478      IF FILEST = "99" MOVE 1 TO SLF GO TRE. 
000479      IF A1 NOT = "#" GO TR.
000480 TRE.
000481      EXIT.
000482*                   *** FINE LP-EX-01.CBL ***

Come prelevare questi codici

Pagina precedente

Pagina successiva

Cobol in pratica

Utilizzo delle stampanti di Windows da RM/COBOL.

Le librerie standard di RM/COBOL

Il programma