Trying to get a comp list off Mainframe to PC. Used both ways with PC FTP using get "DOS command" and through ISPF panel ASCII+CRLF option and just ASCII option through IND$FILE. Used ISPF option 6 for IND$FILE to get a SCLM generated comp list to a PC.
File is compiler listing, does not contain CRLF so it is coming to PC like mixed characters in unreadable format.
How to download line by like like normal files?
Code:
1PP 5655-S71 IBM ENTERPRISE COBOL FOR Z/OS 4.2.0
0INVOCATION PARAMETERS:
NOC(E),NODYN,LIB,OBJECT,APOST,DATA(31),NONUM,NOSEQ,
0OPTIONS IN EFFECT:
NOADATA
ADV
APOST
ARITH(COMPAT)
NOAWO
NOBLOCK0
BUFSIZE(32760)
NOCICS
CODEPAGE(1140)
NOCOMPILE(E)
NOCURRENCY
Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
If the data is pure text, simply transfer as a text file. A PC file is automatically variable length and thus will transfer normally. You will not see CR/LF in a mainframe file (excpet for Unix files, of course) since the end of line is indicated by the end of record, not by some character or character combination.
If the data contains binary values (non-printing data that is packed-decimal, binary, or control characters), the problem becomes challenging since a binary FTP does not transfer the record lengths and hence you lose valuable information. There are varying ways to resolve this issue, depending upon the software being used for the transfer, but you would need to consult with your site support group for more assistance.
Looks like you create listings in SCLM - you need to check, if listing is packed by SCLM... if yes, you should unpack it first ( I think option 7 in SCLM main menu), then you can transfer it to PC
ISPF automatically unpack listing, when you browse or view .... one trick to see the actual member - try search one space in 3.14 for any member - it will show how actual member is stored in pds
Yes this is When I straight download 'Windows ftp' it looks like:
or
same with Mainframe FTP ISPF option 6 - command line. Unfortunately my emulator is 'OpenConnect' some options are grey-out or disabled.
Code:
F dz1PP 5655-S71 IBM ENTERPRISE COBOL FOR Z/OSd4.2.0DATE 04/03/2007TIME 20:07:46cPAGE1o0INVOCATION PARAMETERS:%NOC(E
),NODYN,LIB,OBJECT,APOST,DATA(31),NONUM,NOSEQ,S,X,NOWDk0OPTIONS IN EFFECT:fNOADATA:bADV@dAPOST:ARITH(COMPAT)dNOAWO@gNO
Is there any way to select 1 - 132 columns data after opening dataset in VIEW mode?
how to check listing is packed by SCLM? option 7 SCLM is
Code:
SCLM Main Menu
Option ===>
Enter one of the following options:
1 View ISPF View or Browse data
2 Edit Create or change source data in SCLM
3 Utilities Perform SCLM database utility/reporti
4 Build Construct SCLM-controlled components
5 Promote Move components into SCLM hierarchy
6 Command Enter TSO or SCLM commands
6A Easy Cmds Easy SCLM commands via prompts
7 Sample Create or delete sample SCLM project
A SCLM Admin Maintaining SCLM administrators
X Exit Terminate SCLM
I tried Option 3 - Utilities and UNLOCK but no use, showing error
Also tried with 6A - to unlock the member
One thing nice is I can VIEW the member listing
Code:
FLM82002 - MEMBER IS NON-EDITABLE
GROUP: UNIT TYPE: COMPLIST
***
Blksize 32760 defined by system personnel with 'VB' some ages back, may be 25 years old, not my idea. I agree simple LRECL - 133 with RECFM - FB will serve the purpose. I think who ever setup the SCLM Rexx compile scripts or other other sys admin personnel.
Profile:
Code:
Command ===>
****** ******************************************************* Top of Data *
=PROF> ....COMPLIST (VARIABLE - 133)....RECOVERY ON....NUMBER OFF...........
=PROF> ....CAPS OFF....HEX OFF....NULLS ON STD....TABS OFF....SETUNDO STG...
=PROF> ....AUTOSAVE ON....AUTONUM OFF....AUTOLIST OFF....STATS ON...........
=PROF> ....PROFILE UNLOCK....IMACRO NONE....PACK ON....NOTE ON..............
=PROF> ....HILITE OFF CURSOR FIND...........................................
==MSG> -CAUTION- Data contains invalid (non-display) characters. Use command
==MSG> ===> FIND P'.' to position cursor to these
000001 1PP 5655-S71 IBM ENTERPRISE COBOL FOR Z/OS 4.2.0
000002 0INVOCATION PARAMETERS:
000003 NOC(E),NODYN,LIB,OBJECT,APOST,DATA(31),NONUM,NOSEQ,S,X,NOWD
000004 0OPTIONS IN EFFECT:
If this doesn't work, rather speding much time, will print this to SYSOUT=* and from there will extract..
Thanks all for your time.[/code]
