<verbatim> ************************************************************************** * DBGDPRO0: *OUTFILE for DSPPGMREF command * Copyright (C) 2000 Martin Rowe <martin@dbg400.net> * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ************************************************************************** A R QWHDRPPR A WHLIB 10 TEXT('Library') A COLHDG('Library') A WHPNAM 10 TEXT('Program') A COLHDG('Program') A WHTEXT 50 TEXT('Text ''description''') A COLHDG('TEXT' + A 'Text' + A '''Description''') A WHFNUM 5S 0 TEXT('Number of objects reference + A d') A COLHDG('Number Of' + A 'Objects Referenced') A WHDTTM 13 TEXT('Retrieval date: century/da + A te/time') A COLHDG('Retrieval' + A 'Date And Time') A WHFNAM 11 TEXT('Object referenced: 1=*EXPR') A COLHDG('Object' + A 'Referenced') A WHLNAM 11 TEXT('Library referenced: 1=*EXPR') A COLHDG('Library') A WHSNAM 11 TEXT('File name in source program + A : 1=*EXP') A COLHDG('Source' + A 'File Name') A WHRFNO 3S 0 TEXT('Number of record formats re + A ferenced') A COLHDG('Number Of' + A 'Record Formats') A WHFUSG 2S 0 TEXT('1=I,2=O,3=I/O,4=U,5=I/U,6=O + A /U,7=I/O') A COLHDG('File Usage') A WHRFNM 10 TEXT('Record format referenced') A COLHDG('Record' + A 'Format') A WHRFSN 13 TEXT('Format level identifier') A COLHDG('Format Level' + A 'Identifier') A WHRFFN 5S 0 TEXT('Number of fields') A COLHDG('Number Of' + A 'Fields') A WHOBJT 1 TEXT('Object type: F=File, P=Prog + A ram, D=D') A COLHDG('Object' + A 'Type') A WHOTYP 10 TEXT('Object type') A COLHDG('Object' + A 'Type') A WHSYSN 8 TEXT('System Name (Source System, + A if file') A COLHDG('System' + A 'Name') A WHSPKG 1 TEXT('PGM=P, SQLPKG=S, SRVPGM=V, + A MODULE=M') A COLHDG('Referencing' + A 'Object' + A 'Type') A WHRFNB 5S 0 TEXT('Number of record formats re + A ferenced') A COLHDG('Number Of' + A 'Record Formats') </verbatim> -- Main.MartinRowe - 18 Jun 2005
This topic: DBG400
>
SourceCodeList
>
DdsSource
>
PfDBGDPRO0
Topic revision: r1 - 18 Jun 2005 - 18:34:38 -
MartinRowe
Copyright © by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding DBG/400?
Send feedback